Hoe verberg/toon ik een kolom/rij via vba?

VBA verborgen eigenschap

Om een kolom of rij in Excel te verbergen/weer te geven met behulp van VBA, kunt u de eigenschap “Verborgen” gebruiken. Om deze eigenschap te gebruiken, moet u de kolom of rij opgeven met behulp van het bereikobject en vervolgens TRUE/FALSE opgeven.

1. Geef de kolom of rij op met behulp van het bereikobject.
2. Gebruik daarna de gehele eigenschap column/row om naar de gehele rij of kolom te verwijzen.
3. Gebruik dan de verborgen eigenschap.
4. Geef aan het einde waar/onwaar op.

Hier is het voorbeeld om te overwegen:

 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

In de bovenstaande code hebben we de eigenschap verborgen gebruikt om kolommen A en rij 1 te verbergen. En hier is de code om ze weer te geven.

 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

Verberg/toon meerdere rijen en kolommen 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

En op dezelfde manier als u meerdere rijen en kolommen wilt weergeven.

 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

Verberg alle kolommen en rijen

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

Toon alle kolommen en rijen

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

Kolommen en rijen in een ander werkblad verbergen/tonen

 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