Πώς να αντιγράψετε τη μορφοποίηση πηγής του κελιού αναζήτησης όταν χρησιμοποιείτε το Vlookup στο Excel;

Στα προηγούμενα άρθρα, έχουμε μιλήσει για τη διατήρηση του χρώματος φόντου όταν οι τιμές vlookup στο Excel. Εδώ σε αυτό το άρθρο, θα εισαγάγουμε μια μέθοδο αντιγραφής όλης της μορφοποίησης κελιού του κελιού που προκύπτει όταν κάνετε το Vlookup στο Excel. Κάντε τα εξής:

Αντιγραφή μορφοποίησης πηγής κατά τη χρήση του Vlookup στο Excel με μια λειτουργία που καθορίζεται από το χρήστη

Αντιγραφή μορφοποίησης πηγής κατά τη χρήση του Vlookup στο Excel με μια λειτουργία που καθορίζεται από το χρήστη

Ας υποθέσουμε ότι έχετε έναν πίνακα όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης. Τώρα πρέπει να ελέγξετε εάν μια καθορισμένη τιμή (στη στήλη Ε) είναι στη στήλη Α και να επιστρέψετε την αντίστοιχη τιμή με τη μορφοποίηση στη στήλη Γ. Κάντε τα εξής για να το επιτύχετε.

1. Στο φύλλο εργασίας περιέχει την τιμή που θέλετε να δείτε, κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε παρακάτω τον κώδικα VBA στο παράθυρο Κωδικός.

Κωδικός VBA 1: Vlookup και τιμή επιστροφής με μορφοποίηση

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Set xRg = Application.Range(xDicStr)
                xRg.Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

3. Στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε τον παρακάτω κωδικό VBA 2 στο παράθυρο Module.

Κωδικός VBA 2: Vlookup και τιμή επιστροφής με μορφοποίηση

Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
    End If
    Application.ScreenUpdating = True
End Function

4. κλικ Εργαλεία > αναφορές. Στη συνέχεια, ελέγξτε το Χρόνος εκτέλεσης σεναρίων της Microsoft στο πλαίσιο Αναφορές - VBAProject κουτί διαλόγου. Δείτε το στιγμιότυπο οθόνης:

5. Πάτα το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Επιλέξτε ένα κενό κελί δίπλα στην τιμή αναζήτησης και, στη συνέχεια, εισαγάγετε τον τύπο =LookupKeepFormat(E2,$A$1:$C$8,3) μέσα στο Φόρμουλα μπαρ, και στη συνέχεια πατήστε το εισάγετε κλειδί.

Σημείωση: Στον τύπο, E2 περιέχει την τιμή που θα αναζητήσετε, $ A $ 1: $ C $ 8 είναι το εύρος του πίνακα και ο αριθμός 3 σημαίνει ότι η αντίστοιχη τιμή που θα επιστρέψετε βρίσκεται στην τρίτη στήλη του πίνακα. Αλλάξτε τα όπως χρειάζεστε.

7. Συνεχίστε να επιλέγετε το πρώτο κελί αποτελέσματος και, στη συνέχεια, σύρετε τη λαβή γεμίσματος προς τα κάτω για να λάβετε όλα τα αποτελέσματα μαζί με τη μορφοποίησή τους, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Ξεκλειδώστε το Excel Magic με Kutools AI

• Έξυπνη εκτέλεση: Εκτελέστε λειτουργίες κυψέλης, αναλύστε δεδομένα και δημιουργήστε γραφήματα—όλα αυτά καθοδηγούνται από απλές εντολές.
• Προσαρμοσμένες φόρμουλες: Δημιουργήστε προσαρμοσμένους τύπους για να βελτιστοποιήσετε τις ροές εργασίας σας.
• Κωδικοποίηση VBA: Γράψτε και εφαρμόστε τον κώδικα VBA χωρίς κόπο.
• Ερμηνεία τύπου: Κατανοήστε πολύπλοκους τύπους με ευκολία.
• Μετάφραση κειμένου: Σπάστε τα γλωσσικά εμπόδια στα υπολογιστικά φύλλα σας.

Βελτιώστε τις δυνατότητές σας στο Excel με εργαλεία που υποστηρίζονται από AI. Κατεβάστε το Δωρεάν Τώρα και βιώστε την αποτελεσματικότητα όπως ποτέ άλλοτε!

Σχετικά άρθρα:

• Πώς να δείτε και να επιστρέψετε το χρώμα φόντου μαζί με την τιμή αναζήτησης στο Excel;
• Πώς να vlookup και να επιστρέψετε τη μορφή ημερομηνίας αντί του αριθμού στο Excel;
• Πώς να χρησιμοποιήσετε το vlookup και το άθροισμα στο Excel;
• Πώς να δείτε την τιμή επιστροφής σε παρακείμενο ή επόμενο κελί στο Excel;
• Πώς να βλέπετε την τιμή και να επιστρέφετε true ή false / ναι ή όχι στο Excel;