乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > excel 窗体复选框如何批量勾选与批量取消勾选?

excel 窗体复选框如何批量勾选与批量取消勾选?

作者:乔山办公网日期:

返回目录:excel表格制作


1:在第一个单元格插入复选框后拖动e69da5e887aa7a686964616f337复制。
2:如果单元格区域不规则可以用下面代码:
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range

Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ";;;"
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True

Set cell = Nothing

End Sub

我跟你说一下,你看看能不能看懂,如果看不懂你再追问。

首先选中你做的第一个复选框(checkbox1),右键菜单——查看代码,在打开的vbe编辑窗口中把里面的东西都清空,然后把下面的代码粘贴进去:

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

CheckBox2 = True: CheckBox3 = True: CheckBox4 = True: CheckBox5 = True

CheckBox6 = True: CheckBox7 = True: CheckBox8 = True: CheckBox9 = True

CheckBox10 = True: CheckBox11 = True: CheckBox12 = True: CheckBox13 = True

CheckBox14 = True: CheckBox15 = True: CheckBox16 = True: CheckBox17 = True

CheckBox18 = True: CheckBox19 = True: CheckBox20 = True: CheckBox21 = True

CheckBox22 = True: CheckBox23 = True: CheckBox24 = True: CheckBox25 = True

CheckBox26 = True

Else

CheckBox2 = False

CheckBox3 = False: CheckBox4 = False: CheckBox5 = False: CheckBox6 = False

CheckBox7 = False: CheckBox8 = False: CheckBox9 = False: CheckBox10 = False

CheckBox11 = False: CheckBox12 = False: CheckBox13 = False: CheckBox14 = False

CheckBox15 = False: CheckBox16 = False: CheckBox17 = False: CheckBox18 = False

CheckBox19 = False: CheckBox20 = False: CheckBox21 = False: CheckBox22 = False

CheckBox23 = False: CheckBox24 = False: CheckBox25 = False: CheckBox26 = False

End If

End Sub

现在看一下这段vb代码,不难看出else上下的两段字符,等号左边的都一样,只是等号右边一个为true,一个为false。在这段代码里一共有26个复选框,你一看就明白了吧?如果你的复选框没有这么多,那么你可以直接用这段代码就可以了,反之,你的复选框比代码里面的多,那你继续在代码里面加上你剩余的复选框名字(按照代码的规律添加即可)。最后将工作簿保存为启用宏的工作簿就好了。如果你的excel没有用过宏的话,在你的excel中宏是禁用的,你得到excel选项下——新人中心——信任中心设置——宏设置——勾选启用所有宏选项。这样你需要的效果就能实现了:(如图),不在知道是不是你想要的,也不知道对你7a64e4b893e5b19e335有没有用,希望能对你有所帮助,我也是新手!代码是我试过的,能用,有啥问题再追吧,一起学习! 如果你还是觉得有问题,把你的文件发给我,我帮你做好发给你,我的邮箱:


发你的文件来,
这种是需要写代码的

其实复选框的勾选状态是可以用公式来设置zd
比如某个复选框的链接单元格是H1,可以在H1单元格中设置一个公式=IF(E1=0,TRUE,FALSE)来决定复选框的状态。
由于楼主的描述不太详细,只能回答这些了。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网