See õpetus näitab teile, kuidas kasutada atribuuti Range.End VBA -s.
Enamikku Exceli töövihikus või töölehel käsitsi tehtavaid asju saab VBA -koodis automatiseerida.
Kui teil on Excelis hulk lahtreid, mis pole tühjad, ja vajutate Ctrl+allanool, liigub kursor sellesse veergu, mis pole tühi, lahtrisse. Samamoodi, kui vajutate Ctl+ülesnool, liigub kursor esimesse lahtrisse, mis pole tühi. Sama kehtib rea kohta, mis kasutab Ctrl+paremnool või Ctrl+vasaknool selle rea algusesse või lõppu liikumiseks. Kõiki neid klahvikombinatsioone saab kasutada oma VBA -koodis, kasutades Lõppfunktsioon.
Vahemiku lõpu atribuudi süntaks
Atribuut Range.End võimaldab teil liikuda praeguse piirkonna konkreetsesse lahtrisse, millega te töötate.
väljendus.Lõpp (Suund)
avaldis on lahtri aadress (vahemik), kust soovite alustada, nt: vahemik ("A1")
LÕPP on kontrollitava vahemiku objekti omadus.
Suund on Exceli konstant, mida saate kasutada. Saadaval on 4 valikut - xlDown, xlToLeft, xlToRight ja xlUp.
Viimasesse lahtrisse liikumine
Allolev protseduur viib teid praeguse lahtrite piirkonna viimase lahtri juurde, kus te viibite.
| 1234 | Sub GoToLast ()'liikuda lahtri praeguses piirkonnas viimasele hõivatud lahtrileVahemik ("A1"). Lõpp (xlDown). ValigeEnd Sub |
Ridade loendamine
Järgmine protseduur võimaldab teil kasutada xlAla konstant atribuudi Range End abil, et lugeda, mitu rida on teie praeguses piirkonnas.
| 12345678 | Sub GoToLastRowofRange ()Dim rw Nagu täisarvVahemik ("A1"). Valige'saada praeguse piirkonna viimane ridarw = vahemik ("A1"). lõpp (xlDown). rida'näidake, kui palju ridu kasutatakseMsgBox "Viimane selles vahemikus kasutatav rida on" & rwEnd Sub |
Kuigi allpool olev loendab vahemiku veerge, kasutades xlToRight konstantne.
| 12345678 | Sub GoToLastCellofRange ()Dim col As IntegerVahemik ("A1"). Valige'saada praeguse piirkonna viimane veergcol = Vahemik ("A1"). Lõpp (xlToRight). Veerg'näitab, kui palju veerge kasutatakseMsgBox "Viimane selles vahemikus kasutatav veerg on" & colEnd Sub |
Vahemiku massiivi loomine
Allolev protseduur võimaldab meil alustada lahtrivahemiku esimesest lahtrist ja seejärel kasutada omadust End (xlDown), et leida lahtrivahemiku viimane lahter. Seejärel saame oma massiivi muuta vahemiku ridade koguarvuga, võimaldades seeläbi lahtrite vahemikus ringi liikuda.
| 123456789101112131415161718 | Sub PopulateArray ()'kuulutage massiivDim strSuppliers () stringina'kuulutage ridade lugemiseks täisarvDim n Nagu täisarv'loe ridun = vahemik ("B1", vahemik ("B1"). lõpp (xlDown)). Ridad. arv'initsialiseeri ja täida massiivReDim strCustomers (n)'deklareerige täisarv arveldamiseksDim i As täisarv'täitke massiivSest i = 0 kuni nstrCustomers (i) = Vahemik ("B1"). Nihe (i, 0) .VäärtusEdasi i'kuvab sõnumikast massiivi väärtustegaMsgBoxi liitumine (strCustomers, vbCrLf)End Sub |
Selle protseduuri käivitamisel tagastab see järgmise teate.
