Πώς να εξετάσετε τα κελιά με μια μακροεντολή
Θα θέλατε να αξιολογήσετε τα κελιά και να καθορίσετε πόσα κελιά γεμίζουν σε μια περιοχή και πόσα όχι; Το παρακάτω σχήμα δείχνει ένα παράδειγμα:
Ο δείκτης A1: B7 περιέχει ορισμένα κενά κελιά και μερικά γεμάτα κελιά. Εάν θέλετε να το αξιολογήσετε σε μακροεντολή, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα προγράμματος:
Sub CountsFilledCells ()
Dim Number As Long
Dim Number2 Όσο καιρό
Αμυδρή περιοχή As Range
Dim a As String
Ορισμός περιοχής = Επιλογή
Αριθμός = Εφαρμογή. CountA (περιοχή)
Count2 = area.Cells.Count - αριθμός
a = MsgBox ("Στην τρέχουσα επιλογή είναι" _
& Αριθμός & "κελιά γεμάτα και" & αριθμός2 _
& "Κελιά άδεια.", VbOK Μόνο, "αξιολόγηση κελιών")
Τέλος υπο
Η μακροεντολή ορίζει τη συνάρτηση CountA για να μετρήσετε τον αριθμό των κενών κελιών σε ένα εύρος. Το αποτέλεσμα αποθηκεύει τη μεταβλητή αριθμόςΤο Για να καθοριστεί ο αριθμός των γεμισμένων κελιών, αυτή η τιμή αφαιρείται από τον αριθμό των συνολικών κελιών που εξετάστηκαν. Η μακροεντολή αποθηκεύει αυτήν την τιμή στο Νούμερο 2.
Μετά την έναρξη, ο κωδικός προγράμματος καθορίζει τον αριθμό των γεμισμένων και κενών κελιών στην ενεργή σήμανση και εμφανίζει το αποτέλεσμα σε ένα παράθυρο:
Εάν θέλετε να επεξεργαστείτε ένα εύρος της επιλογής σας και όχι την τρέχουσα επιλογή, προσαρμόστε την εκχώρηση τιμής στη μεταβλητή περιοχή στο. Χρησιμοποιείται στη μακροεντολή με την ιδιότητα Επιλογή συνδεδεμένος. Αν θέλετε να ορίσετε μόνοι σας ένα εύρος, αντικαταστήστε το σειρά-Ανάθεση στη μεταβλητή περιοχή με μια έκφραση της ακόλουθης μορφής:
Ορισμός εύρους = Εύρος ("A1: B5")
Η προδιαγραφή εύρους αναφέρεται πάντα στο ενεργό φύλλο εργασίας. Αν θέλετε να απευθυνθείτε σε άλλο φύλλο εργασίας, τοποθετήστε το μπροστά από το ΕύροςΕντολή στις αναφορές στις μεθόδους Τετράδια εργασίας και Φύλλα σταθερός.
