Come nascondere/mostrare una colonna/riga tramite vba?

Proprietà nascosta VBA

Per nascondere/mostrare una colonna o una riga in Excel utilizzando VBA, puoi utilizzare la proprietà “Nascosto”. Per utilizzare questa proprietà, è necessario specificare la colonna o la riga utilizzando l’ oggetto intervallo e quindi specificare TRUE/FALSE.

1. Specificare la colonna o la riga utilizzando l’oggetto intervallo.
2. Successivamente, utilizza la proprietà intera colonna/riga per fare riferimento all’intera riga o colonna.
3. Quindi utilizzare la proprietà nascosta.
4. Alla fine specifica vero/falso.

Ecco l’esempio da considerare:

 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

Nel codice sopra abbiamo utilizzato la proprietà hidden per nascondere le colonne A e la riga 1. Ed ecco il codice per mostrarle.

 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

Nascondi/Mostra più righe e colonne 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 allo stesso modo, se desideri visualizzare più righe e colonne.

 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

Nascondi tutte le colonne e le righe

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

Mostra tutte le colonne e le righe

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

Nascondi/Mostra colonne e righe in un altro foglio di lavoro

 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