Πώς να ελέγξετε εάν ένα κελί ή μια περιοχή πολλαπλών κελιών είναι άδεια με το 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 για να εκτελέσετε τον κωδικό σας.
  • Δείτε τα αποτελέσματα στο άμεσο παράθυρο.

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

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

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

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

Με τον ίδιο τρόπο μπορείτε να χρησιμοποιήσετε την ιδιότητα 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 & " άδεια κελιά από " &αμπέραζ; κατασκήνωση; "."


Πώς να ορίσετε ένα χρώμα κελιού Excel σύμφωνα με μια συνθήκη με το VBA;

Πώς να ορίσετε ένα χρώμα κελιού Excel σύμφωνα με μια συνθήκη με το VBA;

Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint. Ανακαλύψτε πόσο απλά μπορείτε να κόψετε φωτογραφίες σε κύκλους για εντυπωσιακές παρουσιάσεις.

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Μάθετε πώς να κάνετε εναλλαγή από πληκτρολόγια LTR σε RTL στο Microsoft Word.

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Μάθετε πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord. Οι επιλογές γραμματοσειρών είναι ποικίλες και πλούσιες.

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

Κορυφαίες εφαρμογές κοπής ήχων κλήσης στο Android για τη δημιουργία μοναδικών ήχων κλήσης. Ανακαλύψτε τις καλύτερες επιλογές για να προσαρμόσετε το τηλέφωνό σας.

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας στο Facebook Messenger. Αυτή τη στιγμή στην ομαδική συνομιλία του Facebook Messenger, μπορούμε εύκολα να αλλάξουμε το όνομα της ομάδας συνομιλίας.

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Ανακαλύψτε πώς να επαναφέρετε διαγραμμένες αναρτήσεις στο Facebook εύκολα και γρήγορα. Μαθαίνετε όλες τις λεπτομέρειες για την ανάκτηση διαγραμμένων αναρτήσεων

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για την ακρόαση μουσικής στους Χάρτες Google Επί του παρόντος, οι χρήστες μπορούν να ταξιδέψουν και να ακούσουν μουσική χρησιμοποιώντας την εφαρμογή Google Map στο iPhone. Σήμερα, το WebTech360 σας προσκαλεί

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση του LifeBOX - Η διαδικτυακή υπηρεσία αποθήκευσης της Viettel, το LifeBOX είναι μια νέα διαδικτυακή υπηρεσία αποθήκευσης της Viettel με πολλά ανώτερα χαρακτηριστικά

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger, το Facebook Messenger στην πιο πρόσφατη έκδοση παρείχε στους χρήστες μια εξαιρετικά χρήσιμη δυνατότητα: αλλαγή