Deze zelfstudie laat u zien hoe u de eigenschap Range.End in VBA gebruikt.
De meeste dingen die u handmatig doet in een Excel-werkmap of -werkblad, kunnen worden geautomatiseerd in VBA-code.
Als u een reeks niet-lege cellen in Excel hebt en u drukt op Ctrl+pijl omlaag, uw cursor gaat naar de laatste niet-lege cel in de kolom waarin u zich bevindt. Evenzo, als u op drukt Ctrl+pijl omhoog, zal uw cursor naar de eerste niet-lege cel gaan. Hetzelfde geldt voor een rij met de Ctrl+pijl naar rechts of Ctrl+pijl naar links om naar het begin of einde van die rij te gaan. Al deze toetscombinaties kunnen binnen uw VBA-code worden gebruikt met behulp van de Functie beëindigen.
Syntaxis voor bereik einde eigenschap
Met de eigenschap Range.End kunt u naar een specifieke cel gaan binnen de huidige regio waarmee u werkt.
uitdrukking.Einde (Richting)
de uitdrukking is het celadres (Bereik) van de cel waar u wilt beginnen, bijvoorbeeld: Bereik ("A1")
END is de eigenschap van het Range-object dat wordt bestuurd.
Richting is de Excel-constante die u kunt gebruiken. Er zijn 4 keuzes beschikbaar - xlOmlaag, xlNaarLinks, xlNaarRechts en xlUp.
Naar de laatste cel gaan
Met de onderstaande procedure gaat u naar de laatste cel in het huidige celgebied waarin u zich bevindt.
| 1234 | Sub GaNaarLaatste()'verplaats naar de laatste cel die bezet is in het huidige celgebied'Bereik ("A1"). Einde (xlOmlaag). SelecteerEinde sub |
Rijen tellen
Met de volgende procedure kunt u de xlOmlaag constante met de eigenschap Range End om te tellen hoeveel rijen zich in uw huidige regio bevinden.
| 12345678 | Sub GoToLastRowofRange()Dim rw als geheel getalBereik ("A1"). Selecteer'haal de laatste rij in de huidige regio'rw = Bereik ("A1"). Einde (xlOmlaag). Rij'laat zien hoeveel rijen worden gebruikt'MsgBox "De laatste rij die in dit bereik wordt gebruikt is " & rwEinde sub |
Terwijl de onderstaande de kolommen in het bereik telt met behulp van de xlNaarRechts constante.
| 12345678 | Sub GoToLastCellofRange()Dim col als geheel getalBereik ("A1"). Selecteer'haal de laatste kolom in de huidige regio'col = Bereik ("A1"). Einde (xlNaarRechts).Kolom'laat zien hoeveel kolommen er worden gebruikt'MsgBox "De laatste kolom die in dit bereik wordt gebruikt is " & colEinde sub |
Een bereikarray maken
Met de onderstaande procedure kunnen we beginnen bij de eerste cel in een cellenbereik en vervolgens de eigenschap End(xlDown) gebruiken om de laatste cel in het cellenbereik te vinden. We kunnen dan onze array opnieuw dimmen met de totale rijen in het bereik, waardoor we door het bereik van cellen kunnen lopen.
| 123456789101112131415161718 | Sub PopulateArray()'declareer de array'Dim strSuppliers() As String'declareer het gehele getal om de rijen te tellen'Dim n als geheel getal'tel de rijen'n = Bereik ("B1", Bereik ("B1"). Einde (xlOmlaag)). Rijen. Aantal'initialiseer en vul de array'ReDim strKlanten(n)'declareer het gehele getal voor looping'Dim ik als geheel getal'vul de array'Voor i = 0 tot nstrCustomers(i) = Range("B1").Offset(i, 0).Waardevolgende i'toon berichtvenster met waarden van array'MsgBox Join (strCustomers, vbCrLf)Einde sub |
Wanneer we deze procedure uitvoeren, wordt het volgende berichtvenster geretourneerd.
