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

 

posted @ 2021-08-08 16:33  myrj  阅读(306)  评论(0编辑  收藏  举报