用VBA实现全选复选框

zephyr0828 · 发表于 2009-1-12 13:31

在excel中，用VBA代码实现了若干的复选框。
现在另加入一个全选用的复选框。要求：点全选复选框时，其他的复选框全选中。反之。不选中。
还有。点了全选复选框后。再点击取消其他的复选框选中时。全选复选框也取消选中。
都帮忙解决一下。谢谢各位了。

zephyr0828 · 发表于 2009-1-12 13:39

都帮帮忙啊。谢谢各位大侠了

山菊花 · 发表于 2009-1-12 22:04

zephyr0828 · 发表于 2009-1-13 12:49

原帖由 山菊花 于 2009-1-12 22:04 发表
450939

非常感谢山菊花老师的帮助解答。附件中是通过在每个checkbox写代码实现的。但是我现在做的checkbox都是在程序中生成的。有时可能要加入100多个复选框。所以您的方法实现有点困难，老师还有其他好的方法吗？

山菊花 · 发表于 2009-1-13 13:28

shesunone · 发表于 2010-12-2 23:05

dim le as boolean
le = checkbox**.value
for i=* to *
Me.control("CheckBox" & i).value=le
next i

*表示复选框的排号。
上面可能有错误，但是思路就是这样了！

ssq598 · 发表于 2011-3-2 03:50

多谢谢了，太好了

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

[讨论] 用VBA实现全选复选框