Question

我有以下代码：

Private Sub Worksheet_Calculate()
Application.EnableEvents = False

    Select Case Range("B14")

    Case "Medium Risk"
        Rows("6:12").EntireRow.Hidden = True
    Case Else
        Rows("6:12").EntireRow.Hidden = False

    End Select
Application.EnableEvents = True
End Sub

我需要的是：根据B14中的值隐藏Group Box“内容”。 Group Box 15环绕CheckBox8_Click。

有什么想法吗？

由于

Answer 1

我决定只关注一个行[基于单元格标准]，其中对象是：

Private Sub Worksheet_Calculate()
Application.EnableEvents = False

    Select Case Range("B14")

    Case "Medium Risk"
        Rows("6:12").EntireRow.Hidden = True
        Rows("24").EntireRow.Hidden = True
        Case Else
        Rows("6:12").EntireRow.Hidden = False
        Rows("24").EntireRow.Hidden = False
    End Select
Application.EnableEvents = True
End Sub

组框内容 - 基于单元格值隐藏

1 个答案: