VBA:根据复选框的提示字符确认,并修改复选框的选择状态 chk.value=0取消 chk.value=1选择
For Each chk In ActiveSheet.CheckBoxes If chk.Caption = "1.7" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.6" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.5" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.4" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.3" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.2" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.1" Then '选中了 chk.Value = 0 End If If chk.Caption = "1.0" Then '选中了 chk.Value = 0 End If Next

浙公网安备 33010602011771号