İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Cell comment ilə vlookup və uyğun qiyməti necə qaytarırsınız?

Vlookup funksiyasını eşleme dəyərini qaytarmaq üçün tətbiq edərkən, yalnız rəng, yazı tipi və ya şərh və s. Kimi format vermədən dəyər çıxaracaqdır. Ancaq bəzən vlookup-a və həmçinin şərh daxil olmaqla bərabər qiymətə qayıtmaq lazım ola bilər. Aşağıdakı ekran görüntüsünü almaq üçün. Excel-də bu işi necə həll edə bilərsən?

Vlookup və VBA kodunu istifadə edərək hücum şərhinə uyğun qiymətə uyğun gəlir


Vlookup və VBA kodunu istifadə edərək hücum şərhinə uyğun qiymətə uyğun gəlir


Aşağıdakı VBA kodu, şərhinizlə vlookup və bərabər qiymətə qayıtmaq üçün kömək edə bilər, xahiş edirəm:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, sonra aşağıdakı kodu kopyalayıb yapışdırın Modules Pəncərə.

VBA kodu: Vcellup və cell comment ilə geri uyğunluq dəyəri:

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. Və kodu saxlayıb kod pəncərəsini bağlayın, bu formulu daxil edin: = vlookupcomment (H2, A2: C10,3, FALSE) nəticə tapmaq üçün boş bir hüceyrəyə daxil edin və basın Daxil edin açar, eşleşen değer, həm də şərh bir anda geri qaytarılır, ekran görünüşünə baxın:

QeydYuxarıda qeyd olunan formada, H2 müvafiq dəyəri qaytarmaq istədiyiniz axtarış dəyəri, A2: C10 Istifadə etmək istədiyiniz məlumatların sayıdır 3 qayıtmaq istədiyiniz eşleşen değeri olan sütun numarasıdır.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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 · 6 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 · 6 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 · 8 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