MATCH関数について

質問

Dim 日付 As Range
Dim n As String, ans As String
Set 日付 = Worksheets(1).Range("c3:ag3")
n = InputBox("日付は")
ans = Application.WorksheetFunction.Match(n, 日付, 0)
MsgBox (ans)

現在ＶＢを勉強しています。
上記のように作りましたがエラーが出ます。
実行時エラー1004
worksheetfunctionクラスのMATCHプロパティを取得できません。
となってしまいます。

ｃ3：ａｇ3には日付が並んでいます。
どなたかわかる方がいましたら、お願いします。

回答No.1

nishi6 · ベストアンサー

Test1 のように、入力値をLong型（もしくはDoubl型）にして Match関数を使います。

また、Test2のように、入力値を一旦、セルに格納する方法もあります。
こちらが、ワークシート関数を使う意味合いからすれば、わかりやすいかもしれません。
両方とも、入力値が一致しない場合はエラーメッセージを出すようにしています。

Sub Test1()
　　Dim 日付 As Range
　　Dim n As String, ans As String
　　　　Set 日付 = Worksheets(1).Range("c3:ag3")

　　n = InputBox("日付は")

　　Dim inpDate As Long　　　　　 '// 追加
　　　　inpDate = CDate(n)　　　　'// 追加

　　On Error GoTo ErrorTrp
　　　　ans = Application.WorksheetFunction.Match(inpDate, 日付, 0)　'// 追加
　　　　MsgBox (ans)

　　Exit Sub

ErrorTrp:
　　MsgBox n & "はありません"
End Sub

Sub Test2()
　　Dim 日付 As Range
　　Dim n As String, ans As String
　　　　Set 日付 = Worksheets(1).Range("c3:ag3")

　　n = InputBox("日付は")
　　　　Range("AI3") = n

　　On Error GoTo ErrorTrp
　　　　ans = Application.WorksheetFunction.Match(Range("AI3"), 日付, 0)
　　　　MsgBox (ans)

　　Exit Sub
ErrorTrp:
　　MsgBox n & "はありません"
End Sub

お礼

早速ご回答いただきまして有難う御座いました。
無事に完成することができました。