Λειτουργία φύλλου εργασίας COUNTA στο Excel VBA
Στο προηγούμενο άρθρο μας "Excel COUNTA", έχουμε δει πώς να χρησιμοποιήσουμε τη συνάρτηση COUNT για να μετρήσουμε τις αριθμητικές τιμές από το εύρος τιμών. Τι γίνεται με τον υπολογισμό όλων των δαπανών στον τομέα των κελιών; Ναι, μπορούμε να το εκτιμήσουμε και αυτό. Για να μετρήσουμε όλες τις τιμές των κελιών στο εύρος των κελιών, πρέπει να χρησιμοποιήσουμε τον τύπο "COUNTA" στο excel VBA. Σε αυτό το άρθρο, θα σας δείξουμε πώς να χρησιμοποιήσετε τη συνάρτηση COUNTA στο VBA για να μετρήσετε όλες τις τιμές κελιών στο παρεχόμενο εύρος.
Παραδείγματα συνάρτησης COUNTA στο VBA
Ένα από τα αλήθεια είναι ότι η συνάρτηση "COUNTA" δεν είναι συνάρτηση VBA. Ξέρω ότι η ερώτησή σας είναι, εάν δεν είναι συνάρτηση VBA, τότε πώς τη χρησιμοποιούμε; Τίποτα δεν ανησυχεί ακόμα κι αν δεν είναι λειτουργία VBA. ακόμα, μπορούμε να το χρησιμοποιήσουμε στην κλάση λειτουργίας φύλλου εργασίας στην κωδικοποίηση VBA.
Εντάξει, ας γράψουμε τον κωδικό για να εφαρμόσουμε το excel VBA COUNTA.
Βήμα 1: Δημιουργήστε ένα όνομα υποδιαδικασίας.
Βήμα 2: Τώρα, αποφασίστε πρώτα πού θα αποθηκεύσουμε το αποτέλεσμα της συνάρτησης VBA COUNTA. Σε αυτό το παράδειγμα, θέλω να διατηρήσω την εργασία στο κελί C2. Έτσι ο κωδικός μου θα είναι εύρος ("C2").
Κώδικας:
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, έχουμε το εύρος C2. Στον Κώδικα 2, έχουμε τη μεταβλητή όνομα "CountaResultCell". Εδώ η μεταβλητή "CountaResultCell" ορίζει αναφορά ως κελί C2. Έτσι αυτή η μεταβλητή είναι C2 κελί τώρα.
Στον κωδικό 1, το εύρος συνάρτησης COUNTA είναι A1 έως A11. Στον κανονισμό 2, είναι μια μεταβλητή που ονομάζεται "CountaRange". Αυτή η μεταβλητή περιέχει αναφορά στο εύρος Α1 έως Α11.
Αυτή είναι η διαφορά μεταξύ παλαιού κώδικα και κώδικα με μεταβλητές.
Έτσι, η συνάρτηση COUNTA μας βοηθά να μετράμε όλα τα μη κενά κελιά από την παρεχόμενη περιοχή ανεξάρτητα από τα δεδομένα που διαθέτει.
