seychellesartprojects.org

Λειτουργία φύλλου εργασίας COUNTA στο Excel VBA

Στο προηγούμενο άρθρο μας "Excel COUNTA" έχουμε δει πώς να χρησιμοποιήσουμε τη συνάρτηση COUNT για να μετρήσουμε τις αριθμητικές τιμές από το εύρος τιμών. Τι γίνεται με την μέτρηση όλων των τιμών στο εύρος των κελιών; Ναι, μπορούμε να το μετρήσουμε επίσης. Για να μετρήσουμε όλες τις τιμές των κελιών στο εύρος των κελιών πρέπει να χρησιμοποιήσουμε τον τύπο "COUNTA" στο excel VBA. Σε αυτό το άρθρο, θα σας δείξουμε πώς να χρησιμοποιήσετε τη συνάρτηση COUNTA στο VBA για να μετρήσετε όλες τις τιμές κελιών στο παρεχόμενο εύρος.

Παραδείγματα συνάρτησης COUNTA στο VBA

Ένα από τα αλήθεια είναι ότι η συνάρτηση "COUNTA" δεν είναι συνάρτηση VBA. Γνωρίζω ότι η ερώτησή σας είναι αν δεν είναι μια λειτουργία VBA, τότε πώς τη χρησιμοποιούμε; Τίποτα δεν ανησυχεί, παρόλο που δεν είναι συνάρτηση VBA, μπορούμε να το χρησιμοποιήσουμε στην κλάση λειτουργίας φύλλου εργασίας στην κωδικοποίηση VBA.

Μπορείτε να κατεβάσετε αυτό το Πρότυπο VBA COUNTA Excel εδώ - Πρότυπο VBA COUNTA Excel

Εντάξει, ας γράψουμε τον κωδικό για να εφαρμόσουμε το excel VBA COUNTA.

Βήμα 1: Δημιουργήστε ένα όνομα υποδιαδικασίας.

Βήμα 2: Τώρα αποφασίστε πρώτα πού θα αποθηκεύσουμε το αποτέλεσμα της συνάρτησης VBA COUNTA. Σε αυτό το παράδειγμα, θέλω να αποθηκεύσω το αποτέλεσμα στο κελί C2. Έτσι ο κωδικός μου θα είναι Range ("C2"). Value.

Κώδικας:

 Sub Counta_Example1 () Range ("C2"). Value = End Sub 

Βήμα 3: Στο κελί C2 χρειαζόμαστε την τιμή της συνάρτησης VBA COUNTA. Έτσι, για να εφαρμόσετε τη συνάρτηση excel VBA COUNTA, ας εφαρμόσουμε πρώτα την κλάση λειτουργίας φύλλου εργασίας.

Κώδικας:

 Sub Counta_Example1 () Range ("C2"). Value = Work End Sub 

Βήμα 4: Μετά την εφαρμογή της κλάσης λειτουργίας φύλλου εργασίας, επιλέξτε τον τύπο COUNTA τοποθετώντας μια τελεία.

Κώδικας:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.Count End Sub 

Βήμα 5: Τώρα πρέπει να παρέχουμε το εύρος των κελιών που πρέπει να μετρηθούν. Σε αυτό το παράδειγμα, πρέπει να μετρήσουμε το εύρος κελιών από A1 έως A11. Παρέχετε λοιπόν τα κελιά χρησιμοποιώντας το αντικείμενο VBA RANGE.

Κώδικας:

 Sub Counta_Example1 () Range ("C2"). Value = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Εντάξει, ας τρέξουμε τον κωδικό για να πάρουμε το αποτέλεσμα στο κελί C2.

Έτσι, το ίδιο αποτέλεσμα επέστρεψε και από το VBA COUNTA.

Έτσι, μπορούμε να χρησιμοποιήσουμε το COUNTA για να μετρήσουμε τα κενά ή μη κενά κελιά από το παρεχόμενο εύρος.

Κωδικοποίηση με μεταβλητές

Οι μεταβλητές VBA είναι το κλειδί για τη δημιουργία ενός έργου. Τώρα για τα ίδια δεδομένα, μπορούμε να δηλώσουμε μεταβλητές VBA και να φτάσουμε στο αποτέλεσμα.

Για παράδειγμα δείτε τον παρακάτω κώδικα.

Κώδικας:

 Sub Counta_Example2 () Dim CountaRange As Range Dim CountaResultCell As Range Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub 

Ας εξηγήσουμε τον παραπάνω κώδικα τώρα.

Πρώτα έχω δηλώσει τη μεταβλητή "CountaRange" ως εύρος για να αναφέρω το εύρος τιμών.

 Dim CountaRange ως εύρος

Στη συνέχεια, έχω ορίσει την αναφορά ως Εύρος Α1 έως Α11.

 Ορισμός CountaRange = Range ("A1: A11")

Η δεύτερη μεταβλητή είναι η αναφορά στο κελί αποτελεσμάτων COUNTA.

 Dim CountaResultCell As Range

Για αυτήν τη μεταβλητή, έχω ορίσει το κελί ως C2.

 Ορισμός CountaResultCell = Εύρος ("C2")

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

Κωδικός 1:

Κωδικός 2:

Στον κωδικό 1 έχουμε το Range C2, στον Code 2 έχουμε το μεταβλητό όνομα "CountaResultCell". Εδώ η μεταβλητή "CountaResultCell" ορίζει αναφορά ως κελί C2. Έτσι αυτή η μεταβλητή είναι C2 κελί τώρα.

Στον κωδικό 1, το εύρος λειτουργιών COUNTA είναι A1 έως A11, στον κωδικό 2 είναι μεταβλητή που ονομάζεται "CountaRange". Αυτή η μεταβλητή περιέχει αναφορά στο εύρος Α1 έως Α11.

Αυτή είναι η διαφορά μεταξύ παλαιού κώδικα και κώδικα με μεταβλητές.

Έτσι, η συνάρτηση COUNTA μας βοηθά να μετράμε όλα τα μη κενά κελιά από το παρεχόμενο εύρος, ανεξάρτητα από τα δεδομένα που διαθέτει.