Πώς να επισημάνετε διπλές τιμές σε διαφορετικά χρώματα στο Excel;
Στο Excel, μπορούμε εύκολα να επισημάνουμε τις διπλές τιμές σε μια στήλη με ένα χρώμα χρησιμοποιώντας το Μορφοποίηση υπό όρους, αλλά, μερικές φορές, πρέπει να επισημάνουμε τις διπλές τιμές σε διαφορετικά χρώματα για να αναγνωρίσουμε τα διπλά γρήγορα και εύκολα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να επιλύσετε αυτήν την εργασία στο Excel;
Επισημάνετε τις διπλές τιμές σε μια στήλη με διαφορετικά χρώματα χρησιμοποιώντας τον κώδικα VBA
Επισημάνετε τις διπλές τιμές σε μια στήλη με διαφορετικά χρώματα χρησιμοποιώντας τον κώδικα VBA
Στην πραγματικότητα, δεν υπάρχει άμεσος τρόπος για να ολοκληρώσουμε αυτήν την εργασία στο Excel, αλλά, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει, κάντε τα εξής:
1. Επιλέξτε τη στήλη τιμών που θέλετε να επισημάνετε διπλότυπα με διαφορετικά χρώματα και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Επισημάνετε διπλές τιμές σε διαφορετικά χρώματα:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. Και στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και ένα πλαίσιο προτροπής θα σας υπενθυμίσει να επιλέξετε το εύρος δεδομένων που θέλετε να επισημάνετε τις διπλές τιμές, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι διπλές τιμές έχουν επισημανθεί σε διαφορετικά χρώματα, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
