質問: True MsgBox ("完了") End Sub ```
回答: On Error Resume Next こちらを削除すれば、値は入りません。 しかし、このような書き方ですが、型が違うとエラーが出るかもしれません。 > > 引用 > > http://www.relief.jp/itnote/archives/excel-vba-error-trap-vlookup-function.php > > > ``` Sub VLookupのサンプル_エラー回避_1() Dim tbl As Range Dim key As Long Dim ret As String Set tbl = Range("D1:E5") key = Range("A1").Value On Error Resume Next ret = WorksheetFunction.VLookup(key, tbl, 2, False) If Err.Number <> 0 Then ret = "該当なし" End If On Error GoTo 0 Range("B1").Value = ret End Sub ``` エラー処理も考慮にいれてコードを書くようにしましょう。 また蛇足ですがShohin = ・・・ の部分が2回あるので1つは不要です。