Como ocultar/mostrar uma coluna/linha via vba?

Propriedade oculta do VBA

Para ocultar/mostrar uma coluna ou linha no Excel usando VBA, você pode usar a propriedade “Oculto”. Para usar esta propriedade, você deve especificar a coluna ou linha usando o objeto de intervalo e, em seguida, especificar TRUE/FALSE.

1. Especifique a coluna ou linha usando o objeto de intervalo.
2. Depois disso, use a propriedade coluna/linha inteira para se referir à linha ou coluna inteira.
3. Em seguida, use a propriedade oculta.
4. No final, especifique verdadeiro/falso.

Aqui está o exemplo a considerar:

 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

No código acima, usamos a propriedade oculta para ocultar as colunas A e a linha 1. E aqui está o código para mostrá-las.

 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

Ocultar/Mostrar múltiplas linhas e colunas 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

E da mesma forma, se você quiser exibir várias linhas e colunas.

 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

Ocultar todas as colunas e linhas

 Sub vba_hide_row_columns() 'hide the column A Columns.EntireColumn.Hidden = True 'hide the row 1 Rows.EntireRow.Hidden = True End Sub

Mostrar todas as colunas e linhas

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

Ocultar/Mostrar colunas e linhas em outra planilha

 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