Πώς να μετρήσει τις γραμμές σε ένα υπολογιστικό φύλλο του Excel χρησιμοποιώντας VBA Macros

Μερικές φορές , θα πρέπει να γνωρίζετε τον αριθμό των γραμμών που χρησιμοποιούνται σε ένα υπολογιστικό φύλλο του Excel , είτε για έναν τύπο ή μερικές φορές ακόμη και ένα VBA Macro . Ευτυχώς , υπάρχουν μερικοί εύκολοι τρόποι για να επιτευχθεί αυτό , και το Excel VBA είναι μόνο ένα από αυτά . Ο απλούστερος τρόπος για να βρείτε αυτές τις πληροφορίες είναι να μεταβείτε στο κάτω μέρος του φύλλου σας και να παρατηρήσετε τον αριθμό στα δεξιά του το τελευταίο σημείο δεδομένων , αλλά για να το κάνει μέσω της VBA είναι επίσης αρκετά απλή . Οδηγίες
Προγραμματισμός Macro
Η 1

Ανοίξτε υπολογιστικό φύλλο του Excel και ανοίξτε το πρόγραμμα επεξεργασίας VBA πατώντας " Alt + F11 . " 2

Ξεκινήστε ένα νέο VBA αρχείο έργου με δεξί κλικ το βιβλίο εργασίας σας στο μενού δεξιά και επιλέγοντας το " New " επιλογή .
εικόνων 3

Ξεκινήστε τη νέα λειτουργία πληκτρολογώντας " Sub countRows ( ) . " ? Αυτό πληροφορεί τον compiler VBA ότι υπάρχει μια νέα υπορουτίνα στο αρχείο έργου . Εάν προτιμάτε να δώσει την υπορουτίνα άλλο όνομα , απλά αλλάξτε το " countRows " σε ό, τι θέλετε να πείτε , αλλά πρέπει να έχει την ανοικτή και κλειστή παρένθεση πίσω από αυτό , όπως το " YourName ( ) " .
Φτηνές 4

Δημιουργήστε μια μεταβλητή με τη συμπερίληψη "Dim Count ως Long" στην επόμενη γραμμή
5

Πληκτρολογήστε τον ακόλουθο κώδικα : .

Count = 0DoCount = Count + 1ActiveCell.Offset ( 1 , 0 ) . SelectLoop Μέχρι IsEmpty ( ActiveCell.Offset ( 0 , 1 ) )

Αυτό λέει το πρόγραμμα μεταγλώττισης πρώτα να καθαρίσει τη μεταβλητή Count , στη συνέχεια, να αρχίσει να κινείται μέσα από το υπολογιστικό φύλλο . Προσθέτει μία μονάδα στο σύνολο λέξεων , τότε κινείται προς τα κάτω στο επόμενο κελί , εφ 'όσον το επόμενο κελί είναι κενό . Όταν φτάσει σε ένα άδειο κελί , θα σταματήσουν να προβάλλονται .
Η 6

Φέρτε ένα πλαίσιο μηνύματος προσθέτοντας μια νέα γραμμή με " MsgBox Count" σε αυτό . Αυτό θα εμφανίσει ένα pop- up παράθυρο με το συνολικό αριθμό των γραμμών σε αυτό . Για να κάνετε το παράθυρο μηνύματος φαίνεται λίγο πιο χρήσιμο , μπορείτε να προσθέσετε λίγο περισσότερο κείμενο σε αυτό. Αλλάξτε τη γραμμή ως εξής :

MsgBox " Υπάρχουν " Count " Γραμμές "

Μπορείτε να αλλάξετε το κείμενο ανάμεσα σε εισαγωγικά για τον τρόπο ό, τι θα θέλατε να είναι.
Η 7

Τέλος , τύπου " End Sub" σε μια νέα γραμμή για να κλείσετε τη λειτουργία έξω .
εικόνων λειτουργία του Macro
8

Επιστροφή στο υπολογιστικό φύλλο του Excel , και να το αποθηκεύσετε .
Η 9

Επισημάνετε το πρώτο κελί της στήλης με τα περισσότερα στοιχεία . Αυτό θα είναι μια στήλη που δεν έχει κενά κελιά μεταξύ της κορυφής και του πυθμένα .
Η 10

Ανοίξτε το μενού "Εργαλεία" και επιλέξτε " Μακροεντολές " για να εμφανιστεί διαλόγου μακροεντολές με όλες τις μακροεντολές που προγραμματίζονται για στο φύλλο .
Η 11

Επιλέξτε τη μακροεντολή από το τμήμα 1 , « countRows " ή οτιδήποτε άλλο όνομα που του δώσατε . Κάντε κλικ στο κουμπί "Run . " Όταν ολοκληρωθεί , η Macro θα εμφανιστεί με την έκθεση πλαίσιο μηνύματος από τον αριθμό των γραμμών που έχετε γεμίσει .
Η
εικόνων