Tento tutoriál vám ukáže, ako používať vlastnosť Range.End vo VBA.
Väčšinu vecí, ktoré robíte ručne v excelovom zošite alebo pracovnom hárku, je možné automatizovať v kóde VBA.
Ak máte v programe Excel rozsah prázdnych buniek a stlačíte Ctrl+šípka nadol, sa váš kurzor presunie na poslednú prázdnu bunku v stĺpci, v ktorom sa nachádzate. Podobne, ak stlačíte Ctl+šípka hore, váš kurzor sa presunie do prvej prázdnej bunky. To isté platí pre riadok pomocou Ctrl+šípka doprava alebo Ctrl+šípka doľava prejsť na začiatok alebo koniec tohto riadka. Všetky tieto kombinácie klávesov je možné použiť vo vašom kóde VBA pomocou súboru Koncová funkcia.
Syntax vlastnosti koncového rozsahu
Vlastnosť Range.End vám umožňuje prejsť na konkrétnu bunku v aktuálnej oblasti, s ktorou pracujete.
výraz.Koniec (Smer)
výraz je adresa bunky (rozsah) bunky, od ktorej chcete začať, napr .: rozsah („A1“)
END je vlastnosť ovládaného objektu Range.
Smer je konštanta programu Excel, ktorú môžete použiť. K dispozícii sú 4 možnosti - xlDown, xlToLeft, xlToRight a xlUp.
Prechod na poslednú bunku
Nasledujúci postup vás presunie do poslednej bunky v aktuálnej oblasti buniek, v ktorých sa nachádzate.
1234 | Sub GoToLast ()'prejsť na poslednú bunku obsadenú v aktuálnej oblasti buniekRozsah („A1“). Koniec (xlDown). VyberteKoniec pod |
Počítanie riadkov
Nasledujúci postup vám umožňuje použiť xlDown konštanta s vlastnosťou Range End na spočítanie počtu riadkov vo vašej aktuálnej oblasti.
12345678 | Sub GoToLastRowofRange ()Dim rw As IntegerRozsah („A1“). Vyberte'získať posledný riadok v aktuálnom regiónerw = Rozsah ("A1"). Koniec (xlDown). Riadok'Ukážte, koľko riadkov sa používaMsgBox „Posledný riadok použitý v tomto rozsahu je“ & rwKoniec pod |
Nasledujúci bude počítať stĺpce v rozsahu pomocou xlToRight konštantný.
12345678 | Sub GoToLastCellofRange ()Dim col ako celé čísloRozsah („A1“). Vyberte'získať posledný stĺpec v aktuálnom regiónecol = Rozsah ("A1"). Koniec (xlToRight). Stĺpec„Ukážte, koľko stĺpcov sa používaMsgBox „Posledný stĺpec použitý v tomto rozsahu je“ & colKoniec pod |
Vytvorenie rozsahového poľa
Nasledujúci postup nám umožňuje začať od prvej bunky v rozsahu buniek a potom pomocou vlastnosti End (xlDown) nájsť poslednú bunku v rozsahu buniek. Potom môžeme naše pole premenovať na celkový počet riadkov v rozsahu, čo nám umožní prechádzať rozsahom buniek.
123456789101112131415161718 | Sub PopulateArray ()'deklarujte poleDim strSuppliers () ako reťazec'deklarujte celé číslo na počítanie riadkovDim n ako celé číslo„spočítaj riadkyn = Rozsah ("B1", Rozsah ("B1"). Koniec (xlDown)). Riadky. Počet'inicializujte a naplňte poleZákazníci ReDim (n)'deklarujte celé číslo pre opakovanieDim i As Integer“naplňte polePre i = 0 až nstrCustomers (i) = Range ("B1"). Offset (i, 0) .HodnotaĎalej i'zobraziť pole správy s hodnotami poľaPripojenie MsgBox (strCustomers, vbCrLf)Koniec pod |
Keď spustíme tento postup, vráti nasledujúce okno so správou.