Πώς να διαγράψετε σειρές με βάση το χρώμα φόντου στο Excel;
Πώς θα μπορούσατε να διαγράψετε ολόκληρες σειρές με βάση το χρώμα φόντου; Σε αυτό το παράδειγμα, πρέπει να διαγράψω όλες τις σειρές τις οποίες τα κελιά γεμίζουν με μπλε χρώμα φόντου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Με αυτό το άρθρο, θα λάβετε ορισμένους κωδικούς για να επιτύχετε αυτήν την εργασία στο Excel.
Διαγράψτε σειρές με συγκεκριμένο χρώμα φόντου με βάση κάθε κελί
Διαγράψτε σειρές με συγκεκριμένο χρώμα φόντου με βάση μία στήλη
Διαγράψτε σειρές με συγκεκριμένο χρώμα φόντου με βάση κάθε κελί
Εάν έχετε μια σειρά δεδομένων που γεμίζουν τυχαία με μερικά χρώματα κελιού και πρέπει να διαγράψετε τις σειρές με το μπλε χρώμα του κελιού όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Για να διαγράψετε αυτόν τον τύπο σειρών, μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα VBA, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διαγράψτε σειρές που τα κελιά περιέχουν συγκεκριμένο χρώμα πλήρωσης:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Και στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε ένα κελί με το χρώμα πλήρωσης που θέλετε να διαγράψετε, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι όλες οι σειρές έχουν διαγραφεί εάν το κελί με συγκεκριμένο χρώμα πλήρωσης.
Διαγράψτε σειρές με συγκεκριμένο χρώμα φόντου με βάση μία στήλη
Εάν θέλετε να διαγράψετε τις σειρές με συγκεκριμένο χρώμα με βάση μόνο μία στήλη, για παράδειγμα, διαγράψτε τις σειρές με μπλε χρώμα στη στήλη Α και λάβετε το παρακάτω στιγμιότυπο οθόνης, εδώ είναι επίσης ένας κώδικας VBA που μπορεί να σας βοηθήσει.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διαγραφή σειρών με βάση μια στήλη που τα κελιά έχουν συγκεκριμένο χρώμα πλήρωσης:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Note: Στον παραπάνω κώδικα, A2: A21 είναι η στήλη που περιέχει το συγκεκριμένο χρώμα πλήρωσης στο οποίο θέλετε να διαγράψετε τις σειρές με βάση τον αριθμό 20 in ColorIndex = 20 Το σενάριο είναι ο χρωματικός δείκτης στον οποίο θέλετε να διαγράψετε σειρές βάσει. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλες οι σειρές που περιέχουν κελιά περιέχουν το μπλε χρώμα στη στήλη Α έχουν διαγραφεί ταυτόχρονα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
