Πώς να δείτε και να επιστρέψετε το χρώμα φόντου μαζί με την τιμή αναζήτησης στο Excel;
Ας υποθέσουμε ότι έχετε έναν πίνακα όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης. Τώρα θέλετε να ελέγξετε αν μια καθορισμένη τιμή είναι στη στήλη Α και στη συνέχεια να επιστρέψετε την αντίστοιχη τιμή μαζί με το χρώμα φόντου στη στήλη Γ. Πώς να το επιτύχετε; Η μέθοδος στο άρθρο μπορεί να σας βοηθήσει να λύσετε το πρόβλημα.
Vlookup και επιστροφή χρώματος φόντου με τιμή αναζήτησης ανά λειτουργία που καθορίζεται από το χρήστη
Κάντε τα εξής για να αναζητήσετε μια τιμή και να επιστρέψετε την αντίστοιχη τιμή μαζί με το χρώμα φόντου στο Excel.
1. Στο φύλλο εργασίας περιέχει την τιμή που θέλετε να δείτε, κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε παρακάτω τον κώδικα VBA στο παράθυρο Κωδικός.
Κωδικός VBA 1: Vlookup και επιστροφή χρώματος φόντου με την τιμή αναζήτησης
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε τον παρακάτω κωδικό VBA 2 στο παράθυρο Module.
Κωδικός VBA 2: Vlookup και επιστροφή χρώματος φόντου με την τιμή αναζήτησης
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function
4. Αφού εισαγάγετε τους δύο κωδικούς, κάντε κλικ Εργαλεία > αναφορές. Στη συνέχεια, ελέγξτε το Χρόνος εκτέλεσης σεναρίων της Microsoft στο πλαίσιο Αναφορές - VBAProject κουτί διαλόγου. Δείτε το στιγμιότυπο οθόνης:
5. Πάτα το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο και επιστρέψτε στο φύλλο εργασίας.
6. Επιλέξτε ένα κενό κελί δίπλα στην τιμή αναζήτησης και, στη συνέχεια, εισαγάγετε τον τύπο =LookupKeepColor(E2,$A$1:$C$8,3) στη γραμμή τύπων και, στη συνέχεια, πατήστε το πλήκτρο Enter.
Note: Στον τύπο, E2 περιέχει την τιμή που θα αναζητήσετε, $ A $ 1: $ C $ 8 είναι το εύρος του πίνακα και ο αριθμός 3 σημαίνει ότι η αντίστοιχη τιμή που θα επιστρέψετε βρίσκεται στην τρίτη στήλη του πίνακα. Αλλάξτε τα όπως χρειάζεστε.
7. Συνεχίστε να επιλέγετε το πρώτο κελί αποτελέσματος και σύρετε τη λαβή γεμίσματος προς τα κάτω για να δείτε όλα τα αποτελέσματα μαζί με το χρώμα φόντου τους. Δείτε στιγμιότυπο οθόνης.
Σχετικά άρθρα:
- Πώς να αντιγράψετε τη μορφοποίηση πηγής του κελιού αναζήτησης όταν χρησιμοποιείτε το Vlookup στο Excel;
- Πώς να vlookup και να επιστρέψετε τη μορφή ημερομηνίας αντί του αριθμού στο Excel;
- Πώς να χρησιμοποιήσετε το vlookup και το άθροισμα στο Excel;
- Πώς να δείτε την τιμή επιστροφής σε παρακείμενο ή επόμενο κελί στο Excel;
- Πώς να βλέπετε την τιμή και να επιστρέφετε true ή false / ναι ή όχι στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!