VBA deleteをクリックすると型が一致しないとデバッグになります。

コード次のように書いたのですが、１５年前のことで、79歳の老人ななったもので、解決するのが困難です。どうぞよろしくお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim r As Integer, myrange As Range

Set myrange = Worksheets("検証科目").Range("A1:A18")

With Target
If .Row > 1 And .Row < 200 And .Column = 42 Then
r = Application.WorksheetFunction.Match(Target.Value, myrange, 0)
Cells(.Row, "AR").Value = _
Worksheets("検証科目").Range("B1").Offset(r - 1).Value

End If

End With
End Sub

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2019/09/28 06:23

Deleteキーを押すとってなら、通常セルの値が変更されたとみなされます。

Match関数を用いていてキーを押した事でセルの値が見つからない場合が出ると思いますから、
https://www.relief.jp/docs/excel-vba-error-trap- …
このように見つからない時のエラー回避を行うようにすべきかと。

No.1 回答者： GooUserラック 回答日時： 2019/09/28 00:27

ちなみにどの行でエラーになっていますか？