Ta primer ponazarja lastnost End predmeta Range v Excel VBA. To lastnost bomo uporabili za izbiro obsega od aktivne celice do zadnjega vnosa v stolpcu.
Situacija:
Nekaj prodajnih številk v stolpcu A. Predpostavimo, da boste sčasoma dodajali več prodajnih številk.
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Če želite izbrati zadnji vnos v stolpec, preprosto dodajte naslednjo kodno vrstico:
Razpon ("A5"). Konec (xlDown) .Izberi
Opomba: namesto obsega ("A5") lahko uporabite tudi obseg ("A1"), obseg ("A2") itd. Ta vrstica kode je enakovredna pritisku na tipko END+puščica dol.
Rezultat, ko kliknete ukazni gumb na listu:
2. Če želite izbrati obseg od celice A5 do zadnjega vnosa v stolpec, dodajte naslednjo kodno vrstico:
Obseg (Razpon ("A5"), Domet ("A5"). Konec (xlDown)). Izberite
Rezultat, ko kliknete ukazni gumb na listu:
3. Če želite izbrati obseg od aktivne celice do zadnjega vnosa v stolpcu, preprosto zamenjajte obseg ("A5") z ActiveCell.
Obseg (ActiveCell, ActiveCell.End (xlDown)). Izberite
Rezultat, ko izberete celico A2 in kliknete ukazni gumb na listu:
Opomba: za premikanje v drugih smereh lahko uporabite konstante xlUp, xlToRight in xlToLeft. Na ta način lahko izberete obseg od aktivne celice do zadnjega vnosa v vrsti.