Ovaj vodič će vam pokazati kako koristiti svojstvo Range.End u VBA -i.
Većina stvari koje radite ručno u radnoj knjizi ili radnom listu programa Excel mogu se automatizirati u VBA kodu.
Ako u nizu Excel imate niz praznih ćelija, pritisnite Ctrl+strelica dolje, kursor će se pomaknuti na posljednju ćeliju koja nije prazna u stupcu u kojem se nalazite. Slično, ako pritisnete Ctl+strelica gore, kursor će se premjestiti u prvu ćeliju koja nije prazna. Isto vrijedi i za redak koji koristi Ctrl+strelica udesno ili Ctrl+strelica ulijevo da biste otišli na početak ili kraj tog retka. Sve ove kombinacije tipki mogu se koristiti unutar vašeg VBA koda pomoću Završna funkcija.
Sintaksa krajnjeg svojstva raspona
Svojstvo Range.End omogućuje vam premještanje u određenu ćeliju unutar trenutne regije s kojom radite.
izraz.Kraj (Smjer)
izraz je adresa ćelije (raspon) ćelije od koje želite početi, npr .: raspon ("A1")
END je svojstvo objekta Range koji se kontrolira.
Smjer je Excel konstanta koju možete koristiti. Dostupna su 4 izbora - xlDown, xlToLeft, xlToRight i xlUp.
Prelazak na posljednju ćeliju
Postupak u nastavku premjestit će vas na posljednju ćeliju u trenutnoj regiji ćelija u kojoj se nalazite.
| 1234 | Sub GoToLast ()'premjestiti na posljednju ćeliju zauzetu u trenutnoj regiji stanicaRaspon ("A1"). Kraj (xlDown) .OdaberiteKraj podm |
Brojanje redova
Sljedeći postupak omogućuje vam korištenje xlDown konstanta sa svojstvom Kraj raspona za brojanje koliko je redaka u vašoj trenutnoj regiji.
| 12345678 | Sub GoToLastRowofRange ()Dim rw kao cijeli brojRaspon ("A1"). Odaberite'dohvati zadnji redak u trenutnoj regijirw = Raspon ("A1"). Kraj (xlDown) .Red'pokazati koliko se redaka koristiMsgBox "Posljednji redak koji se koristi u ovom rasponu je" & rwKraj podm |
Dok će donji brojati stupce u rasponu pomoću xlToRight konstantno.
| 12345678 | Sub GoToLastCellofRange ()Dim col Kao cijeli brojRaspon ("A1"). Odaberite'dohvati zadnji stupac u trenutnoj regijicol = Raspon ("A1"). Kraj (xlToRight) .Stopac'pokazati koliko se stupaca koristiMsgBox "Posljednji stupac koji se koristi u ovom rasponu je" & colKraj podm |
Stvaranje raspona niza
Dolje navedeni postupak omogućuje nam da počnemo od prve ćelije u nizu ćelija, a zatim pomoću svojstva Kraj (xlDown) pronađemo posljednju ćeliju u rasponu ćelija. Zatim možemo ponovno prilagoditi niz s ukupnim brojem redaka u rasponu, dopuštajući nam tako petlju kroz raspon ćelija.
| 123456789101112131415161718 | Potpopulacijski niz ()'deklarirajte nizDim strSuppliers () As String'deklarirajte cijeli broj za brojanje redakaDim n kao cijeli broj'broji redoven = Raspon ("B1", Raspon ("B1"). Kraj (xlDown)). Rows.Count'inicijalizirati i popuniti nizReDim strCustomers (n)'deklarirajte cijeli broj za petljuDim i Kao cijeli broj'popunite nizZa i = 0 To nstrCustomers (i) = Raspon ("B1"). Odstupanje (i, 0). VrijednostSljedeći i'prikaži okvir s porukama s vrijednostima poljaMsgBox Pridruživanje (strCustomers, vbCrLf)Kraj podm |
Kada pokrenemo ovaj postupak, vratit će se sljedeći okvir s porukom.
