Скрытие строк и столбцов от посторонних

Существует несколько небольших макросов, с помощью которых можно скрывать строки и столбцы. С некоторыми из таких макросов мы познакомимся в данном разделе.

Чтобы скрыть строку под определенным номером, можно применить следующий макрос (листинг 3.15).

Листинг 3.15. Скрытие строки

Sub HideString()

Rows(2).Hidden = True

End Sub

В результате применения этого макроса будет скрыта строка 2.

Можно использовать также такой макрос (листинг 3.16).

Листинг 3.16. Скрытие нескольких строк

Sub HideStrings()

Rows(«3:5»).Hidden = True

End Sub

После его выполнения будут скрыты строки 3, 4 и 5.

Чтобы вновь отобразить скрытую строку (или строки), необходимо в соответствующих макросах изменить значение True на False, после чего запустить их на выполнение.

Похожие макросы используются для управления отображением столбцов). Например, в результате выполнения макроса, код которого приведен в листинге 3.17, будет скрыт столбец В.

Листинг 3.17. Скрытие столбца

Sub HideCollumn()

Columns(2).Hidden = True

End Sub

Если в данном макросе заменить 2, например, на С, то будет скрыт столбец С (то есть в коде макроса можно указывать как порядковый номер столбца, так и соответствующую ему букву).

Для скрытия нескольких столбцов можно применить, например, такой макрос (листинг 3.18).

Листинг 3.18. Скрытие нескольких столбцов

Sub HideCollumns()

Columns(«E:F»).Hidden = True

End Sub

В результате выполнения данного макроса будут скрыты столбцы Е и F.

Чтобы включить отображение скрытых столбцов, необходимо в соответствующих макросах заменить значение True на False и запустить их на выполнение.

Можно также скрывать строки и столбцы, ориентируясь на адрес или имя ячейки. Например, используйте такой макрос (листинг 3.19).

Листинг 3.19. Скрытие строки по имени ячейки

Sub HideCell()

Range(«Секрет»).EntireRow.Hidden = True

End Sub

После его применения будет скрыта строка, в которой находится ячейка с именем Секрет. Этот трюк удобно использовать, например, когда нужно срочно скрыть какие-либо данные, но адрес ячейки вспомнить не удается, а известно только ее имя. Однако при необходимости вместо имени можно указывать конкретный адрес ячейки (например, если в приведенном макросе заменить Секрет на А2, то будет скрыта строка 2).

Можно также указывать диапазон ячеек, строки с которыми нужно скрыть. Пример такого макроса приведен в листинге 3.20.

Листинг 3.20. Скрытие нескольких строк по адресам ячеек

Sub HideCell()

Range(«B3:D4»).EntireRow.Hidden = True

End Sub

После применения данного макроса будут скрыты строки 3 и 4.

Чтобы вновь отобразить скрытую строку (или строки), необходимо в соответствующих макросах изменить значение True на False и запустить их на выполнение.

Управлять отображением столбцов также можно, исходя из адреса или имени ячейки. Вот пример такого макроса (листинг 3.21).

Листинг 3.21. Скрытие столбца по имени ячейки

Sub HideCell()

Range(«Секрет»).EntireColumn.Hidden = True

End Sub

В данном случае будет удален столбец, содержащий ячейку Секрет. Здесь также можно указывать как имя, так и адрес ячейки (например, если в приведенном макросе заменить Секрет на C3, то будет скрыт столбец С).

Можно использовать такой макрос (листинг 3.22).

Листинг 3.22. Скрытие нескольких столбцов по адресам ячеек

Sub HideCell()

Range(«C2:D5»).EntireColumn.Hidden = True

End Sub

После применения данного макроса будут скрыты столбцы С и D.

Чтобы вновь включить отображение скрытых столбцов, нужно в соответствующих макросах заменить значение True на False.