Πώς να αντιγράψετε τη μορφοποίηση πηγής του κελιού αναζήτησης όταν χρησιμοποιείτε το 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 Function4. κλικ Εργαλεία > αναφορές. Στη συνέχεια, ελέγξτε το Χρόνος εκτέλεσης σεναρίων της Microsoft στο πλαίσιο Αναφορές - VBAProject κουτί διαλόγου. Δείτε το στιγμιότυπο οθόνης:
5. Πάτα το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.
6. Επιλέξτε ένα κενό κελί δίπλα στην τιμή αναζήτησης και, στη συνέχεια, εισαγάγετε τον τύπο =LookupKeepFormat(E2,$A$1:$C$8,3) μέσα στο Φόρμουλα μπαρ, και στη συνέχεια πατήστε το εισάγετε κλειδί.
Note: Στον τύπο, E2 περιέχει την τιμή που θα αναζητήσετε, $ A $ 1: $ C $ 8 είναι το εύρος του πίνακα και ο αριθμός 3 σημαίνει ότι η αντίστοιχη τιμή που θα επιστρέψετε βρίσκεται στην τρίτη στήλη του πίνακα. Αλλάξτε τα όπως χρειάζεστε.
7. Συνεχίστε να επιλέγετε το πρώτο κελί αποτελέσματος και, στη συνέχεια, σύρετε τη λαβή γεμίσματος προς τα κάτω για να λάβετε όλα τα αποτελέσματα μαζί με τη μορφοποίησή τους, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Σχετικά άρθρα:
- Πώς να δείτε και να επιστρέψετε το χρώμα φόντου μαζί με την τιμή αναζήτησης στο 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
