VBA COUNTIF (Παραδείγματα) - Πώς να χρησιμοποιήσετε τη συνάρτηση COUNTIF στο Excel VBA;

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

ΣΥΜΒΟΥΛΙΟ VBA

ΣΥΜΒΟΥΛΙΟ VBA

Οι συναρτήσεις βάσει κριτηρίων είναι οι κυρίαρχοι του excel στους υπολογισμούς. Στην αρχή της εκμάθησης του excel, πρέπει να έχουμε μάθει τη διαδικασία COUTNIF στο excel. Στα προηγούμενα άρθρα μας, σας έχουμε δείξει πώς να εργαστείτε με τη συνάρτηση COUNTIF στο Excel VBA.

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

Παράδειγμα της συνάρτησης Excel VBA Countif

Εντάξει, ας δούμε το απλό παράδειγμα.

Κοιτάξτε το παρακάτω ίδιο παράδειγμα μέτρησης τιμών από την παρτίδα.

Στην παραπάνω εικόνα, έχουμε ονόματα πόλεων από το κελί A1 έως το A10. Στο κελί C3, πρέπει να μετρήσουμε πόσες φορές το όνομα της πόλης "Bangalore" εμφανίζεται στην περιοχή Α1 έως Α10.

Εντάξει, ακολουθήστε τα παρακάτω βήματα για να γράψετε τον κωδικό για να εφαρμόσετε τη συνάρτηση COUNTIF.

Βήμα 1: Ξεκινήστε τη διαδικασία Sub.

Κώδικας:

Option Explicit Sub Countif_Example1 () End Sub

Βήμα 2: Δεδομένου ότι πρέπει να αποθηκεύσουμε το αποτέλεσμα στο κελί C3, ξεκινήστε το εύρος ("C3").

Κώδικας:

Sub Countif_Example1 () Range ("C3"). Value = End Sub

Βήμα 3: Στο κελί C3, εφαρμόζοντας τη λειτουργία excel VBA COUNTIF, προσπαθούμε να φτάσουμε στο αποτέλεσμα. Επομένως, για να αποκτήσουμε πρόσβαση στη λειτουργία, πρέπει πρώτα να χρησιμοποιήσουμε την κλάση Λειτουργία φύλλου εργασίας.

Κώδικας:

Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction. Τέλος Υποτ

Βήμα 4: Από τη χαμένη, επιλέξτε excel VBA COUNTIF συνάρτηση.

Κώδικας:

Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (End Sub

Βήμα 5: Αν κοιτάξετε τις παραμέτρους της συνάρτησης VBA COUNTIF, δεν βλέπουμε την παράμετρο, όπως βλέπουμε στο φύλλο εργασίας.

Όπως μπορούμε να δούμε στην παραπάνω εικόνα στο φύλλο εργασίας, έχουμε ακριβή σύνταξη, αλλά στο VBA, μπορούμε να δούμε μόνο Arg 1 & Arg 2.

Το Arg 1 είναι Range, οπότε επιλέξτε το εύρος από A1 έως A10.

Κώδικας:

Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub

Βήμα 6: Το Arg 2 είναι ποια είναι η τιμή που πρέπει να μετρήσουμε από το εύρος A1 έως A10. Σε αυτό το παράδειγμα, πρέπει να υπολογίσουμε το "Bangalore".

Κώδικας:

Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub

Εντάξει, τελειώσαμε.

Εκτελέστε τον κωδικό για να δείτε το αποτέλεσμα στο κελί C3.

Έχουμε το αποτέλεσμα ως 4. Δεδομένου ότι το όνομα της πόλης "Bangalore" που εμφανίζεται στη συνάρτηση A1, A4, A7 και A10 VBA COUNTIF επέστρεψε το προϊόν ως 4

Εάν μπορείτε να δείτε ότι ο κώδικας VBA επέστρεψε μόνο το αποτέλεσμα του τύπου, δεν γνωρίζουμε τη διαδικασία στη γραμμή τύπων.

Για να φτάσουμε στον τύπο, πρέπει να γράψουμε τον κωδικό ελαφρώς διαφορετικά. Ακολουθεί ο κώδικας για να εφαρμόσετε τον ίδιο τον τύπο στο κελί.

Κώδικας:

Sub Countif_Example1 () Εύρος ("C3"). Τύπος = "= CountIf (A1: A10," "Bangalore" ")" End Sub

Αυτό θα εφαρμόσει τον τύπο στο κελί C3.

Άφιξη αποτέλεσμα με μεταβλητές

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

Κώδικας:

Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub

Let me decode the code for you to understand better.

Firstly I have declared the two variables as Range.

Dim ValuesRange As Range: This is to reference the list of values.

Dim ResultCell As Range: This to reference the result cell.

Then I have set the range of references to both the variables.

Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.

Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.

In the meantime, I have declared one more variable to store the criteria value.

Dim CriteriaValue ως συμβολοσειρά

ΚριτήριαValue = "Bangalore"

Τώρα λοιπόν η μεταβλητή "CriteteriaValue" κρατά την τιμή "Bangalore".

Στην επόμενη γραμμή, όπως συνήθως, έχω εφαρμόσει τη συνάρτηση COUTNIF.