VBA:判断复选框的选择状态 chk.value<>1未选择状态 chk.value=1选择状态

时间:2021-08-08
本文章向大家介绍VBA:判断复选框的选择状态 chk.value<>1未选择状态 chk.value=1选择状态,主要包括VBA:判断复选框的选择状态 chk.value<>1未选择状态 chk.value=1选择状态使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
    For Each chk In ActiveSheet.CheckBoxes
        If chk.Caption = "1.7" And chk.Value = 1 Then  '选中了
             chk.Value = 0
         ElseIf chk.Caption = "1.7" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.6" And chk.Value = 1 Then  '选中了
             chk.Value = 0
             
        ElseIf chk.Caption = "1.6" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.5" And chk.Value = 1 Then  '选中了
             chk.Value = 0
             
        ElseIf chk.Caption = "1.5" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.4" And chk.Value = 1 Then  '选中了
             chk.Value = 0
            
        ElseIf chk.Caption = "1.4" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.3" And chk.Value = 1 Then  '选中了
             chk.Value = 0
             
        ElseIf chk.Caption = "1.3" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.2" And chk.Value = 1 Then  '选中了
             chk.Value = 0
            
        ElseIf chk.Caption = "1.2" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.1" And chk.Value = 1 Then  '选中了
             chk.Value = 0
            
        ElseIf chk.Caption = "1.1" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
        If chk.Caption = "1.0" And chk.Value = 1 Then  '选中了
             chk.Value = 0
             
        ElseIf chk.Caption = "1.0" And chk.Value <> 1 Then  '选中了
             chk.Value = 1
             
        End If
    Next

原文地址:https://www.cnblogs.com/xkdn/p/15115303.html