¿cómo ocultar/mostrar una columna/fila a través de vba?

Propiedad oculta de VBA

Para ocultar/mostrar una columna o fila en Excel usando VBA, puede usar la propiedad «Oculto». Para utilizar esta propiedad, debe especificar la columna o fila utilizando el objeto de rango y luego especificar VERDADERO/FALSO.

1. Especifique la columna o fila utilizando el objeto de rango.
2. Después de eso, use la propiedad columna/fila completa para hacer referencia a la fila o columna completa.
3. Luego use la propiedad oculta.
4. Al final, especifique verdadero/falso.

Aquí está el ejemplo 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

En el código anterior, hemos utilizado la propiedad oculta para ocultar las columnas A y la fila 1. Y aquí está el código para mostrarlas.

 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últiples filas y columnas 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

Y de manera similar, si desea mostrar varias filas y columnas.

 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 las columnas y filas

 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 las columnas y filas

 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 columnas y filas en otra hoja de trabajo

 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