Как скрыть/показать столбец/строку через vba?

Скрытое свойство VBA

Чтобы скрыть/показать столбец или строку в Excel с помощью VBA, вы можете использовать свойство «Скрытый». Чтобы использовать это свойство, необходимо указать столбец или строку с помощью объекта диапазона , а затем указать TRUE/FALSE.

  1. Укажите столбец или строку, используя объект диапазона.
  2. После этого используйте свойство all columns/row для ссылки на всю строку или столбец.
  3. Затем используйте скрытое свойство.
  4. В конце укажите true/false.

Вот пример для рассмотрения:

скрытое свойство vba
 Sub vba_hide_row_columns() 'hide the column A Range("A:A").EntireColumn.Hidden = True 'hide the row 1 Range("1:1").EntireRow.Hidden = True End Sub

В приведенном выше коде мы использовали скрытое свойство, чтобы скрыть столбцы A и строку 1. И вот код, чтобы их показать.

 Sub vba_hide_row_columns() 'unhide the column A Range("A:A").EntireColumn.Hidden = False 'unhide the row 1 Range("1:1").EntireRow.Hidden = False End Sub

Скрыть/показать несколько строк и столбцов VBA

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = True 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = True End Sub

Аналогично, если вы хотите отобразить несколько строк и столбцов.

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = False 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = False End Sub

Скрыть все столбцы и строки

 Sub vba_hide_row_columns() 'hide the column A Columns.EntireColumn.Hidden = True 'hide the row 1 Rows.EntireRow.Hidden = True End Sub
скрыть все столбцы и строки

Показать все столбцы и строки

 Sub vba_hide_row_columns() 'unhide all the columns Columns.EntireColumn.Hidden = False 'unhide all the rows Rows.EntireRow.Hidden = False End Sub

Скрыть/показать столбцы и строки на другом листе

 Sub vba_hide_row_columns() 'hide all columns in the sheet 1 Worksheets("Sheet1").Columns.EntireColumn.Hidden = False 'hide all rows in the sheet 1 Worksheets("Sheet1").Rows.EntireRow.Hidden = False End Sub