Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte tabuľku programu Excel a otvorte editor VBA stlačením " Alt + F11 . "
2
začať nový VBA súbor projektu kliknutím pravým tlačidlom myši zošit v ponuke vpravo a výberom " Nový " možnosť voľby .
3
spustite novú funkciu zadaním " Sub CountRows ( ) . " , To informuje VBA kompilátora , že je nový podprogram v súbore projektu . Ak dávate prednosť , aby podprogram iné meno , stačí zmeniť " CountRows " na čo chcete , keď poviem , ale to musí mať otvorené a uzavreté zátvorky za to, ako v " yourname ( ) " .
Stránka 4
Vytvorte premennú , vrátane " Dim Count Long " na ďalšom riadku
5
Zadajte nasledujúci kód : .
Count = 0DoCount = Count + 1ActiveCell.Offset ( 1 , 0 ) . SelectLoop do IsEmpty ( ActiveCell.Offset ( 0 , 1 ) )
hovorí kompilátora program , ktorý ako prvý jasne z premennej grófa , potom dať do pohybu pomocou tabuľky . Dodáva jeden na celkovom počte , a potom sa pohybuje nadol do ďalšej bunky , ak je ďalší bunka prázdna . Keď sa dostane prázdnu bunku , bude to zastaviť beh .
6
Prineste správou pridaním nového riadku s " Count MsgBox " v ňom . Tým sa zobrazí pop - up okno s celkovým počtom riadkov v ňom . Ak chcete , aby okno správ sa zdá trochu užitočné , môžete pridať nejaký ďalší text k tomu . Zmeňte riadok takto :
MsgBox " Existuje " Count " Riadky "
môžete zmeniť text medzi úvodzovkami sa spôsobom , čo by ste chceli , aby to bolo .
7
Konečne , typ " End Sub " v novom riadku uzavrieť funkciu von .
Beh na makro
8
vráťte sa do tabuľky programu Excel , a uložte ho .
9
Zvýraznite prvú bunku v stĺpci s najviac dát . To bude stĺpec , ktorý nemá žiadne prázdne bunky medzi hornou a dolnej časti .
10
Otvorte menu " Nástroje " a vyberte " makrá " , aby sa dialógové okno makrá so všetkými makrami naprogramovaných do tabuľky .
11
Vyberte makro z § 1 , " CountRows " alebo čo meno , to dal . Kliknite na tlačidlo " Spustiť " . Po dokončení , bude makro pop - up so správou o počte riadkov , ktoré ste vyplnil okno so správou .
Copyright © počítačové znalosti Všetky práva vyhradené