【ﾕｰｻﾞ定義関数】Vlookup拡張

◆構文

　cVlookup(検索値, 範囲, 列番号)

◆解説

VLOOKUP関数を拡張したモノで、検索方法"完全一致＝FALSE"で探せない値に対して０を返します。

　検索値：検索する値
　範囲　：データを探すセルの範囲
　列番号：指定した範囲の左から何番目の列から転記するのかを数値で指定

◆ソースコード

Function cVlookup(検索値, 範囲, 列番号)
    Dim tmp
    tmp = Application.VLookup(検索値, 範囲, 列番号, False)
    If IsError(tmp) = True Then
        tmp = 0
    End If
    cVlookup = tmp
End Function

◆補足
tmp = 0
を
tmp = "探せません"
などに変えることもできます

◆登録方法