Manchmal müssen Sie die Anzahl der Zeilen in einer Excel-Tabelle verwendet werden können, entweder für eine Formel oder manchmal sogar ein VBA-Makro . Glücklicherweise gibt es ein paar einfache Möglichkeiten , dies zu erreichen , und Excel VBA ist nur einer von ihnen. Der einfachste Weg, um herauszufinden, diese Informationen sind auf den Grund Ihrer Tabelle zu scrollen und bemerken die Zahl auf der rechten Seite der letzten Datenpunkt , sondern um es durch VBA zu tun ist auch ziemlich einfach. Anleitung
Programmierung der Makro
1
Öffnen Sie Ihre Excel-Tabelle und öffnen Sie den VBA-Editor durch Drücken von " Alt + F11 ".
2
Starten Sie ein neues VBA Projekt-Datei mit der rechten Maustaste auf Ihre Arbeitsmappe der rechten Seite des Menüs und die Auswahl der Option "Neu" .
3
starten Sie die neue Funktion durch Eingabe von " Sub CountRows (). " ; Dies informiert den VBA -Compiler , dass es eine neue Subroutine in der Projektdatei. Wenn Sie es vorziehen , um dem Unterprogramm einen anderen Namen , ändern Sie einfach " CountRows " auf , was Sie wollen, dass es zu sagen, aber es muss die offene und geschlossene Klammer hinter sich haben , wie in " YourName ()".
4
erstellen Sie eine Variable , indem " Dim Count as Long " in der nächsten Zeile
5
Typ in dem folgenden Code: .
Count = 0DoCount = Count + 1ActiveCell.Offset (1 , 0). SelectLoop bis IsEmpty ( ActiveCell.Offset (0 , 1))
den Compiler Programm sagt zum ersten räumen die Zählvariable , dann in Bewegung durch die Tabelle . Fügt man die Gesamtzahl , bewegt sich dann zu der nächsten Zelle , solange die nächste Zelle leer ist. Wenn es eine leere Zelle erreicht, wird sie aufhören zu laufen .
6
Rufen Sie eine Meldung , indem Sie eine neue Zeile mit "MsgBox Count " in ihm. Dadurch wird ein Popup-Fenster mit der Gesamtzahl der Zeilen in es anzuzeigen. Um das Feld Nachricht scheint ein wenig mehr hilfreich , können Sie etwas mehr Text, um ihn hinzuzufügen. Ändern Sie die Zeile wie folgt lauten:
MsgBox " Es gibt " Count " Rows"
Sie den Text zwischen Anführungszeichen um den Weg , was Sie wollen es sein würde ändern können.
7
Schließlich Laufen Typ " End Sub " in einer neuen Zeile , um die Funktion glattstellen .
das Makro
8
Zurück zu Ihrer Excel-Tabelle , und speichern Sie es .
9
Markieren Sie die erste Zelle in der Spalte mit den Daten . Dies wird eine Spalte, die keine leeren Zellen zwischen der Ober-und der Unterseite hat.
10
Öffnen Sie das Menü "Extras" und wählen Sie " Makros ", um Makros Dialog mit allen Makros programmiert in die Tabellenkalkulation .
11
Wählen Sie Makro aus Ziffer 1 " CountRows " oder welchen Namen man ihm gab. Klicken Sie auf " Ausführen". Wenn Sie fertig sind , wird das Makro Pop-up mit der Message-Box -Bericht über die Anzahl der Zeilen, die Sie ausgefüllt haben .