WorksheetFunction.Vlookup実行時の1004エラー

前提

ExcelVBAでとある資料を出力するツールを作成しています。
プルダウンでグループ名を選択して、その上位の部署名を探す部分で
エラーが発生しています。

実現したいこと

１．プルダウンでグループ名を選択（リストの選択範囲は名前定義済（ブック））
２．選択した上位の部署名をVlookupで探す

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

下記エラーメッセージが表示されます。
実行時エラー1004
WorksheetFunctionクラスのVlookupプロパティを取得できません

該当のソースコード

ExcelVBA
Function get_BushoRyakusho(strKaishamei As String, strShukan As String) As String
Dim rngAddress As Range
Dim strShtName As String
Dim strVLRange As String
Dim dummy As Variant

Select Case strKaishamei
    Case "会社名A"
        Set rngAddress = ThisWorkbook.Names("Aグループ名リスト").RefersToRange
    Case "会社名B"
        Set rngAddress = ThisWorkbook.Names("Bグループ名リスト").Refersrange
    Case "会社名C"
        Set rngAddress = ThisWorkbook.Names("Cグループ名リスト").Refersrange
    Case Else
End Select

strShtName = rngAddress.Parent.Name
strVLRange = strShtName & "!" & rngAddress.Resize(, 3).Address

' On Error Resume Next
dummy = WorksheetFunction.VLookup(strShukan, strVLRange, 3, False)
' On Error GoTo 0

End Function

※1「*グループ名リスト」は名前定義で範囲を「=洗替用!$A3:INDEX(洗替用!$A:$A,COUNTA(洗替用!:$A:$A)」のように設定しています。
※2選択されたグループに対応する部署名は「*グループ名リスト」の2つ横の列に記載されています

試したこと

・同じBookの別のシートにVlookup関数を直接書き込み→エラーにならず正確な結果が出ました
・WorksheetFunctionをApplicationに変更→「エラー2015」という結果が返ってきました。
・同様の質問を検索しましたが、全く同じ現象はありませんでした。

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

Windows10 64ビット
Office365 Excelのバージョン2102

bebebe_

2022/07/28 04:49

dummy = WorksheetFunction.VLookup(strShukan, rngAddress, 3, False) では問題がありますか？

nao-y

2022/07/28 06:01

ご指摘ありがとうございます。 rngaddressだけでは、・シート名がない（Vlook先は別シート）・範囲が1列しかないが3列目の値が欲しいという条件を満たせません。

okakemetal

2022/07/28 06:21

同様と思われる質問を見つけました回答（対策）も記載されておりましたので、お試しくださいませ https://www.web-dev-qa-db-ja.com/ja/excel/%E3%80%8Cworksheetfunction%E3%82%AF%E3%83%A9%E3%82%B9%E3%81%AEvlookup%E3%83%97%E3%83%AD%E3%83%91%E3%83%86%E3%82%A3%E3%82%92%E5%8F%96%E5%BE%97%E3%81%A7%E3%81%8D%E3%81%BE%E3%81%9B%E3%82%93%E3%80%8D%E3%82%A8%E3%83%A9%E3%83%BC/1041428561/

行動規範の内容に同意します

回答1件

自己解決

bebebe_様、okakemetal様、アドバイスありがとうございました。
解決いたしました。

okakemetal様に提示いただきましたページの通り、vlookupの第二引数を
"worksheets("sheet3").Range("Names")"の形に書き直したところ、
（実際にはRangeの後ろに".Resize(,3)"を入れています）
エラーが出なくなり、意図した動作をするようになりました。

大変助かりました。ありがとうございました。

投稿2022/07/28 07:00

nao-y

総合スコア27