请教，如何在VBA中实现复选框全选和取消全选

停电以后 · 发表于 2013-5-16 13:31

本帖最后由停电以后于 2013-5-16 16:54 编辑

QQ截图20130516131603.jpg

需要实现的功能如截图。谢谢

污水处理池.zip (11.4 KB, 下载次数: 35)

xuexi2xuexi · 发表于 2013-5-16 14:52

本帖最后由 xuexi2xuexi 于 2013-5-16 16:52 编辑

使用ActiveX控件，因有事件响应，用起来更方便些。
我把你的“全选”复选择框改为了ActiveX控件,其他未动.
试试：
Private Sub CheckBox1_Click()
Dim Nums, i%
Nums = Array(14, 15, 16, 18, 21, 24, 27, 30, 33, 36)
For i = 0 To 9
ActiveSheet.CheckBoxes("复选框 " & Nums(i)).Value = CheckBox1.Value
Next
End Sub

wpxxsyzx · 发表于 2013-5-16 15:20

测试附件：

zzwzengdavid · 发表于 2013-5-16 15:24

本帖最后由 zzwzengdavid 于 2013-5-16 15:27 编辑

看看附件是否符合要求

jerry@lele · 发表于 2013-5-16 16:15

哈哈下载下来看看

停电以后 · 发表于 2013-5-16 16:52

感谢各位回复。实现方法真多。解决了

XUYUJING2007 · 发表于 2013-5-16 16:56

污水处理池.zip (28.7 KB, 下载次数: 161) ‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’

		自动登录	找回密码
密码			免费注册

[已解决] 请教，如何在VBA中实现复选框全选和取消全选

评分

评分

评分

浏览过的版块