Excel VABについて 下記記述が『SubまたはFunctionが定義されていません』とエラーメ

Excel　VABについて
下記記述が『SubまたはFunctionが定義されていません』とエラーメッセージが表示されます。
WorksheetFunctionはIndex、Matchを一緒に使えないのでしょうか？また一緒に使えない場合どのようにしたら良いか教えて頂けると幸いです。宜しくお願い致します。

txtPrdCD = WorksheetFunction.Index(Worksheets("商品マスタ").Range("E5:E31"), Match(cmbPrd, Worksheets("商品マスタ").Range("D5:D31"), 0), 1)

------------------------------
※下記IndexとMatchをそれぞれ実行は可能でした

WorksheetFunction.Index(Worksheets("商品マスタ").Range("E5:E31"),5, 1)

WorksheetFunction. Match(cmbPrd, Worksheets("商品マスタ").Range("D5:D31"), 0)

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2022/01/20 00:43

こんばんは。

Matchに、WorksheetFunction　が抜けているからでは？
下記で、デバッグのコンパイルは通りました。

With WorksheetFunction
txtPrdCD = .Index(Worksheets("商品マスタ").Range("E5:E31"), .Match(cmbprd, Worksheets("商品マスタ").Range("D5:D31"), 0), 1)
End With

この回答へのお礼

ありがとうございます。IndexとMatchそれぞれに必要なのですね。With使ったら解決しました！

お礼日時：2022/01/20 00:49

No.3 回答者： Qchan1962 回答日時： 2022/01/20 00:43

こんばんは

Range("E5:E31"), Match(cmbPrd,
このMatchはWorksheetFunctionとして扱われません

txtPrdCD = WorksheetFunction.Index(Worksheets("商品マスタ").Range("E5:E31"), WorksheetFunction.Match(cmbPrd, Worksheets("商品マスタ").Range("D5:D31"), 0), 1)

とか

With WorksheetFunction
txtPrdCD = .Index(Worksheets("商品マスタ").Range("E5:E31"), .Match(cmbPrd, Worksheets("商品マスタ").Range("D5:D31"), 0), 1)
End With

とか・・ですね

この回答へのお礼

ありがとうございます。WorksheetFunctionはそれぞれに記述しないといけないのですね。With使ったらできました！

お礼日時：2022/01/20 00:52

No.1 回答者： fujillin 回答日時： 2022/01/20 00:40

こんばんは

多分、
＞ Match(cmbPrd, Works～～
を評価しようとして、ご提示のエラーになっているものと推測します。

　WorksheetFunction.Match
にすれば解釈されるのでは？

この回答へのお礼

ありがとうございます。IndexとMatchそれぞれにWorksheetFunctionが必要なのですね。

お礼日時：2022/01/20 00:47