Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vklopiti in vrniti ujemajočo vrednost s komentarjem celic?

Ko uporabite funkcijo Vlookup za vrnitev ustrezne ujemajoče vrednosti, bo vrednost izvlekla samo brez oblikovanja, na primer barve polnila, pisave ali komentarja itd. Včasih boste morda morali vzorupovati in vrniti izravnano vrednost, vključno s komentarjem da dobite naslednji rezultat posnetka zaslona. Kako lahko to delo rešite v Excelu?

Vlookup in vrnitev ujemajoče se vrednosti s celičnim komentarjem z uporabo VBA kode


Vlookup in vrnitev ujemajoče se vrednosti s celičnim komentarjem z uporabo VBA kode


Spodnja koda VBA vam lahko pomaga pri ogledu in vrniti ujemajočo vrednost s svojim komentarjem, storite na naslednji način:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, potem kopirajte in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Vlookup in vrnitev ujemajoče se vrednosti s komentarjem celice:

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. In nato shranite kodo in zaprite kodno okno, vnesite to formulo: = vlookupcomment (H2, A2: C10,3, FALSE) v prazno celico, da poiščete rezultat in pritisnite Vnesite ključa, ujemajoča se vrednost in komentar se vrnejo hkrati, si oglejte posnetek zaslona:

Opombe: V zgornji formuli, H2 je vrednost iskanja, ki ji želite vrniti ustrezno vrednost, A2: C10 je tabela podatkov, ki jo želite uporabiti, številko 3 je številka stolpca, ki vsebuje ujemajočo vrednost, ki jo želite vrniti.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Derek Carl · 8 months ago
    Is there a way that the vlookup comment copies the formatting of the original comment? Some of my comments are very long, but the comment returned from vlookup is always the standard small size, so I can't read all the text
    • To post as a guest, your comment is unpublished.
      skyyang · 8 months ago
      Hello, Carl,
      May be there isn't a direct way for solving your problem, but, you can drag the comment box larger manually. Or you can apply our Kutools for Excel's Autofit Comment feature, it can help you to adjust the comment box to fit the content.Thank you!
  • To post as a guest, your comment is unpublished.
    Josh · 10 months ago
    How would I do the same as an Hlookup instead of vlookup?

    I changed the code as follows:
    Function hlookupComment(LookVal As Variant, FTable As Range, Frow 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.Rows(1), FType)
    If IsError(xRet) Then
    hlookupComment = "Not Found"
    Else
    Set xCell = FTable.Rows(Frow).Cells(1)(xRet)
    hlookupComment = 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