VBA:判斷複選框的選擇狀態 chk.value<>1未選擇狀態 chk.value=1選擇狀態
阿新 • • 發佈:2021-08-08
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 = 1Then '選中了 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 EndIf 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