UDF VLOOKUP Comments

Sebuah modifikasi dari rumus VLOOKUP, dimana Ini adalah sebuah User Defined Functions (UDF) untuk rumus VLOOKUP.

Bedanya dengan VLOOKUP biasa, selain mengambil Nilai, juga mengambil komentar pada cell sumber.

Untuk membuat UDF, simpan script dibawah ini ke dalam Module

Function VLOOKUPCMT(lookup_value As Variant, table_array As Range, col_index_num As Long, Optional range_lookup As Long = 1) As Variant
Application.Volatile

'-----------------------------------------
' Sctipt VBA    : VLOOKUP comment
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------

Dim xReturn As Variant
Dim yCell As Range

xReturn = Application.Match(lookup_value, table_array.Columns(1), range_lookup)

If IsError(xReturn) Then
    VLOOKUPCMT = CVErr(xlErrNA)
Else
    Set yCell = table_array.Columns(col_index_num).Cells(1)(xReturn)
    VLOOKUPCMT = yCell.Value
    With Application.Caller
        If Not .Comment Is Nothing Then
            .Comment.Delete
        End If
        If Not yCell.Comment Is Nothing Then
            .AddComment yCell.Comment.Text
        End If
    End With
End If
End Function

Untuk penggunaan rumus ini sama seperti rumus VLOOKUP Biasa,

Buat rumus VLOOKUP seperti biasa, kemudian ubah dari VLOOKUP menjadi VLOOKUPCMT.