당신이 옵션 버튼을 사용할 수없는 경우,
Private Sub CheckBox1_Change()
With Me.CheckBox1
If .Value Then ClearGroup .GroupName, .Name
End With
End Sub
Private Sub CheckBox2_Change()
With Me.CheckBox2
If .Value Then ClearGroup .GroupName, .Name
End With
End Sub
Private Sub CheckBox3_Change()
With Me.CheckBox3
If .Value Then ClearGroup .GroupName, .Name
End With
End Sub
Private Sub ClearGroup(sGroup As String, sName As String)
Dim ole As OLEObject
For Each ole In Me.OLEObjects
If TypeName(ole.Object) = "CheckBox" Then
If ole.Object.GroupName = sGroup And ole.Name <> sName Then
ole.Object.Value = False
End If
End If
Next ole
End Sub
나는 나머지 입력 원의 나머지 부분에 체크 박스가 있기 때문에 라디오 버튼을 사용하여 다른 방법을 찾으려고합니다. 내 스프레드 시트의 일관성을 유지하고 싶습니다. – user362729
특정 요소의 동작을 최종 사용자에게 전달하는 것이 일반적으로이 "균일 성"보다 중요합니다. 이러한 일관성은 수표와 라디오 박스를 모두 동일한 크기로 만들어서 확인할 수 있습니다. – alexanderpas