Πώς μπορώ να Μετρήστε τις γραμμές σε ένα φύλλο Excel Διαδώστε Χρησιμοποιώντας ένα VBA Macro

; Χρήση μακροεντολών μπορεί να επιταχύνει τις δράσεις στο Excel που πρέπει να γίνουν κάθε φορά από την αυτοματοποίηση τους . Οι μακροεντολές μπορεί επίσης να χρησιμοποιηθεί για να συγκεντρώσει τα στοιχεία που μπορεί να χρειάζονται για την περαιτέρω προγραμματισμό . Για παράδειγμα , μπορεί να απαιτείται ο αριθμός των κυττάρων ή των γραμμών σε έναν πίνακα για να εξασφαλιστεί ότι οι αυτοματοποιημένες λειτουργίες διαχείρισης δεδομένων , όπως προορίζεται . Για να αποδείξει , μια απλή μακροεντολή μπορεί να υπολογίζει τον αριθμό των γραμμών σε ένα υπολογιστικό φύλλο και να ανοίξει ένα κουτί μήνυμα που δηλώνει τον αριθμό αυτό . Οδηγίες
Η

1 Ανοίξτε ένα νέο υπολογιστικό φύλλο excel και συμπληρώστε τις πρώτες κελιά στη στήλη Β με τυχαίες λέξεις , γράμματα ή αριθμούς . 2

Κάντε κλικ στο " Developer " καρτέλα στην κορδέλα μενού του Excel . Εάν δεν μπορείτε να δείτε την καρτέλα "Προγραμματιστής " στην κορδέλα μενού , κάντε κλικ στο εικονίδιο του Microsoft Office στην επάνω αριστερή γωνία του παραθύρου , κάντε κλικ στο κουμπί " Επιλογές του Excel " , και κάντε κλικ στο κουτάκι που λέει "Show Developer Tab στο η Κορδέλα ».
εικόνων 3

Ξεκινήστε το Visual Basic Editor κάνοντας κλικ στο εικονίδιο Visual Basic ή πατώντας Alt και F11 ταυτόχρονα .
Η

4 Κάντε κλικ στο" Εισαγωγή " από το μενού της Visual Basic Editor και επιλέξτε" ενότητα "
5

Πληκτρολογήστε τα ακόλουθα στο πλαίσιο της ενότητας :

Sub CountNumberofRowsinColumnB ( )

NonBlankRange ( " . ! Φύλλο1 B : B " )

End Sub Sub

NonBlankRange ( sRange Όπως String )

Dim countNonBlank As Integer , myRange Όπως Σειρά

Set myRange = Range ( sRange )

countNonBlank = Application.WorksheetFunction.CountA ( myRange )

MsgBox " Αριθμός γραμμών : " & countNonBlank , , sRange

End Sub

αυτό το κωδικό προσαρμόστηκε από ένα έργο σε " Microsoft Visual Basic . Net Βήμα προς βήμα " που αναφέρεται στη συνέχεια .
Η

6 Κάντε κλικ στο εικονίδιο του Excel για τη Visual Basic για να δείξει το υπολογιστικό φύλλο του Excel .
Η

7 Κάντε κλικ στο εικονίδιο Macro στην κορδέλα του Excel και επιλέξτε " CountNumberofRowsinColumnB " από το πλαίσιο Όνομα μακροεντολής.
8

Κάντε κλικ στο " Run " στο πλαίσιο μακροοικονομικής . Ένα πλαίσιο μηνύματος θα ανοίξει που σας λέει πόσες σειρές έχουν πληρωθεί μέσα
Η
εικόνων