Tartalom
Néha tudnunk kell az Excel táblázatban használt sorok számát, hogy létrehozhassunk egy képletet vagy akár egy VBA makrót. Szerencsére van néhány meglehetősen egyszerű módja ennek, és az Excel VBA csak egy.Az információ megkeresésének legegyszerűbb módja a munkalap aljára való belépés, és az utolsó adatpont jobb oldalán lévő szám megnézése; a VBA-val azonban ez a számítás rendkívül egyszerű.
irányok
-
Nyissa meg az Excel munkalapját és a VBA szerkesztőt az "Alt + F11" megnyomásával.
-
Indítson el egy új VBA-projektfájlt a jobb oldali menüjében megjelenő jobb oldali egérgombbal kattintson a munkafüzetre, és válassza az "Új" lehetőséget.
-
Indítsa el az új funkciót a "Sub CountRows ()" beírásával. Ez azt mondja a VBA fordítónak, hogy van egy új szubrutin a projektfájlhoz. Ha inkább a szubrutin átnevezését szeretné átnevezni, akkor módosítsa a "CountRows" szöveget a kívánt névre, amelyet a fenti zárójelek követnek, például "YourName ()".
-
Hozzon létre egy változót, amely a következő sorban tartalmazza a "Dim Count long" (Hosszúság számozása) szöveget.
-
Adja meg a következő kódot:
Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) .Válassza ki a Loop Unet IsEmpty (ActiveCell.Offset (0, 1))
Ez tájékoztatja a fordítóprogramot, hogy szükség van a Count változó elemzésére, majd a teljes munkalap sorainak számolására. A kód egy változót ad hozzá a teljes számhoz, majd a következő cellába lép, amíg az üres. Amikor eléri az üres cellát, a végrehajtás leáll.
-
Aktiválja a szövegmezőt egy új sor hozzáadásával az "MsgBox Count" szöveggel. Ekkor megjelenik egy felugró ablak, amely megadja a sorok számát. Ahhoz, hogy a doboz kicsit hasznosabb legyen, bármilyen további szöveget adhat meg. Sor átnevezése a következőre:
MsgBox "Van" [számszám] "sor"
Az idézőjeleket a kívánt módon módosíthatja.
-
Végül írja be az "End Sub" szót egy új sorba, hogy kilépjen a szubrutin funkcióból.
A makró ütemezése
-
Menjen vissza az Excel munkalapjára és mentse el.
-
Jelölje ki a legnagyobb számú adatot tartalmazó első oszlopcellát. Ez az oszlop nem tartalmazhat üres cellákat a tetejétől az aljáig.
-
Nyissa meg az "Eszközök" menüt, és válassza ki a "Makrók" menüpontot, hogy megjelenjen egy párbeszédpanel, amely tartalmazza a munkalapra programozott összes makrót.
-
Válassza ki az 1. szakaszban létrehozott makrót a "CountRows" névvel vagy bármely más névvel, amelyet megadta, és kattintson a "Futtatás" gombra. Ha elkészült, a makró egy felugró szövegmezőt jelenít meg, amely megadja a betöltött sorok számát
A makró futtatása
tippek
- Ha csak egy számot kell kapnia, a könnyebb és egyszerűbb alternatíva a sorok számítása egy képlet segítségével. Üres cellában írja be: "= COUNT (A: A, IF (A> 0,1,0))", ahol A az a oszlop, amelynek sorszámát megszámoljuk.