VBA VLOOKUP関数でゼロ表示

Question

EXCEL VBAコード内でVLOOK関数を使っており、ここにIF関数またはISERROR関数を
組合せて元データがHITしない箇所は0（ゼロ）で表示をさせたいと思っています。

色んなサンプルコードから切貼りを試しておりますが、やはり上手く出来ず
教えて頂けないでしょうか。

抜粋した該当箇所のコードは下記となります。

　 On Error Resume Next

For i = 1 To SerchKey.Rows.Count
    OutputRange(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 3, False)
Next

On Error GoTo 0

普段は上記VLOOKだけの状態で使用しており、元データがHITしない場合は空白で表れる状態です。

IF関数またはISERROR関数を加えて0（ゼロ）表示ができるコードの書き方を教えて頂けないでしょうか。

Answer 1

ベタでいいんじゃない？

 OutputRange(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 3, False)
 If OutputRange(i, 1) = "" Then OutputRange(i, 1) = 0

あるいは

 If WorksheetFunction.CountIf(SerchRange.Columns(1), SerchKey(i, 1)) = 0 Then
    OutputRange(i, 1) = 0
 Else
    OutputRange(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 3, False)
 End If

とか。（On Error Resume Nextも要らなくなる気がする）

Comments

[RANDS_CHANP]

有難うございます！色々試してたのですが、これは全て上手く表示されました。
ベタが中々理解出来ないんですよね。とても助かりました！

[xail2222]

少し気になったので一言。
後者は問題無いと思うのですが、前者は初めから値が入っている場合にクリアされずそのままの値になるかと思います

それでも問題なければ良いのですが。

[jinoji]

なるほど、ではまず先にゼロを入れておくという手はどうでしょう。

[xail2222]

なるほど。そちらの方が良いかと思います

[RANDS_CHANP]

そうなんですね。有難うございます。

Answer 2

OutputRange(i, 1) = WorksheetFunction.IFNA( Application.VLookup(SerchKey(i, 1), SerchRange, 3, False),0)

ほとんど同じですが、こちらで私の環境では行けました。

Office 2016です。

（追記）
On Error Resume Nextは不要です。

WorksheetFunction.VLookup　は、ヒットしない時にエラーを発生しますが
Application.VLookup　は、ヒットしない時にエラーを発生させず、エラー値を返すようです。

ただ、Application.VLookupって、なんだ？　と私は思うのですが
存在していて使えるから、まぁ。いっか。という感じです。

Comments

[RANDS_CHANP]

有難うございます！ホントですね。短いコードでスッキリ感動しました！
説明も分かりやすくて嬉しいです。今後とも宜しくお願い致します。

Answer 3

未検証ですが、

OutputRange(i, 1) = WorksheetFunction.IFNA( WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 3, False),0)

でできるのではないでしょうか。

Comments

[RANDS_CHANP]

有難うございます。いま試してみたのですが、やはり空白になってしまいます。
何故なのでしょう。