Question

点击范围时，我需要隐藏和取消隐藏行。

以下是范围和各行：

范围（＆＃34; A1：L1＆＃34）行（＆＃34; 2：11＆＃34）

范围（＆＃34; A12：L12＆＃34）行（＆＃34; 13：23＆＃34）

范围（＆＃34; A24：L24＆＃34）行（＆＃34; 25：34＆＃34）

我无法在代码中找到这种情况。任何帮助表示赞赏。

Answer 1

也许我会在这种情况下使用分组而不是VBA宏。但是，请将此代码添加到Worksheet类中：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Rows("2:11").Hidden Then Rows("2:11").Hidden = True
    If Not Rows("13:23").Hidden Then Rows("13:23").Hidden = True
    If Not Rows("25:34").Hidden Then Rows("25:34").Hidden = True

    Select Case True
        Case Not Intersect(Target, Range("A1:L1")) Is Nothing
            Rows("2:11").Hidden = False

        Case Not Intersect(Target, Range("A12:L12")) Is Nothing
            Rows("13:23").Hidden = False

        Case Not Intersect(Target, Range("A24:L24")) Is Nothing
            Rows("25:34").Hidden = False
    End Select
End Sub

单击给定范围中的单元格时隐藏/取消隐藏行

1 个答案: