vlookupでの範囲を別シートにすると『実行時エラー '1004' :WorkSheetFunction クラスの VLookup プロパティを取得できません。』が発生

Question

前提・実現したいこと

ドロップダウンリストを作成して、リストに表示された値を選択すると、それに紐づく別の値を入力するワークシートを作成したい。
参考URL:https://ja.extendoffice.com/documents/excel/4130-excel-drop-down-list-show-different-value.html#a1

"ドロップダウンリスト参照"のシートには、名前定義した"examplelist"、"ドロップダウンリスト"のシートで果物名がドロップダウンリストになっているので選択すると、それに対応する番号が入力される想定。
"examplelist"

例）ドロップダウンリストで"リンゴ"を選択すると"1"が入力される

"examplelist"は数が増えるので、cellの指定ではなく、名前定義を使いたい。

発生している問題・エラーメッセージ

参考URLだと、一つのシートにドロップダウンリストとドロップダウンリストを作成するためのデータがあるが、作成したいものはドロップダウンリストとドロップダウンリスト作成のための名前定義したセル範囲をそれぞれ別のシートとして扱いたい。
vlookup関数で選択した値とそれに紐づく値の切り替えをしたいが、範囲指定がうまくいかず、『実行時エラー '1004' :WorkSheetFunction クラスの VLookup プロパティを取得できません。』が発生して処理が停止する。
```ここに言語を入力
selectedNum = WorksheetFunction.VLookup(selectedNa, tbl, 1, False)

で処理が止まるので、"tbl"に問題がありそう。

### 該当のソースコード

(VBA)
```ここに言語を入力
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As Range
    Set tbl = ThisWorkbook.Worksheets("ドロップダウンリスト参照").Range("examplelist")
     
    'On Error Resume Next
    
    selectedNa = Target.Value
    If Target.Column = 1 Then
        selectedNum = WorksheetFunction.VLookup(selectedNa, tbl, 1, False)
        'On Error GoTo 0
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If

End Sub

試したこと

ローカルウィンドウで式を見たところ、以下のようになった。

WorksheetFunction.VLookupをapplication.vlookupに変更してみた。

補足情報（FW/ツールのバージョンなど）

範囲指定の書き方は以下サイトを参考にした。
https://www.relief.jp/docs/excel-vba-vlookup-other-worksheet.html

Answer 1

VLookupでやるのであれば、VLookupは1列目を検索するのでexamplelistの１列目をりんごとかにして２列目に数値にする必要があるのではないですか？

ただ、私の端末で実行するとなぜかExcelが落ちますが。

Comments

[hkok96]

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

>>VLookupでやるのであれば、VLookupは1列目を検索するのでexamplelistの１列目をりんごとかにして２列目に数値にする
こちらを実行したところ、選択した値（リンゴ）に紐づく値（１）が入力されるようになりましたが、先ほどと同様のエラー『実行時エラー '1004' :WorkSheetFunction クラスの VLookup プロパティを取得できません。』
が発生して、その後デバッグ実行をしたら、リンゴを選択してもリンゴが入力される状態になりました。

[xail2222]

一度、リンゴがヒットして１になり
その１の設定でセルのチェンジイベントが発生し、１でVLOOKUPが実行され検索にヒットしないということでエラーになるのではないでしょうか。

「WorksheetFunction.VLookup」を「Application.VLookup」に変更すればとりあえず動くのではないかと思います。

その後のリンゴが選択してもリンゴになるというのはよくわからないですが。

[hkok96]

なるほど。
「WorksheetFunction.VLookup」を「Application.VLookup」に変更したら動きました。
ありがとうございます。