![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
求助!!用VBA复选框给选定单元格赋值
求助1:1、点击“按钮1”,将sheet1第三行的内容“1,2,3,4,5,6,7,8”,粘贴到sheet2内去2、sheet1第三行内容重新输入为“a,b,c,d,e,...
求助1:
1、点击“按钮1”,将sheet1第三行的内容“1,2,3,4,5,6,7,8”,粘贴到sheet2内去
2、sheet1第三行内容重新输入为“a,b,c,d,e,f,g,h”后,再次点击“按钮1”,则讲内容粘贴到sheet2的下一行,依次类推
3、当sheet1第三行的8个单元格当中,有单元格未输入值时,提示“参数输入不完整”
求助2:
1、选定sheet1第一列的单元格,点击“复选框1”,则选定的单元格值等于“复选框1”,选定“复选框2”则变成“复选框2”,依次类推
2、仅能对sheet1第一列所在列的单元格进行赋值,其他区域被选择时点击复选框则无效
3、仅能选择1个复选框的值进行输入,若出现两个及以上的复选框被选择,则提示“只能选择一个” 展开
1、点击“按钮1”,将sheet1第三行的内容“1,2,3,4,5,6,7,8”,粘贴到sheet2内去
2、sheet1第三行内容重新输入为“a,b,c,d,e,f,g,h”后,再次点击“按钮1”,则讲内容粘贴到sheet2的下一行,依次类推
3、当sheet1第三行的8个单元格当中,有单元格未输入值时,提示“参数输入不完整”
求助2:
1、选定sheet1第一列的单元格,点击“复选框1”,则选定的单元格值等于“复选框1”,选定“复选框2”则变成“复选框2”,依次类推
2、仅能对sheet1第一列所在列的单元格进行赋值,其他区域被选择时点击复选框则无效
3、仅能选择1个复选框的值进行输入,若出现两个及以上的复选框被选择,则提示“只能选择一个” 展开
1个回答
展开全部
问题要一个一个的来解决
第一个问题,按钮的代码可以这样写,你看是否符合你的要求:
Option Explicit
Private Sub CommandButton1_Click()
If Application.CountA([a3:h3]) = 8 Then
[a3:h3].Copy Sheet2.Cells(Sheet2.[a65536].End(xlUp).Row + 1, 1)
msgbox "已保存"
Else
MsgBox "参数不完整"
End If
End Sub
程序代码启示就是一个判断语句,判断A3:H3输入的个数,如果不是8就报告缺少,否则就复制到Sheet2中。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询