求助!!用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个复选框的值进行输入,若出现两个及以上的复选框被选择,则提示“只能选择一个”
展开
 我来答
阳光上的桥
推荐于2016-03-14 · 知道合伙人软件行家
阳光上的桥
知道合伙人软件行家
采纳数:21423 获赞数:65815
网盘是个好东东,可以对话和传文件

向TA提问 私信TA
展开全部

问题要一个一个的来解决


第一个问题,按钮的代码可以这样写,你看是否符合你的要求:


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中。

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式