Question

我有一个电子表格，有100行。在这100行中，首先只需要显示10行，其他90行应首先折叠（隐藏）。如果用户想要读取整行100行，他/她可以单击按钮将10行到100行的电子表格展开。如何在VBA中实现这种功能？

Answer 1

您可以使用命令按钮：

Private Sub CommandButton1_Click()

    '// Label button "Show Rows"
    With Me.CommandButton1
        If .Caption = "Show Rows" Then
            .Caption = "Hide Rows"
            Rows("11:100").Hidden = False
        Else
            .Caption = "Show Rows"
            Rows("11:100").Hidden = True
        End If
    End With

End Sub

或切换按钮：

Private Sub ToggleButton1_Click()
    '// Label Something Like "Show/Hide Rows"
    Rows("11:100").Hidden = Not ToggleButton1.Value
End Sub

如何使用vba扩展excel中的隐藏行？

1 个答案: