Conţinut
Uneori trebuie să cunoaștem numărul de rânduri folosite într-o foaie de calcul Excel, astfel încât să putem crea o formulă sau chiar o macrocomandă VBA. Din fericire, există câteva moduri destul de ușor de făcut și Excel VBA este doar unul dintre ele.Cea mai ușoară modalitate de a afla aceste informații este să mergeți în partea de jos a foii de lucru și să priviți numărul din dreapta ultimului punct de date; cu toate acestea, cu VBA, acest calcul este extrem de simplu.
instrucțiuni de ghidare
-
Deschideți foaia de lucru Excel și editorul VBA apăsând "Alt + F11".
-
Porniți un nou fișier proiect VBA făcând clic dreapta pe agenda dvs., afișat în meniul din dreapta și selectând "Nou".
-
Porniți noua funcție tastând "Sub CountRows ()". Acest lucru îi spune compilatorului VBA că există o nouă subrutină pentru fișierul proiectului. Dacă preferați să redenumiți subrutina, modificați textul "CountRows" la orice nume dorit, care trebuie urmat de parantezele de mai sus, de exemplu "YourName ()".
-
Creați o variabilă care include textul "Dim Count Count as Long" pe următoarea linie.
-
Introduceți următorul cod:
Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) .Selectați buclă până la IsEmpty (ActiveCell.Offset (0, 1))
Acest lucru informează programul de compilator că este necesar să analizăm variabila Count și apoi să numărăm rândurile întregii foi de lucru. Codul adaugă o variabilă la Total Count și apoi se mută la celula următoare atâta timp cât este goală. Când ajunge într-o celulă goală, execuția se oprește.
-
Activați o casetă de text adăugând o linie nouă cu textul "MsgBox Count". Aceasta va afișa o casetă pop-up care vă indică numărul total de rânduri. Pentru a face caseta un pic mai utilă, puteți introduce orice text suplimentar. Redenumiți linia la:
MsgBox "Nu există" [count number] "lines"
Puteți modifica textul în ghilimele dorite.
-
În cele din urmă, tastați "End Sub" într-o linie nouă pentru a părăsi funcția de subrutină.
Programarea macrocomenzii
-
Reveniți la foaia de lucru Excel și salvați-o.
-
Evidențiați prima celulă de coloană care conține cel mai mare număr de date. Această coloană nu trebuie să conțină celule goale de sus în jos.
-
Deschideți meniul "Instrumente" și selectați "Macrocomenzi" pentru a afișa o casetă de dialog care conține toate macrocomenzile programate pentru foaia de lucru.
-
Selectați macro-ul creat în Secțiunea 1, cu numele "CountRows" sau orice alt nume pe care l-ați dat și faceți clic pe "Run". Când este terminat, macro-ul va afișa o casetă de text pop-up care vă spune numărul de rânduri umplute
Rularea macro-ului
sfaturi
- Dacă trebuie doar să obțineți un număr, o alternativă mai ușoară și mai simplă este să numărați rândurile utilizând o formulă. Într-o celulă necompletată, tastați "= COUNT (A: A, IF (A> 0,1,0))", unde A este coloana a cărei număr de rânduri este înregistrat.