Как расширить скрытые строки в Excel с помощью VBA? - PullRequest
Новая
       11

Как расширить скрытые строки в Excel с помощью VBA?

2 голосов
/ 01 июля 2011

У меня есть электронная таблица, которая имеет 100 строк.Из этих 100 строк сначала нужно отобразить только 10 строк, остальные 90 строк должны быть свернуты (скрыты) вначале.Если пользователь хочет прочитать все 100 строк, он может нажать кнопку, чтобы развернуть электронную таблицу от 10 строк до 100 строк.Как реализовать такую ​​функцию в VBA?

1 Ответ

3 голосов
/ 01 июля 2011

Вы можете использовать командную кнопку: 

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
...