Πώς να αποτρέψετε κενές ή ελλείπουσες καταχωρήσεις σε κελιά στο Excel;
Ας υποθέσουμε ότι δημιουργείτε έναν πίνακα στην περιοχή A1: B10 ενός φύλλου εργασίας και πρέπει να αποτρέψετε την εμφάνιση κενών κελιών σε αυτό το εύρος πίνακα, πώς να το επιτύχετε; Αυτό το άρθρο εισάγει μια μέθοδο αυτόματης εμφάνισης του πλαισίου προτροπής εάν εμφανίζεται κενή καταχώριση σε ένα συγκεκριμένο εύρος πίνακα κατά την επεξεργασία. Ακολουθήστε τη μέθοδο βήμα προς βήμα στο άρθρο.
Αποτρέψτε τις κενές ή ελλείπουσες καταχωρήσεις σε κελιά χρησιμοποιώντας τον κώδικα VBA
Αποτρέψτε τις κενές ή ελλείπουσες καταχωρήσεις σε κελιά χρησιμοποιώντας τον κώδικα VBA
A1: B10 είναι το εύρος όπου πρέπει να δημιουργήσετε πίνακα και τα A1, B1 περιέχουν τις κεφαλίδες του πίνακα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Κάντε τα εξής για να αποφύγετε την εμφάνιση κενών ή λείπουν καταχωρήσεων στο εύρος A2: B10 κατά τη δημιουργία του πίνακα.
1. Στο φύλλο εργασίας που δεν θα επιτρέψετε κενές καταχωρίσεις σε συγκεκριμένο εύρος, κάντε δεξί κλικ στην καρτέλα φύλλων και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Αποτροπή κενών ή ελλιπών καταχωρίσεων σε μια σειρά κελιών
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
Note: Στον κωδικό VBA, το A2: B10 είναι το εύρος των κελιών που δεν θέλετε να αφήσετε κανένα κενό κελί μέσα. Αλλάξτε το εύρος όπως χρειάζεστε.
Από τώρα και στο εξής, όταν παραλείψετε κενό κελί και συμπληρώσετε το επόμενο κελί στο καθορισμένο εύρος απευθείας, θα λάβετε ένα Kutools για Excel εμφανίζεται το πλαίσιο διαλόγου όπως φαίνεται παρακάτω.
Σχετικά Άρθρα:
- Πώς να αποτρέψετε την είσοδο δεδομένων σε συγκεκριμένα κελιά ενός φύλλου εργασίας στο Excel;
- Πώς να αποτρέψετε την επιλογή πολλαπλών φύλλων εργασίας στο Excel;
- Πώς να αποτρέψετε τη διαγραφή ενός συγκεκριμένου φύλλου εργασίας στο Excel;
- Πώς να αποτρέψετε τη διαγραφή συγκεκριμένων περιεχομένων κυττάρων στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!