Πώς να ελέγξετε γρήγορα εάν ένα φύλλο είναι κενό στο Excel;
Εάν υπάρχουν μερικά κενά φύλλα σε ένα τεράστιο βιβλίο εργασίας, πώς μπορείτε να ελέγξετε γρήγορα εάν ένα φύλλο είναι κενό στο βιβλίο εργασίας και, στη συνέχεια, να τα διαγράψετε; Στο Excel, υπάρχει μια ενσωματωμένη συνάρτηση για να προσδιορίσετε εάν ένα φύλλο είναι κενό ή όχι, αλλά εδώ, σας παρουσιάζω έναν κωδικό VBA για να ελέγξετε αν ένα φύλλο είναι κενό.
Ελέγξτε εάν ένα φύλλο είναι κενό με VBA
Ελέγξτε εάν ένα φύλλο είναι κενό με VBA
Για να ελέγξετε εάν ένα φύλλο είναι κενό, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα μακροεντολών για να προσδιορίσετε γρήγορα εάν ένα φύλλο είναι κενό.
1. Ενεργοποιήστε ένα φύλλο που θέλετε να ελέγξετε εάν είναι κενό, πατήστε Alt + F11 κλειδί για το άνοιγμα Microsoft Visual Basic για εφαρμογές κάντε κλικ στο παράθυρο Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα νέο Μονάδα μέτρησης.
2. Στο κενό σενάριο, επικολλήστε τον παρακάτω κώδικα μακροεντολής σε αυτό. Δείτε το στιγμιότυπο οθόνης:
VBA: Ελέγξτε εάν ένα φύλλο είναι κενό
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Αποθηκεύστε τον κωδικό και πατήστε F5 για να εκτελέσετε τον κώδικα και θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι το φύλλο είναι κενό ή όχι.
 |
 |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
