如何实现复选框批量被冻结

chxw68 · 发表于 2017-12-22 10:55

Private Sub CommandButton1_Click()
With Worksheets("sheet1")
For Each aa In .OLEObjects
If TypeName(aa.Object) = "CheckBox" Then
If aa.Object.GroupName = "1" Then
If CommandButton1.Caption = "冻结" Then
aa.Enabled = True
Else
aa.Enabled = False
End If
End If
End If
Next
If CommandButton1.Caption = "冻结" Then
CommandButton1.Caption = "解冻"
Else
CommandButton1.Caption = "冻结"
End If
End With
End Sub

复制代码

chxw68 · 发表于 2017-12-22 10:56

本帖最后由 chxw68 于 2017-12-22 11:08 编辑

用按钮单击事件就够了。

chxw68 · 发表于 2017-12-22 11:07

修改好了！布尔真值是True,楼主写成了Ture了。

gta · 发表于 2017-12-22 11:08

chxw68 发表于 2017-12-22 10:56
用按钮单击事件就够了。双击和单击节奏不好掌握。

感谢老师，问题解决了，看了您程序代码的逻辑，非常值得学习！再次感谢！

gta · 发表于 2017-12-22 14:20

本帖最后由 gta 于 2017-12-22 22:17 编辑

chxw68 发表于 2017-12-22 11:07
修改好了！布尔真值是True,楼主写成了Ture了。

老师帮我看看，复选框实际应用过程中遇到了些问题：
1. I 列复选框归组名为Group1
T列复选框归组名为Group2
2. 功能要求：点击checkbox1值为True时，Group2 值为False，且冻结；- - - 已经可以实现；
点击checkbox10值为True时，Group1 值为False，且冻结；- - - 实现存在问题

chxw68 · 发表于 2017-12-22 14:32

gta 发表于 2017-12-22 14:20
老师帮我看看，复选框实际应用过程中遇到了些问题：
1. I 列复选框归组名为Group1
T列复选框归 ...

我看你附件里有那么多的代码，不知道是干什么用的？另外哪个控件是Checkbox2?

gta · 发表于 2017-12-22 14:58

chxw68 发表于 2017-12-22 14:32
我看你附件里有那么多的代码，不知道是干什么用的？另外哪个控件是Checkbox2?

其他的代码都有特定功能，checkbox2为I列第二个复选框

chxw68 · 发表于 2017-12-22 15:20

gta 发表于 2017-12-22 14:58
其他的代码都有特定功能，checkbox2为I列第二个复选框

这样有冲突吧？CheckBox2的组为Group1,你现在要用CheckBox2来控制Group1组的属性？这就好比要求你自己把自己抱起来一样。

gta · 发表于 2017-12-22 22:17

本帖最后由 gta 于 2017-12-22 22:26 编辑

chxw68 发表于 2017-12-22 15:20
这样有冲突吧？CheckBox2的组为Group1,你现在要用CheckBox2来控制Group1组的属性？这就好比要求你自己把 ...

对不起，刚才发现描述错误，checkbox2应该为checkbox10，已经更新说明
1. I 列复选框归组名为Group1
T列复选框归组名为Group2
2. 功能要求：点击checkbox1值为True时，Group2 值为False，且冻结；- - - 已经可以实现；
点击checkbox10值为True时，Group1 值为False，且冻结；- - - 实现存在问题

chxw68 · 发表于 2017-12-22 22:30

gta 发表于 2017-12-22 22:17
对不起，刚才发现描述错误，checkbox2应该为checkbox10，已经更新说明
1. I 列复选框归组名为Group1
...

实现的方法是一样的，不能实现的原因是每个CheckBox的Cllick事件互相作用造成的。

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

[求助] 如何实现复选框批量被冻结

浏览过的版块