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.

Παράδειγμα # 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" ;.

Όχι … Απολύτως Όχι !!!

When I tried examining the cell A8 actually there is a space character inside the cell which is not easy to see with bare eyes.

So the conclusion is even Space is considered as a character in excel and VBA language.

Example #2 - Combination of VBA ISEMPTY with IF Condition

Actually, the real usage of the function “ISEMPTY” is admirable when we use it with other logical functions.

Especially when we use it with IF condition we can derive many useful results from it.

For this demonstration take a look at the below example.

In the Status column, if the “PF Status” column is empty, we need the value as “No Update,” and if there is any value, we need the values as “Collected Updates.”

Remember here we don’t need the default result of TRUE or FALSE. We need our own results here, to have our own results we need to use Excel VBA ISEMPTY with IF condition.

Step 1: Open IF condition.

Code:

Sub IsEmpty_Example2() If End Sub

Step 2: Inside the IF condition open ISEMPTY function.

Code:

Sub IsEmpty_Example2() If IsEmpty( End Sub

Step 3: The first logical test is cell B2 value is empty or not.

Code:

Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then End Sub

Step 4: If the logical test in excel vba is TRUE i.e., if the cell is empty, we need the result as “No Update” in cell C2.

Code:

Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" End Sub

Step 5: If the logical test is FALSE, we need the result in cell C2 as “Collected Updates.”

Code:

Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If End Sub

Ok, we are done.

Run the code to get the result.

We got the result as “Collected Updates” because we have the non-empty cell in B2.

Now similarly apply the code for other cells to test.

Code:

Sub IsEmpty_Example2() If IsEmpty(Range("B2").Value) Then Range("C2").Value = "No Update" Else Range("C2").Value = "Collects Updates" End If If IsEmpty(Range("B3").Value) Then Range("C3").Value = "No Update" Else Range("C3").Value = "Collected Updates" End If If IsEmpty(Range("B4").Value) Then Range("C4").Value = "No Update" Else Range("C4").Value = "Collected Updates" End If End Sub

Run this code to have the results.

In cell C3 we got the result as “No Update” because there is no value in cell B3 i.e. Empty Cell. Since the logical formula returned TRUE we got the respective result.

Example #3 - Alternative to VBA ISEMPTY Function

Έχουμε μια εναλλακτική λύση στη συνάρτηση 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 κελιού είναι ίσο με κενό ή όχι.

Τα διπλά εισαγωγικά ("") αντιπροσωπεύουν ένα κενό κελί ή όχι εάν το κενό αποτέλεσμα είναι ΑΛΗΘΟΣ ή αλλιώς ΛΑΘΟΣ.