Hücre yorumuyla eşleşen değeri nasıl görüntüleyebilir ve döndürürüm?
Eşleşen değeri döndürmek için Vlookup işlevini uyguladığınızda, değeri yalnızca dolgu rengi, yazı tipi veya yorum vb. Gibi biçimlendirme olmadan çıkarır.Ancak bazen, yorum da dahil olmak üzere eşleşen değeri vlookup yapmanız ve döndürmeniz gerekebilir. aşağıdaki ekran görüntüsü sonucunu almak için. Bu işi Excel'de nasıl çözebilirsin?
Vlookup ve VBA kodunu kullanarak hücre yorumu ile eşleşen değeri döndür
Vlookup ve VBA kodunu kullanarak hücre yorumu ile eşleşen değeri döndür
Aşağıdaki VBA kodu, yorumuyla eşleşen değeri vlookup yapmanıza ve döndürmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modül, ardından aşağıdaki kodu kopyalayıp modül Pencere.
VBA kodu: Vlookup ve hücre yorumu ile eşleşen değeri döndür:
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. Sonra kodu kaydedin ve kod penceresini kapatın, şu formülü girin: = vlookupcomment (H2, A2: C10,3, YANLIŞ) sonucu bulmak için boş bir hücreye koyun ve Keşfet anahtar, eşleşen değer ve yorum aynı anda döndürülür, ekran görüntüsüne bakın:
not: Yukarıdaki formülde, H2 karşılık gelen değerini döndürmek istediğiniz arama değeridir, A2: C10 kullanmak istediğiniz veri tablosu, numara 3 döndürmek istediğiniz eşleşen değeri içeren sütun numarasıdır.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!