두개의 체크박스를 옵션처럼 쓰고

또 각각의 체크박스가 선택해제되게 하려면 아래와 같이 코딩하면 된다.

 

Private Sub Check1_Click()
    If Check1.Tag = "BUSY" Then Exit Sub
    If Check2.Value = vbChecked Then
        Check2.Tag = "BUSY"
        Check2.Value = vbUnchecked
        Check2.Tag = ""
    End If
End Sub

Private Sub Check2_Click()
    If Check2.Tag = "BUSY" Then Exit Sub
    If Check1.Value = vbChecked Then
        Check1.Tag = "BUSY"
        Check1.Value = vbUnchecked
        Check1.Tag = ""
    End If
End Sub

 

Posted by +깡통+