Πώς να δείτε και να επιστρέψετε την αντίστοιχη τιμή με το σχόλιο κελιού;

Όταν εφαρμόζετε τη συνάρτηση Vlookup για να επιστρέψετε την αντίστοιχη τιμή, θα εξαγάγει μόνο την τιμή χωρίς τη μορφοποίηση, όπως χρώμα πλήρωσης, γραμματοσειρά ή σχόλιο κ.λπ. για να λάβετε το ακόλουθο αποτέλεσμα στιγμιότυπου οθόνης. Πώς θα μπορούσατε να λύσετε αυτήν την εργασία στο Excel;

Vlookup και επιστροφή τιμής αντιστοίχισης με σχόλιο κελιού χρησιμοποιώντας τον κώδικα VBA

Vlookup και επιστροφή τιμής αντιστοίχισης με σχόλιο κελιού χρησιμοποιώντας τον κώδικα VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να δείτε και να επιστρέψετε την αντίστοιχη τιμή με το σχόλιό του, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Vlookup και απόδοση αντιστοίχισης με σχόλιο κελιού

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. Και, στη συνέχεια, αποθηκεύστε τον κωδικό και κλείστε το παράθυρο κώδικα, εισαγάγετε αυτόν τον τύπο: = vlookupcomment (H2, A2: C10,3, FALSE) σε ένα κενό κελί για να εντοπίσετε το αποτέλεσμα και πατήστε εισάγετε κλειδί, η αντίστοιχη τιμή καθώς και το σχόλιο επιστρέφονται ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

Σημείωση: Στον παραπάνω τύπο, H2 είναι η τιμή αναζήτησης που θέλετε να επιστρέψετε την αντίστοιχη τιμή της, Α2: Γ10 είναι ο πίνακας δεδομένων που θέλετε να χρησιμοποιήσετε, ο αριθμός 3 είναι ο αριθμός στήλης που περιέχει την αντιστοιχισμένη τιμή που θέλετε να επιστρέψετε.