De la Active Cell la ultima intrare în Excel VBA

Acest exemplu ilustrează proprietatea End a obiectului Range din Excel VBA. Vom folosi această proprietate pentru a selecta intervalul de la celula activă la ultima intrare într-o coloană.

Situatie:

Unele cifre de vânzări în coloana A. Să presupunem că veți adăuga mai multe cifre de vânzări în timp.

De la Active Cell la ultima intrare în Excel VBA

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

1. Pentru a selecta ultima intrare într-o coloană, pur și simplu adăugați următoarea linie de cod:

Range("A5").End(xlDown).Select

Notă: în locul Intervalului ("A5"), puteți utiliza și Range ("A1"), Range ("A2") etc. Această linie de cod este echivalentă cu apăsarea tastei END + DOWN ARROW.

Rezultat când faceți clic pe butonul de comandă de pe foaie:

2. Pentru a selecta intervalul de la celula A5 la ultima intrare din coloană, adăugați următoarea linie de cod:

Range(Range("A5"), Range("A5").End(xlDown)).Select

Rezultat când faceți clic pe butonul de comandă de pe foaie:

3. Pentru a selecta intervalul de la celula activă la ultima intrare din coloană, pur și simplu înlocuiți Range ("A5") cu ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Rezultat atunci când selectați celula A2 și faceți clic pe butonul de comandă de pe foaie:

De la celulă activă la ultimul rezultat de intrare

Notă: puteți utiliza constantele xlUp, xlToRight și xlToLeft pentru a vă deplasa în celelalte direcții. Astfel puteți selecta un interval din celula activă la ultima intrare dintr-un rând.