VBA Row Count - Πώς να μετρήσετε τον αριθμό των χρησιμοποιημένων σειρών στο VBA;

Πίνακας περιεχομένων

Πλήθος σειρών Excel VBA

Στο πρόγραμμα VBA, η αναφορά σε σειρές είναι επίσης πιο σημαντική και η μέτρηση σειρών είναι ένα από τα πράγματα που πρέπει να γνωρίζετε όταν πρόκειται για κωδικοποίηση VBA. Υπάρχει μεγάλη αξία που μπορούμε να πάρουμε αν καταλάβουμε τη σημασία της μέτρησης σειρών που έχει δεδομένα στο φύλλο εργασίας. Σε αυτό το άρθρο, θα σας δείξουμε πώς να μετράτε σειρές χρησιμοποιώντας κωδικοποίηση VBA.

Πώς να μετρήσετε σειρές στο VBA;

Παράδειγμα # 1

Για να μετρήσουμε τις σειρές, πρέπει να χρησιμοποιήσουμε το αντικείμενο RANGE, σε αυτό το αντικείμενο, πρέπει να χρησιμοποιήσουμε το αντικείμενο ROWS, και σε αυτό, πρέπει να χρησιμοποιήσουμε COUNT ιδιότητα.

Για παράδειγμα, δείτε τα παρακάτω δεδομένα στο excel.

Από τα παραπάνω δεδομένα, πρέπει να προσδιορίσουμε πόσες σειρές υπάρχουν από το εύρος Α1 έως Α8. Ορίστε λοιπόν πρώτα τη μεταβλητή ως ακέραιο για να αποθηκεύσετε τον αριθμό των σειρών.

Κώδικας:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Για αυτήν τη μεταβλητή, θα εκχωρήσουμε αριθμούς σειρών, οπότε εισαγάγετε το όνομα της μεταβλητής και βγείτε το ίσο σύμβολο

Κώδικας:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Πρέπει να παρέχουμε ένα εύρος κελιών, οπότε ανοίξτε το αντικείμενο RANGE και παρέχουμε το εύρος ως "A1: A8". Κώδικας:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

Μόλις παρέχεται το εύρος, πρέπει να μετρήσουμε τον αριθμό των σειρών, οπότε επιλέξτε την ιδιότητα ROWS του αντικειμένου RANGE.

Στην ιδιότητα ROWS του αντικειμένου RANGE μετράμε έναν αριθμό σειρών, οπότε επιλέξτε την ιδιότητα "COUNT" τώρα.

Τώρα στο πλαίσιο μηνύματος δείξτε την τιμή της μεταβλητής.

Κώδικας:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Τώρα εκτελέστε τον κώδικα και δείτε τον αριθμό των σειρών του παρεχόμενου εύρους κελιών.

Εντάξει, υπάρχουν 8 σειρές για το εύρος, οπότε ο αριθμός των σειρών είναι 8 στο πλαίσιο μηνύματος.

Παράδειγμα # 2

Έχουμε και άλλους τρόπους μέτρησης σειρών, για την παραπάνω μέθοδο, πρέπει να παρέχουμε μια σειρά κελιών, και σε αυτό το εύρος κελιών, δείχνει τον αριθμό των επιλεγμένων σειρών.

Αλλά φανταστείτε το σενάριο όπου πρέπει να βρούμε την τελευταία χρήση οποιασδήποτε στήλης, για παράδειγμα, να λάβετε τα ίδια δεδομένα όπως φαίνεται παραπάνω.

Για να μετακινηθείτε στο κελί που χρησιμοποιήθηκε τελευταία από το κελί A1, πατάμε το πλήκτρο excel συντόμευσης "Ctrl + Down Arrow" , οπότε θα σας μεταφέρει στο τελευταίο κελί πριν από το κενό κελί.

Αρχικά, παρέχετε το κελί ως A1 χρησιμοποιώντας το αντικείμενο RANGE.

Κώδικας:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

Από αυτό το κελί, πρέπει να μετακινηθούμε προς τα κάτω, και στο φύλλο εργασίας, χρησιμοποιούμε το Ctrl + Down Arrow, αλλά στο VBA χρησιμοποιούμε την ιδιότητα END, επιλέξτε αυτήν την ιδιότητα και ανοίξτε το bracket για να δείτε τις επιλογές.

Κοιτάξτε εκεί με το πλήκτρο END μπορούμε να δούμε όλα τα πλήκτρα βέλους όπως "xlDown, xlToLeft, xlToRight και xlUp" αφού πρέπει να μετακινηθούμε προς τα κάτω χρησιμοποιήστε την επιλογή "xlDown".

Κώδικας:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Αυτό θα σας μεταφέρει στο τελευταίο κελί πριν από οποιοδήποτε διάλειμμα, τώρα στο ενεργό κελί χρειαζόμαστε τον αριθμό σειράς, οπότε χρησιμοποιήστε την ιδιότητα ROW.

Κώδικας:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown). Σειρά MsgBox No_Of_Rows End Sub

ΕΝΤΑΞΕΙ Εγινε. Τώρα, θα εμφανιστεί ο αριθμός της τελευταίας σειράς και αυτός θα είναι ο αριθμός των σειρών.

Έτσι, σε σειρές, έχουμε δεδομένα.

Παράδειγμα # 3 - Εύρεση της τελευταίας γραμμής που χρησιμοποιήθηκε

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

Ανοίξτε την ιδιότητα CELL.

Κώδικας:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Κελιά (MsgBox No_Of_Rows End Sub

Τώρα πρέπει να αναφέρουμε τον αριθμό σειράς για να ξεκινήσουμε, το πρόβλημα εδώ είναι ότι δεν είμαστε σίγουροι πόσες σειρές δεδομένων έχουμε, οπότε αυτό που μπορούμε να κάνουμε είναι να μεταβούμε αμέσως στην τελευταία σειρά του φύλλου εργασίας, για αυτήν την αναφορά ROWS .COUNT ιδιότητα.

Κώδικας:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

Στη συνέχεια, πρέπει να αναφέρουμε σε ποια στήλη βρίσκουμε την τελευταία γραμμή που χρησιμοποιήθηκε, οπότε σε αυτήν την περίπτωση, βρίσκουμε στην πρώτη στήλη, οπότε αναφέραμε 1.

Κώδικας:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

Αυτή τη στιγμή, θα σας μεταφέρει στο τελευταίο κελί της πρώτης στήλης, από εκεί και μετά πρέπει να κινηθούμε προς τα πάνω για να πάμε το τελευταίο κελί που χρησιμοποιήθηκε, οπότε χρησιμοποιήστε την ιδιότητα End (xlUp).

Κώδικας:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1). End (xlUp) MsgBox No_Of_Rows End Sub

Αυτό θα σας μεταφέρει στο κελί της στήλης 1 που χρησιμοποιήθηκε τελευταία και σε αυτό το κελί χρειαζόμαστε τον αριθμό σειράς, οπότε χρησιμοποιήστε την ιδιότητα ROW για να λάβετε τον αριθμό σειράς.

Κώδικας:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1). End (xlUp) .Row MsgBox No_Of_Rows End Sub

Πράγματα που πρέπει να θυμάστε

  • Το COUNT θα δώσει έναν αριθμό σειρών στο φύλλο εργασίας.
  • Εάν έχετε εύρος, τότε θα δοθούν αρκετές σειρές που επιλέγονται στο εύρος.
  • Η ιδιότητα ROW θα επιστρέψει τον ενεργό αριθμό σειράς κελιού.

ενδιαφέροντα άρθρα...