Ta vadnica vam bo pokazala, kako uporabljati lastnost Range.End v VBA.
Večino stvari, ki jih delate ročno v Excelovem delovnem zvezku ali na delovnem listu, je mogoče avtomatizirati v kodi VBA.
Če imate v Excelu vrsto praznih celic in pritisnete Ctrl+puščica dol, se bo kazalec premaknil v zadnjo prazno celico v stolpcu, v katerem ste. Podobno, če pritisnete Ctl+puščica navzgor, se kazalec premakne v prvo prazno celico. Enako velja za vrstico z uporabo Ctrl+puščica desno ali Ctrl+puščica levo za začetek ali konec vrstice. Vse te kombinacije tipk lahko uporabite v kodi VBA z uporabo Končana funkcija.
Sintaksa končne lastnosti obsega
Lastnost Range.End vam omogoča, da se premaknete v določeno celico v trenutni regiji, s katero delate.
izraz.Konec (Smer)
izraz je naslov celice (obseg) celice, od katere želite začeti, npr .: obseg ("A1")
END je lastnost predmeta Range, ki ga nadziramo.
Smer je Excelova konstanta, ki jo lahko uporabljate. Na voljo so 4 možnosti - xlDown, xlToLeft, xlToRight in xlUp.
Premik v zadnjo celico
Spodnji postopek vas bo premaknil v zadnjo celico v trenutni regiji celic, v kateri ste.
| 1234 | Sub GoToLast ()'premakni se na zadnjo celico, zasedeno v trenutnem območju celicObseg ("A1"). Konec (xlDown) .IzberiEnd Sub |
Štetje vrstic
Naslednji postopek vam omogoča uporabo xlDown konstanta z lastnostjo Range End za štetje, koliko vrstic je v vaši trenutni regiji.
| 12345678 | Sub GoToLastRowofRange ()Zatemni rw kot celo številoRazpon ("A1"). Izberite'dobite zadnjo vrstico v trenutni regijirw = Razpon ("A1"). Konec (xlDown) .Row'pokaži, koliko vrstic je uporabljenihMsgBox "Zadnja vrstica, uporabljena v tem obsegu, je" & rwEnd Sub |
Spodnji bo štel stolpce v obsegu z uporabo xlToRight konstantno.
| 12345678 | Sub GoToLastCellofRange ()Dim col kot celo številoRazpon ("A1"). Izberite'dobite zadnji stolpec v trenutni regijicol = obseg ("A1"). konec (xlToRight). stolpec'pokaži, koliko stolpcev je uporabljenihMsgBox "Zadnji stolpec, uporabljen v tem obsegu, je" & colEnd Sub |
Ustvarjanje niza razponov
Spodnji postopek nam omogoča, da začnemo pri prvi celici v obsegu celic in nato z lastnostjo End (xlDown) poiščemo zadnjo celico v obsegu celic. Nato lahko ponovno določimo matriko s skupnimi vrsticami v obsegu in nam tako omogočimo prehod skozi obseg celic.
| 123456789101112131415161718 | Sub PopulateArray ()'razglasi matrikoZatemni strSuppliers () As String'razglasite celo število za štetje vrsticDim n kot celo število'štej vrsticen = Razpon ("B1", Razpon ("B1"). Konec (xlDown)). Vrstice. Število'inicializirajte in napolnite matrikoReDim strCustomers (n)'razglasi celo število za zankoDim i kot celo število'napolni matrikoZa i = 0 Za nstrCustomers (i) = Obseg ("B1"). Odmik (i, 0). VrednostNaprej i'pokaži polje s sporočilom z vrednostmi poljaPridružite se MsgBox (strCustomers, vbCrLf)End Sub |
Ko zaženemo ta postopek, se vrne naslednje polje s sporočilom.
