Question

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

Answer 1

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

首先选中你做的第一个复选框（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选项下——新人中心——信任中心设置——宏设置——勾选启用所有宏选项。这样你需要的效果就能实现了：（如图），不在知道是不是你想要的，也不知道对你有没有用，希望能对你有所帮助，我也是新手！代码是我试过的，能用，有啥问题再追吧，一起学习！ 如果你还是觉得有问题，把你的文件发给我，我帮你做好发给你，我的邮箱：bjl890@Sohu.com

追问

真的很感谢您这么晚了还回答小弟的问题，之前我是用窗体的复选框的，现在改用控件工具栏的复选框终于接近您回答的情况了，另外再问问“保存为启用宏的工作簿”在哪里可以找到？

追答

工作簿在启用了宏以后，你保存的时候会提示你不能在没有启用宏的工作簿，然后你点击否，就会出现保存对话框，在文件名输入框的下面是文件类型，点击就会出现下拉菜单，里面有一个选项是启用宏的工作簿，选择它，保存就行了。保存的时候注意路径，别保存的自己找不着了，呵呵~

Answer 2

你所要的功能只能利用VBA进行完成，进行编程对一个批量框的点击事件中加入对其他需要一起变化的复选框属性都设置为checked=true或false。

追问

谢谢您的回答，可以再详细点吗？我对VBA完全不熟悉，现在无从下手