VBA IsEmpty | Πώς να χρησιμοποιήσετε τη λειτουργία VBA IsEmpty; (Παραδείγματα)
Το IsEmpty είναι μια συνάρτηση φύλλου εργασίας που χρησιμοποιείται για να διαπιστωθεί εάν μια δεδομένη αναφορά κελιού ή μια περιοχή κελιών είναι κενή ή όχι, επειδή είναι μια συνάρτηση φύλλου εργασίας, για να το χρησιμοποιήσουμε στο VBA, χρησιμοποιούμε την εφαρμογή. Μέθοδος φύλλου εργασίας στο VBA για να χρησιμοποιήσετε αυτήν τη συνάρτηση, αυτή η συνάρτηση εμπίπτει στις λογικές λίστες της συνάρτησης και επιστρέφει αληθής εάν η αναφορά είναι κενή.
Λειτουργία VBA IsEmpty
Το VBA IsEmpty είναι μια λογική συνάρτηση που ελέγχει εάν το επιλεγμένο είναι κενό ή όχι. Δεδομένου ότι είναι μια λογική συνάρτηση, θα επιστρέψει τα αποτελέσματα σε τιμές Boolean, δηλαδή είτε TRUE είτε FALSE.
Εάν το επιλεγμένο κελί είναι κενό, θα επιστρέψει TRUE ή αλλιώς θα επιστρέψει FALSE.
Σε αυτό το άρθρο, θα σας δείξουμε πώς να χρησιμοποιήσετε τη συνάρτηση "ISEMPTY" στο VBA για να ελέγξετε τα κελιά χρησιμοποιώντας κωδικούς VBA.
Τι κάνει η λειτουργία ISEMPTY στο VBA;
Συχνά τα κενά κελιά μας απογοητεύουν να δουλεύουμε αποτελεσματικά στο φύλλο εργασίας. Η εύρεση των κενών κελιών δεν είναι η δυσκολότερη, αλλά εάν τα κενά κελιά τα κρύβουν στη μέση των δεδομένων, τότε χρειάζονται διόδια για να τα βρουν.
Για να βρούμε τα κενά κελιά στο excel έχουμε τη συνάρτηση που ονομάζεται "ISBLANK" ως λειτουργία φύλλου εργασίας, αλλά στο VBA ονομάζεται "ISEMPTY".
Αυτό λειτουργεί παρόμοια με τη λειτουργία φύλλου εργασίας "ISBLANK". Τώρα ρίξτε μια ματιά στον παρακάτω τύπο της συνάρτησης "ISEMPTY".
Όπως μπορούμε να δούμε στην παραπάνω εικόνα, επιστρέφει το αποτέλεσμα ως Boolean, δηλαδή TRUE ή FALSE.
Παραδείγματα συνάρτησης ISEMPTY στο VBA
Ακολουθούν τα παραδείγματα του IsEmpty στο VBA.
Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA IsEmpty Excel εδώ - Πρότυπο VBA IsEmpty ExcelΠαράδειγμα # 1
Τώρα θα δούμε το πρώτο πρακτικό παράδειγμα του «ISEMPTY». Για αυτό ρίξτε μια ματιά στην παρακάτω εικόνα του φύλλου εργασίας.
Τώρα θα εφαρμόσουμε τη λειτουργία excel VBA ISEMPTY για να δοκιμάσουμε όλα αυτά.
Βήμα 1: Ορίστε τη μεταβλητή ως Boolean .
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean End Sub
Βήμα 2: Για αυτήν τη μεταβλητή εκχωρήστε την τιμή μέσω της συνάρτησης VBA ISEMPTY .
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (End Sub
Βήμα 3: Η έκφραση δεν είναι τίποτα άλλο από το κελί που δοκιμάζουμε. Τώρα δοκιμάζουμε το κελί A1 κελιού .
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) End Sub
Βήμα 4: Εμφάνιση της τιμής αυτής της μεταβλητής στο VBA Msgbox .
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
Εκτελέστε αυτόν τον κωδικό για να ελέγξετε το αποτέλεσμα.
Δεδομένου ότι υπάρχει μια τιμή στο κελί A1 έχουμε το αποτέλεσμα ως FALSE.
Τώρα θα αλλάξω την αναφορά κελιού από A1 σε A5.
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
Εκτελέστε αυτόν τον κωδικό για να δείτε το αποτέλεσμα.
Έχουμε το αποτέλεσμα ως TRUE το αναφερόμενο κελί A5 είναι στην πραγματικότητα κενό κελί, έτσι έχουμε το αποτέλεσμα ως "TRUE".
Τώρα θα δοκιμάσω το κελί A8.
Κώδικας:
Sub IsEmpty_Example1 () Dim K As Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
Εκτελέστε αυτόν τον κωδικό για να δείτε το αποτέλεσμα.
Ω !!! Περίμενε…
Έχουμε το αποτέλεσμα ως FALSE παρόλο που δεν υπάρχει τιμή στο κελί A8.
Τώρα το ερώτημα είναι αποτέλεσμα σφάλματος από τον τύπο "ISEMPTY" ;.
Όχι ... Απολύτως Όχι !!!
Όταν προσπάθησα να εξετάσω το κελί A8 στην πραγματικότητα υπάρχει ένας διαστημικός χαρακτήρας μέσα στο κελί που δεν είναι εύκολο να το δει με γυμνά μάτια.
Το συμπέρασμα λοιπόν είναι ότι το Space θεωρείται ως χαρακτήρας στη γλώσσα excel και VBA.
Παράδειγμα # 2 - Συνδυασμός του VBA ISEMPTY με συνθήκη IF
Στην πραγματικότητα, η πραγματική χρήση της συνάρτησης "ISEMPTY" είναι αξιοθαύμαστη όταν τη χρησιμοποιούμε με άλλες λογικές συναρτήσεις.
Ειδικά όταν το χρησιμοποιούμε με συνθήκη IF μπορούμε να αντλήσουμε πολλά χρήσιμα αποτελέσματα από αυτήν.
Για αυτήν την επίδειξη ρίξτε μια ματιά στο παρακάτω παράδειγμα.
Στη στήλη Κατάσταση εάν η στήλη "Κατάσταση PF" είναι κενή, χρειαζόμαστε την τιμή ως "Χωρίς ενημέρωση" και αν υπάρχει κάποια τιμή χρειαζόμαστε τις τιμές ως "Συλλεγμένες ενημερώσεις".
Θυμηθείτε εδώ δεν χρειαζόμαστε το προεπιλεγμένο αποτέλεσμα TRUE ή FALSE. Χρειαζόμαστε τα δικά μας αποτελέσματα εδώ, για να έχουμε τα δικά μας αποτελέσματα πρέπει να χρησιμοποιήσουμε το Excel VBA ISEMPTY με συνθήκη IF.
Βήμα 1: Ανοίξτε την κατάσταση IF .
Κώδικας:
Sub IsEmpty_Example2 () Εάν τελειώσει Sub
Βήμα 2: Μέσα στη συνθήκη IF ανοίξτε τη συνάρτηση ISEMPTY .
Κώδικας:
Sub IsEmpty_Example2 () Εάν IsEmpty (End Sub
Βήμα 3: Η πρώτη λογική δοκιμή είναι ότι η τιμή κελιού B2 είναι κενή ή όχι.
Κώδικας:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) Στη συνέχεια, End Sub
Βήμα 4: Εάν ο λογικός έλεγχος στο excel vba είναι ΑΛΗΘΟΣ, δηλαδή εάν το κελί είναι κενό, χρειαζόμαστε το αποτέλεσμα ως " Χωρίς ενημέρωση " στο κελί C2.
Κώδικας:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) then Range ("C2"). Value = "No Update" End Sub
Βήμα 5: Εάν η λογική δοκιμή είναι ΛΑΘΟΣ, χρειαζόμαστε το αποτέλεσμα στο κελί C2 ως " Συλλεγμένες ενημερώσεις ".
Κώδικας:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Συλλέγει ενημερώσεις" End if End Sub
Εντάξει, τελειώσαμε.
Εκτελέστε τον κωδικό για να λάβετε το αποτέλεσμα.
Έχουμε το αποτέλεσμα ως "Συλλεγμένες ενημερώσεις" επειδή έχουμε το μη κενό κελί στο B2.
Τώρα εφαρμόστε ομοίως τον κώδικα για άλλα κελιά για έλεγχο
Κώδικας:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Συλλέγει ενημερώσεις" Τερματισμός αν είναι IsEmpty (Εύρος ("B3"). Τιμή) Στη συνέχεια, εύρος ("C3"). Τιμή = "Χωρίς ενημέρωση" Else Range ("C3"). Value = "Συλλεγμένες ενημερώσεις" Τερματισμός εάν είναι κενό (εύρος ("B4"). Τιμή) Στη συνέχεια εύρος ("C4"). Τιμή = "Χωρίς ενημέρωση" Else Range ("C4"). Value = "Συλλεγμένες ενημερώσεις" Τερματισμός
Εκτελέστε αυτόν τον κωδικό για να έχετε τα αποτελέσματα.
Στο κελί C3 πήραμε το αποτέλεσμα ως "Χωρίς ενημέρωση" επειδή δεν υπάρχει τιμή στο κελί B3, δηλαδή Empty Cell. Δεδομένου ότι ο λογικός τύπος επέστρεψε ΑΛΗΘΕΙΑ πήραμε το αντίστοιχο αποτέλεσμα.
Παράδειγμα # 3 - Εναλλακτική λύση στη συνάρτηση VBA ISEMPTY
Έχουμε μια εναλλακτική λύση στη συνάρτηση ISEMPTY, χωρίς να εφαρμόσουμε τη συνάρτηση excel VBA ISEMPTY μπορούμε πραγματικά να δοκιμάσουμε το κελί.
Για παράδειγμα δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collected Updates" End if End Sub
Η γραμμή του κωδικού εύρους ("B2 ″). Value =" " σημαίνει εάν το κελί B2 κελιού είναι ίσο με κενό ή όχι.
Τα διπλά εισαγωγικά ("") αντιπροσωπεύουν ένα κενό κελί ή όχι εάν το κενό αποτέλεσμα είναι ΑΛΗΘΟΣ ή αλλιώς ΛΑΘΟΣ.