复选框全选反选代码求高手指点！！！

chenzhen0407 · 发表于 2013-12-28 18:48

因为我的表格的复选框位置是跟据 b1 c1中的数字来决定起始位置的，我想在a1单元格增加二个复选框加入反选和全选功能
效果如图
代码在符件中，求高手改动下代码！！！

chenzhen0407 · 发表于 2013-12-28 19:03

我把30改成最大65535 就提示错误 10004
对象定义错误！！！

zhaogang1960 · 发表于 2013-12-28 19:06

先判断是不是复选框，再判断p.TopLeftCell.Row <= 30，否则因有些Shapes没有该属性而出错

复制代码

chenzhen0407 · 发表于 2013-12-28 19:19

{:soso_e136:}现在问题是我的复选框是不定的，可以肯定的说行数在30以后可我把30改成最大的65536 或者小点55555 也不行，提示10004 定义对象错误，请版主用心指点！！！

zhaogang1960 · 发表于 2013-12-28 19:45

chenzhen0407 发表于 2013-12-28 19:19
现在问题是我的复选框是不定的，可以肯定的说行数在30以后可我把30改成最大的65536 或 ...

把复选框CheckBox1(ActivateX控件)也算进去了：

Private Sub CheckBox1_Click()
Application.Calculation = xlManual
Dim p As Shape
For Each p In ActiveSheet.Shapes
If p.Name Like "Check*" Then
If p.TopLeftCell.Row <= 65536 Then
If p.Name <> "CheckBox1" Then p.OLEFormat.Object.Value = IIf(CheckBox1.Value = True, 1, 0)
End If
End If
Next
Application.Calculation = xlAutomatic
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-28 19:47

请测试附件

cz.rar (25.63 KB, 下载次数: 105)

chenzhen0407 · 发表于 2013-12-28 20:36

很感谢版主的耐心指点！可不知道在这个文件中为什么会出现错误提示求再次指点！！！

zhaogang1960 · 发表于 2013-12-28 20:42

chenzhen0407 发表于 2013-12-28 20:36
很感谢版主的耐心指点！可不知道在这个文件中为什么会出现错误提示求再次指点！！！

原来不止一个：

Private Sub CheckBox1_Click()
Application.Calculation = xlManual
Dim p As Shape
For Each p In ActiveSheet.Shapes
If p.Name Like "Check*" Then
If p.TopLeftCell.Row <= 65536 Then
If InStr(p.Name, "CheckBox") = 0 Then p.OLEFormat.Object.Value = IIf(CheckBox1.Value = True, 1, 0)
End If
End If
Next
Application.Calculation = xlAutomatic
End Sub

复制代码

zhaogang1960 · 发表于 2013-12-28 20:44

请看附件

czz.rar (42.33 KB, 下载次数: 45)

chenzhen0407 · 发表于 2013-12-28 20:58

{:soso_e118:}求版主再次指点！！这个代码全选的勾是全勾上了可反选的勾没反应，还有一个最严重的问题
代码是不是和模板里面的代码有冲突？？？我手选的勾和用全选勾的结果有区别 s1单元格是一个输出结果单元格即勾中哪，就显示输出勾选中的单元格关系着 sheet2 的 a9单元格

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