Πώς να ελέγξετε εάν ένα κελί ή μια περιοχή πολλαπλών κελιών είναι άδεια με το Excel VBA;

Σήμερα θα μάθουμε πώς να ελέγχουμε εύκολα εάν ένα ή πολλά κελιά είναι κενά χρησιμοποιώντας τη Visual Basic for Applications. Το περιεχόμενο είναι σχετικό για το Excel 2019 / 365, 2016 και παλαιότερες εκδόσεις του Microsoft Office.

Εργασία προετοιμασίας

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

Έλεγχος εάν η περιοχή κελιών του Excel είναι άδεια με VBA

Στο Excel, ανοίξτε το περιβάλλον της Visual Basic πατώντας Alt+F11
Εισαγάγετε τον ακόλουθο κώδικα ως διαδικασία στο φύλλο εργασίας σας ή εναλλακτικά σε μια ειδική μονάδα VBA.

Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub

Μεταβείτε στο υπολογιστικό φύλλο σας και επιλέξτε ένα αυθαίρετο εύρος κελιών.
Επιστρέψτε στο πρόγραμμα επεξεργασίας της Visual Basic και βεβαιωθείτε ότι το πρόγραμμα προβολής άμεσης προβολής (CTRL+G) είναι ορατό – καθώς η μέθοδος Debug.Print στον κώδικα θα εμφανίσει το αποτέλεσμά της σε αυτό το παράθυρο.
Πατήστε F5 για να εκτελέσετε τον κωδικό σας.
Δείτε τα αποτελέσματα στο άμεσο παράθυρο.

Όλα τα κενά κελιά θα αναγνωριστούν.

Πιθανές επεκτάσεις στον κώδικα: Μπορείτε προφανώς να επεκτείνετε αυτόν τον κωδικό ανάλογα με τις ανάγκες σε περίπτωση που σας ενδιαφέρει να παραλείψετε κενές τιμές ή απλώς να μην κάνετε τίποτα σε περίπτωση που τα κελιά δεν είναι γεμάτα. Ομοίως, μπορείτε να ελέγξετε εάν το ίδιο το εύρος είναι κενό, δηλαδή – δεν υπάρχουν μαύρα κελιά.

Έλεγχος μη κενών πεδίων

Με τον ίδιο τρόπο μπορείτε να χρησιμοποιήσετε την ιδιότητα IsEmpty για να ελέγξετε για πεδία που δεν είναι κενά.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Μπόνους: Χρησιμοποιήστε τον παρακάτω κώδικα εάν θέλετε να επισημάνετε και τα κενά κελιά.

Dim i Όσο σκοτεινός c Όσο Dim myRange Ως Range Dim myCell As Range Ορισμός myRange = Range("A1:A10") Για κάθε myCell In myRange ' c = c + 1 If IsEmpty(myCell) Τότε myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Υπάρχουν συνολικά " &αμπέραζ; i & " άδεια κελιά από " &αμπέραζ; κατασκήνωση; "."

Αφήστε ένα σχόλιο

Πρότυπο απλού πίνακα ανάθεσης εργασιών για το Word: Μια πρακτική έκδοση για διευθυντές μικρών ομάδων

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

Απλό πρότυπο φύλλου παρακολούθησης παιδικού σταθμού: Εκτυπώσιμη σύνδεση και αποσύνδεση για φροντίδα παιδιών στο σπίτι

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

Εκτυπώσιμο πρότυπο στρατηγικής μάρκετινγκ μίας σελίδας για τοπικές επιχειρήσεις

Χρησιμοποιήστε αυτό το εκτυπώσιμο πρότυπο στρατηγικής μάρκετινγκ μίας σελίδας για να ορίσετε το τοπικό σας κοινό, την προσφορά, τα κανάλια, τον προϋπολογισμό, τις εβδομαδιαίες ενέργειες και τους μετρήσιμους στόχους σας.

Πώς να σταματήσετε το Excel από την αυτόματη αλλαγή αριθμών σε ημερομηνίες

Αποτρέψτε το Excel από τη μετατροπή τιμών όπως 1/2, 11-53 ή JAN1 σε ημερομηνίες. Μάθετε αξιόπιστες διορθώσεις για την πληκτρολόγηση, την επικόλληση, τις εισαγωγές CSV και τα κελιά που έχουν ήδη μετατραπεί.

Πρότυπο PowerPoint παρουσίασης σύγχρονης καταχώρισης ακινήτων (δωρεάν): Τι να συμπεριλάβετε

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

Πώς να διορθώσετε το σφάλμα «Το Outlook δεν μπορεί να στείλει email αλλά μπορεί να λάβει»

Διορθώστε το Outlook όταν μπορείτε να λαμβάνετε email αλλά δεν μπορείτε να στείλετε. Ελέγξτε τον φάκελο Αποστολής, τη λειτουργία εκτός σύνδεσης, τη σύνδεση, τις ρυθμίσεις SMTP, τα προφίλ και τις αλλαγές του Microsoft 365.

Απλό Πρότυπο Excel για Δεκαπενθήμερο Ιχνηλάτη Μισθοδοσίας για Μικρές Ομάδες: Ένας Πρακτικός Οδηγός Ρύθμισης

Δημιουργήστε έναν απλό δεκαπενθήμερο ιχνηλάτη μισθοδοσίας σε Excel για μια μικρή ομάδα, με ώρες, αποδοχές, κρατήσεις, σημάνσεις ελέγχου, συνοπτικές αναφορές και οδηγίες τήρησης αρχείων.

Εκτυπώσιμη λίστα ελέγχου σχεδιασμού εκδηλώσεων και πρότυπο προϋπολογισμού για το Word: Τι να συμπεριλάβετε και πότε να χρησιμοποιήσετε το Excel αντ' αυτού

Δημιουργήστε ή προσαρμόστε ένα εκτυπώσιμο πρότυπο λίστας ελέγχου σχεδιασμού εκδηλώσεων και προϋπολογισμού στο Microsoft Word, με πρακτικές ενότητες, συμβιβασμούς και συμβουλές για το Word έναντι του Excel.

Απλό Πρότυπο Παρουσίασης Εκπαίδευσης Onboarding για Νέους Υπαλλήλους: Πρακτικός Οδηγός 12 Διαφανειών

Δημιουργήστε μια απλή παρουσίαση onboarding για νέους υπαλλήλους με μια πρακτική δομή 12 διαφανειών που καλύπτει προσδοκίες ρόλου, εργαλεία, ασφάλεια, πολιτικές, ασφάλεια εργασίας και ενέργειες της πρώτης εβδομάδας.

Πώς να εξάγετε επαφές του Salesforce σε καθαρή μορφή Excel χωρίς να χαλάσουν τα IDs ή οι αριθμοί τηλεφώνου

Εξάγετε καθαρά επαφές του Salesforce σε Excel: δημιουργήστε την κατάλληλη αναφορά, εξάγετε σε CSV Μόνο Λεπτομέρειες, εισάγετε με Power Query, διατηρήστε τα IDs και τα μηδενικά στην αρχή, αφαιρέστε τα διπλότυπα με ασφάλεια και επαληθεύστε το αποτέλεσμα.