时间戳

首页 > 解决方案 > 如何只允许从一组复选框中选择一个复选框？

excel - 如何只允许从一组复选框中选择一个复选框？

问题描述

我有两组复选框。

第 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

标签： excelvbacheckbox

解决方案

推荐阅读