Wanneer we de VBA-codering schrijven om onszelf te redden van het repetitieve werk, speelt de selectie van gegevens een zeer belangrijke rol. In dit artikel leert u dus hoe u de gegevens per rij, kolom en hele documentgegevens kunt selecteren via VBA-codering in Microsoft Excel.
Je zal leren:
- Hoe de hele kolom selecteren?
- Hoe de hele rij selecteren?
- Hoe volledige gegevens selecteren?
Hoe de hele kolom te selecteren via VBA?
We hebben gegevens in het bereik A1:C19, waarbij kolom A Naam bevat, kolom B Geslacht en kolom C Leeftijd.
Om de hele kolom A in deze gegevens te selecteren, volgt u de onderstaande stappen en code: -
- Open VBA-pagina druk op de toets Alt+F11
- Een module invoegen
- Schrijf de onderstaande code:
Sub Columnselect() Range("A1").Hele kolom.Select End Sub
- Druk op de toets F5 om de macro in Excel uit te voeren
- Kolom A wordt geselecteerd
Als u wilt dat gegevens worden geselecteerd tot de laatste actieve cel in de kolom, volgt u de onderstaande stappen en code: -
- Schrijf de onderstaande code: -
Sub Columnselect() lastrow = Worksheets("Blad1").Cells(Rows.count, 1).End(xlUp).Row Worksheets("Blad1").Range("A1:A" & lastrow).Select End Sub
Code Uitleg: - Eerst zullen we definiëren wat de laatste actieve cel in gegevens zal zijn, en dan zullen we de laatste rij gebruiken om het bereik in codering te definiëren.
- Druk op de toets F5 om de macro in Excel uit te voeren
- Kolom A1:A19 wordt geselecteerd
Op deze manier kunt u met behulp van VBA de code selecteren om de kolom te selecteren tot de laatste actieve cel. Als we niet weten wat de laatste actieve cel is, kunnen we deze code gebruiken tijdens het schrijven van de VBA-code voor de selectie in Microsoft Excel.
Hoe de hele rij via VBA te selecteren?
We hebben gegevens in het bereik A1:C19, waarbij kolom A Naam bevat, kolom B Geslacht en kolom C Leeftijd.
Om de hele rij in deze gegevens te selecteren, volgt u de onderstaande stappen en code: -
- Open VBA-pagina druk op de toets Alt+F11
- Een module invoegen
- Schrijf de onderstaande code: -
Sub rowselect() Range("A2").EntireRow.Select End Sub
- Druk op de toets F5 om de macro in Excel uit te voeren
- Kolom A wordt geselecteerd
Als u wilt dat gegevens worden geselecteerd tot de laatste actieve cel in de rij, volgt u de onderstaande stappen en code: -
- Schrijf de onderstaande code: -
Sub rowselect() Dim lastcolumn As Long lastcolumn = Worksheets("Sheet1").Cells(1, Columns.count).End(xlToLeft).Column Worksheets("Sheet1").Range("A1", Cells(1, lastcolumn) )).Selecteer End Sub
Code Uitleg: In deze code hadden we eerst de laatste kolom gedefinieerd, daarna zullen we die gebruiken om het bereik te definiëren.
- Druk op F5 om de macro in Excel uit te voeren
- De eerste rij wordt geselecteerd tot de laatste actieve cel in de rij
Op deze manier kunnen we de hele rij selecteren of de rij selecteren tot de laatste actieve cel in Microsoft Excel via VBA.
Hoe volledige gegevens selecteren via VBA?
Laten we een voorbeeld nemen en begrijpen: -
We hebben gegevens in het bereik A1:C19, waarbij kolom A Naam bevat, kolom B Geslacht en kolom C Leeftijd.
Om de gegevens van de eerste cel tot de laatste actieve cel te selecteren, volgt u de onderstaande stappen en code: -
- Open VBA-pagina druk op de toets Alt+F11
- Een module invoegen
- Schrijf de onderstaande code:
Sub Selectie van laatste cel () Dim laatste rij zo lang, laatste kolom As Lang laatste rij = werkbladen ("Blad1"). Cellen (rijen. aantal, 1). Einde (xlOmhoog). Rij laatste kolom = werkbladen ("Blad1"). Cellen (1, kolommen .count).End(xlToLeft).Column Worksheets("Blad1").Range("A1", Cells(lastrow, lastcolumn)).Select End Sub
Code Uitleg: Eerst hebben we de Onderwerpnaam van Code gedefinieerd, daarna hebben we alle variabelen gedefinieerd. Vervolgens hebben we gedefinieerd wat onze laatste rij en laatste kolom zou zijn.
- Druk op de toets F5 om de macro in Excel uit te voeren
- In het werkblad worden alle gegevens geselecteerd
Als u nu dezelfde gegevens wilt kopiëren en plakken, gebruik dan onderstaande code: -
Sub Selectie van laatste cel () Dim laatste rij zo lang, laatste kolom As Lang laatste rij = werkbladen ("Blad1"). Cellen (rijen. aantal, 1). End (xlUp). Rij laatste kolom = werkbladen ("Blad1"). Cellen (1, kolommen .count).End(xlToLeft).Column Worksheets("Blad1").Range("A1", Cellen(laatste rij, laatstekolom)).Copy Sheets("Blad2").Range("A1") End Sub
Voer de code uit, alle gegevens worden gekopieerd en geplakt in blad 2.
Dit is de manier waarop we de macro kunnen schrijven om de gegevens van de eerste cel tot de laatste actieve cel te selecteren en vervolgens in een ander blad in Microsoft Excel te plakken.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op e-mailsite.