Как разрешить выбор только одного флажка из группы флажков? - PullRequest
0 голосов
/ 08 мая 2018

У меня есть две группы флажков.

Группа 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...