Unul dintre lucrurile minunate despre Microsoft Excel este abilitatea de a automatiza funcții utile. Atunci când o foaie de calcul pentru afaceri conține sute sau chiar mii de rânduri, este posibil să aveți dificultăți la manevrare prin celulele sale. Eliminați această problemă construindu-vă propria funcție de căutare. Utilizând câteva linii de cod, puteți crea un Sub VBA care găsește ultimul rând dintr-o foaie de calcul și merge automat la acesta.
1
Lansați Excel și deschideți o foaie de calcul care conține mai multe coloane.
2
Apăsați „Alt-F11” pentru a deschide editorul „Visual Basic” și faceți clic pe „Insert | Modul." VBA adaugă un nou modul la fereastra Proiect.
3
Lipiți următorul cod în fereastra de editare care apare în dreapta ferestrei Proiect:
Sub SelectLastRow () Dim finalRow As Integer
finalRow = ActiveSheet.UsedRange.Rows.Count
Dacă finalRow = 0 Atunci finalRow = 1 End If
Rânduri (finalRow). Selectați End Sub
Această secundară determină ultimul rând al foii de calcul examinând proprietatea Numărare a colecției de rânduri. Sub apoi stochează acea valoare în variabila finalRow. Declarația finală a Sub-ului transmite valoarea finalRow către metoda VBA Select.
4
Apăsați „F5” pentru a rula Sub. Metoda Select selectează ultimul rând al foii de calcul, merge la rândul respectiv și îl evidențiază.