VBA – Selecteer (en werk met) hele rijen en kolommen – Excel automatiseren
Deze handleiding laat zien hoe je in VBA hele rijen of kolommen kunt selecteren en ermee kunt werken.
Eerst behandelen we hoe je hele rijen en kolommen selecteert, daarna laten we zien hoe je rijen en kolommen kunt manipuleren.
Selecteer hele rijen of kolommen
Selecteer enkele rij
U kunt een hele rij selecteren met het Rijen-Object zoals dit:
Rows(5).Select
Of u kunt EntireRow gebruiken samen met de Objecten Bereik of Cellen:
Range("B5").EntireRow.Select
of
Cells(5,1).EntireRow.Select
U kunt het Range-object ook gebruiken om specifiek naar een rij te verwijzen:
Range("5:5").Select
Selecteer enkele kolom
In plaats van het Rows Object gebruikt u het Columns Object om kolommen te selecteren. Hier kunt u verwijzen naar het kolomnummer 3:
Columns(3).Select
of de letter “C”, omgeven door aanhalingstekens:
Columns("C").Select
In plaats van EntireRow gebruikt u EntireColumn samen met de Range- of Cells Objects om hele kolommen te selecteren:
Range("C5").EntireColumn.Select
of
Cells(5,3).EntireColumn.Select
U kunt ook het Range-Object gebruiken om specifiek naar een kolom te verwijzen:
Range("B:B").Select
Meerdere rijen of kolommen selecteren
Het selecteren van meerdere rijen of kolommen werkt precies hetzelfde bij gebruik van EntireRow of EntireColumn:
Range("B5:D10").EntireRow.Select
of
Range("B5:B10").EntireColumn.Select
Wanneer u echter de Objecten Rijen of Kolommen gebruikt, moet u de rijnummers of kolomletters tussen aanhalingstekens invoeren:
Rows("1:3").Select
of
Columns("B:C").Select
Selecteer ActiveCell Rij of Kolom
Om de ActiveCell Rij of Kolom te selecteren, kunt u een van deze regels code gebruiken:
ActiveCell.EntireRow.Select
of
ActiveCell.EntireColumn.Select
Rijen en kolommen selecteren op andere werkbladen
Om rijen of kolommen op andere werkbladen te selecteren, moet u eerst het werkblad selecteren.
Sheets("Sheet2").SelectRows(3).Select
Hetzelfde geldt voor het selecteren van rijen of kolommen in andere werkmappen.
Workbooks("Book6.xlsm").ActivateSheets("Sheet2").SelectRows(3).Select
Note: U moet de gewenste werkmap activeren. In tegenstelling tot het Sheets Object heeft het Workbook Object geen Select Method.
Is het selecteren van rijen en kolommen noodzakelijk?
Het is echter (bijna?) nooit nodig om daadwerkelijk rijen of kolommen te selecteren. Je hoeft geen rij of kolom te selecteren om er iets mee te doen. In plaats daarvan kun je Methods of Eigenschappen direct op de Rows of Kolommen toepassen. De volgende secties laten verschillende methoden en eigenschappen zien die kunnen worden toegepast.
U kunt elke hierboven genoemde methode gebruiken om naar rijen of kolommen te verwijzen.
Methodes en Eigenschappen van Rijen & Kolommen
Verwijder hele rijen of kolommen
Om rijen of kolommen te verwijderen, gebruikt u de Delete Methode:
Rows("1:4").Delete
of:
Columns("A:D").Delete
Rijen of kolommen invoegen
Gebruik de Insert Methode om rijen of kolommen in te voegen:
Rows("1:4").Insert
of:
Columns("A:D").Insert
Kopiëren & Gehele rijen of kolommen plakken
Plakken in bestaande rij of kolom
Bij het kopiëren en plakken van hele rijen of kolommen moet u beslissen of u over een bestaande rij/kolom wilt plakken of dat u een nieuwe rij/kolom wilt invoegen om uw gegevens in te plakken.
Deze eerste voorbeelden kopiëren en plakken over een bestaande rij of kolom:
Range("1:1").Copy Range("5:5")
of
Range("C:C").Copy Range("E:E")
Invoegen &Plakken
De volgende voorbeelden plakken in een nieuw ingevoegde rij of kolom.
Dit kopieert rij 1 en voegt deze in in rij 5, waardoor de bestaande rijen naar beneden verschuiven:
Range("1:1").CopyRange("5:5").Insert
Dit kopieert kolom C en voegt deze in in kolom E, waardoor de bestaande kolommen naar rechts verschuiven:
Range("C:C").CopyRange("E:E").Insert
Rijen en kolommen verbergen/onthullen
Om rijen of kolommen te verbergen, stelt u hun verborgen eigenschappen in op Waar. Gebruik False om de rijen of kolommen te verbergen:
'Hide RowsRows("2:3").EntireRow.Hidden = True'Unhide RowsRows("2:3").EntireRow.Hidden = False
of
'Hide ColumnsColumns("B:C").EntireColumn.Hidden = True'Unhide ColumnsColumns("B:C").EntireColumn.Hidden = False
Group / UnGroup Rows and Columns
Als u rijen (of kolommen) wilt groeperen, gebruikt u code als deze:
'Group RowsRows("3:5").Group'Group ColumnsColumns("C:D").Group
Om de groepering te verwijderen gebruik je deze code:
'Ungroup RowsRows("3:5").Ungroup'Ungroup ColumnsColumns("C:D").Ungroup
Dit vouwt alle “gegroepeerde” omlijningsniveaus uit:
ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8
en dit vouwt alle omlijningsniveaus in:
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
Rijhoogte of kolombreedte instellen
Om de kolombreedte in te stellen gebruikt u deze regel code:
Columns("A:E").ColumnWidth = 30
Om de rijhoogte in te stellen gebruikt u deze regel code:
Rows("1:1").RowHeight = 30
Autofit Rijhoogte / Kolombreedte
Om een kolom Autofit te maken:
Columns("A:B").Autofit
Om een rij Autofit te maken:
Rows("1:2").Autofit
Rijen en kolommen op andere werkbladen of werkmappen
Om met rijen en kolommen op andere werkbladen te kunnen werken, moet u het object Sheets definiëren:
Sheets("Sheet2").Rows(3).Insert
Om met rijen en kolommen in andere werkmappen te werken, moet u ook het Workbook-object definiëren:
Workbooks("book1.xlsm").Sheets("Sheet2").Rows(3).Insert
Actieve rij of kolom opvragen
Om de actieve rij of kolom op te vragen, kunt u de rij- en kolomeigenschappen van het ActiveCell-object gebruiken.
MsgBox ActiveCell.Row
of
MsgBox ActiveCell.Column
Dit werkt ook met het Range-Object:
MsgBox Range("B3").Column