У меня есть две группы флажков.
Группа 1
CheckboxA
CheckboxB
Группа 2
CheckboxC
CheckboxD
CheckboxE
Как разрешить выбор только одного из флажков из каждой группы? Также есть ли способ связать данные результатов из группы флажков?
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
Select Case Range("H5").Value
Case "London"
.Shapes("CheckboxB").Visible = True
.Shapes("CheckboxA").Visible = False
Case "England/Wales"
.Shapes("CheckboxA").Visible = False
.Shapes("CheckboxB").Visible = True
Case "Scotland"
.Shapes("CheckboxB").Visible = False
.Shapes("CheckboxA").Visible = True
Case ""
.Shapes("CheckboxA").Visible = False
.Shapes("CheckboxB").Visible = False
End Select
Select Case Range("H6").Value
Case "Pay Later"
.Shapes("CheckboxC").Visible = True
.Shapes("CheckboxD").Visible = True
.Shapes("CheckboxE").Visible = True
Case "Pay Now"
.Shapes("CheckboxC").Visible = True
.Shapes("CheckboxD").Visible = True
.Shapes("CheckboxE").Visible = True
Case "Core NSNF"
.Shapes("CheckboxC").Visible = True
.Shapes("CheckboxD").Visible = False
.Shapes("CheckboxE").Visible = False
Case "Premium NSNF"
.Shapes("CheckboxC").Visible = False
.Shapes("CheckboxD").Visible = False
.Shapes("CheckboxE").Visible = False
Case ""
.Shapes("CheckboxC").Visible = False
.Shapes("CheckboxD").Visible = False
.Shapes("CheckboxE").Visible = False
End Select
End With
End Sub