Как скрыть или отобразить строки и столбцы с помощью свойства Range.Hidden из кода VBA Excel? Примеры скрытия и отображения строк и столбцов.
Свойство Range.Hidden
Синтаксис
1 |
Expression.Hidden |
Expression — выражение (переменная), возвращающее объект Range.
- True — диапазон строк или столбцов скрыт;
- False — диапазон строк или столбцов не скрыт.
Примечание
Указанный диапазон (Expression) должен охватывать весь столбец или строку. Это условие распространяется и на группы столбцов и строк.
Свойство Range.Hidden предназначено для чтения и записи.
Примеры кода с Range.Hidden
Пример 1
Варианты скрытия и отображения третьей, пятой и седьмой строк с помощью свойства Range.Hidden:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Primer1() 'Скрытие 3 строки Rows(3).Hidden = True 'Скрытие 5 строки Range("D5").EntireRow.Hidden = True 'Скрытие 7 строки Cells(7, 250).EntireRow.Hidden = True MsgBox "3, 5 и 7 строки скрыты" 'Отображение 3 строки Range("L3").EntireRow.Hidden = False 'Скрытие 5 строки Cells(5, 250).EntireRow.Hidden = False 'Скрытие 7 строки Rows(7).Hidden = False MsgBox "3, 5 и 7 строки отображены" End Sub |
Пример 2
Варианты скрытия и отображения третьего, пятого и седьмого столбцов из кода VBA Excel:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Primer2() 'Скрытие 3 столбца Columns(3).Hidden = True 'Скрытие 5 столбца Range("E2").EntireColumn.Hidden = True 'Скрытие 7 столбца Cells(25, 7).EntireColumn.Hidden = True MsgBox "3, 5 и 7 столбцы скрыты" 'Отображение 3 столбца Range("C10").EntireColumn.Hidden = False 'Отображение 5 столбца Cells(125, 5).EntireColumn.Hidden = False 'Отображение 7 столбца Columns("G").Hidden = False MsgBox "3, 5 и 7 столбцы отображены" End Sub |
Пример 3
Варианты скрытия и отображения сразу нескольких строк с помощью свойства Range.Hidden:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub Primer3() 'Скрытие одновременно 2, 3 и 4 строк Rows("2:4").Hidden = True MsgBox "2, 3 и 4 строки скрыты" 'Скрытие одновременно 6, 7 и 8 строк Range("C6:D8").EntireRow.Hidden = True MsgBox "6, 7 и 8 строки скрыты" 'Отображение 2, 3 и 4 строк Range("D2:F4").EntireRow.Hidden = False MsgBox "2, 3 и 4 строки отображены" 'Отображение 6, 7 и 8 строк Rows("6:8").Hidden = False MsgBox "6, 7 и 8 строки отображены" End Sub |
Пример 4
Варианты скрытия и отображения сразу нескольких столбцов из кода VBA Excel:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub Primer4() 'Скрытие одновременно 2, 3 и 4 столбцов Columns("B:D").Hidden = True MsgBox "2, 3 и 4 столбцы скрыты" 'Скрытие одновременно 6, 7 и 8 столбцов Range("F3:H40").EntireColumn.Hidden = True MsgBox "6, 7 и 8 столбцы скрыты" 'Отображение 2, 3 и 4 столбцов Range("B6:D6").EntireColumn.Hidden = False MsgBox "2, 3 и 4 столбцы отображены" 'Отображение 6, 7 и 8 столбцов Columns("F:H").Hidden = False MsgBox "6, 7 и 8 столбцы отображены" End Sub |