ExcelマクロでのVLOOKUP

Question

前提・実現したいこと

Excelマクロで、コードをキーにVLOOKUPでマスタから値を二次元配列に格納し、一括代入したいと考えています。

発生している問題

VLOOKUPでマスタから値が取得できていません。
下部に記載されているマクロの On Error GoTo 部分をコメントアウトしたところ、下記のエラーが出ます。
「WorksheetFunctionクラスのVLookupプロパティを取得できません。」

マクロを使わず、Excelシート上でセルにマクロのソースと同じになる（はず）のVLOOKUPの文を入力すると、正しく値が取得できます。
※マスタにコードの重複はありません。
下記がExcelに直接入力したVLOOKUP文

=VLOOKUP($A4,マスタ!S:BB,4,FALSE)

該当のソースコード

    ' 転記するデータを配列に格納する
    Dim varTbBody() As Variant
    eRow = wsTB_A.Cells(Rows.Count, 1).End(xlUp).Row
    ReDim varTbBody(eRow, 5)
    j = 0
    
    With wsTB_A
    ' 勘定コードごとにマスタの値を格納する
        For i = pcTbDataRow To eRow
            For k = 0 To 4
                varTbBody(j, k) = CStr(funGetNameFromMst(wsCommon_mst.Range("S:BB"), .Cells(i, 1), k))
            Next k
            j = j + 1
        Next i
        ' 試算表に転記する
        .Range(.Range("B4"), Cells(eRow, 6)) = varTbBody
    End With

プロシージャ内で呼び出しているファンクション

Public Function funGetNameFromMst(ByRef rangeVlookup As Range, ByRef strKey As String, ByRef strKey2)
    On Error GoTo funGetNameFromMst_err
    
    Dim strReturn As String
    
    strReturn = ""
    ' 渡されるKey2によって取得する列を分岐
    Select Case strKey2
        Case 0      ' G/L勘定タイプ
            strReturn = WorksheetFunction.VLookup(CStr(strKey), rangeVlookup, 4, False)
        Case 1      ' 機能領域
            strReturn = WorksheetFunction.VLookup(CStr(strKey), rangeVlookup, 6, False)
        Case 2      ' 税カテゴリ
            strReturn = WorksheetFunction.VLookup(CStr(strKey), rangeVlookup, 12, False)
        Case 3      ' 統制勘定
            strReturn = WorksheetFunction.VLookup(CStr(strKey), rangeVlookup, 14, False)
        Case 4      ' 原価要素タイプ
            strReturn = WorksheetFunction.VLookup(CStr(strKey), rangeVlookup, 18, False)
    End Select
    
    funGetNameFromMst = strReturn
    Exit Function
    
funGetNameFromMst_err:
    funGetNameFromMst = ""
End Function

詳しい方いたら、何がいけないのか教えていただきたいです。
よろしくお願いいたします。

Comments

[Nash-BETA]

エラーは出てきますか？それとも白紙で出てきますか？

[Tera-Tomi]

On Error GoTo 部分をコメントアウトしたところ、下記のエラーが出ます。
「WorksheetFunctionクラスのVLookupプロパティを取得できません。」

Answer 1

マスタの値が表示形式上、文字列となっているだけで、文字列として保存できていなかった。
マクロでマスタの値をすべて文字列に変換して代入したところ、VLOOKUPで値を取得することができた。

Answer 2

VBAでVLOOKUP関数を用いて値を取得する方法ですが、一部問題があります。
それば、#N/Aの時、つまり、該当データが無い場合です。
VLOOKUP関数を利用する前に、検索する値が表にあることをチェックしないとダメです。

私の場合は、COUNTIF関数で件数を調べて、0でなければ、処理するようにします。
やってみてください。

Comments

[Tera-Tomi]

回答ありがとうございます。

COUNTIF関数で件数を調べてから処理するマクロを作成したところ、COUNTIFのVLOOKUPでは件数として数えられていました。しかし値を取得するVLOOKUPではエラーが出ます。
どうやら、マスタの値が表示形式は文字列になっているのですが、確定(?)されていなかったため、取得できなかったようです。F2を押してEnterを押し、「数値が文字列として保存されています」と表示されるようになったら、値を取得することができました。
マスタの値を一括で文字列としての保存を確定(?)させるにはどうしたらよいのでしょうか。。

[Tera-Tomi]

マクロでCStrで変換してマスタの値をすべて文字列として保存できました。
COUNTIF関数でのチェックはそのまま使います。ありがとうございました。