vbaでエクセル関数

いろいろすっ飛ばしますがコードで
”型が一致しません” のメッセージが出るので、添削してください・・・

rg.Value = Application.Index(Range(Cells(rw, 3), Cells(rw + 67, 3)), Application.Match("" * WH * "", Range(Cells(rw, 3), Cells(rw + 67, 3)), 0) + 1).Value

おバカ丸出しなのは自覚しています・・・

No.3 ベストアンサー 回答者： WindFaller 回答日時： 2019/09/24 22:02

MATCH関数には、ワイルドカードはなかったはずです。

Sub TestFind()
　Dim Rng As Range
　Dim rw As Long
　Dim c As Range
　Dim rg As Variant
　rw = 10
　Set Rng = Cells(rw, 3).Resize(68)
　Set c = Rng.Find("*WH*", , xlValues, xlWhole, xlByColumns)　'ワイルドカード
　If Not c Is Nothing Then
　　rg = c.Offset(1).Value '見つけたセルの一つ下のセル
　　MsgBox rg & ": " & c.Offset(1).Address(0, 0)
　Else
　　MsgBox "見つかりません。", vbExclamation
　End If
End Sub

この回答へのお礼

丁寧にありがとうございました！

お礼日時：2019/09/29 19:14

No.5 回答者： WindFaller 回答日時： 2019/09/25 16:18

tatsu99様

どうも、ご指摘、ありがとうございます。
　=MATCH(検査値,検査範囲,照合の種類)
「ワイルドカードはなかったはず」と書きましたが、一抹の不安がありました。先程、Excelの関数辞典でも、ワイルドカードを使える条件というものを確認しましたし、データの最後尾を検索する特別な方法も思い出しました。

No.4 回答者： tatsu99 回答日時： 2019/09/25 06:49

>WindFaller様

「MATCH関数には、ワイルドカードはなかったはずです。」とのことですが、ちょっと気になって確認してみました。
添付図でＣ１へ
=MATCH("*aa8*",A1:A10,0)
を入力すると８が表示されます。
また、以下のマクロを実行すると、Ｂ１へ８が表示されます。
Sub MATCH試験()
Dim val As Variant
val = Application.Match("*aa8*", Range("A1:A10"), 0)
Cells(1, "B").Value = val
End Sub

よって、ワイルドカードは使用可能と思われますが、如何でしょうか。

No.2 回答者： Qchan1962 回答日時： 2019/09/23 16:03

パット見、

ワイルドカードを使いたいのでしょうか？
Application.Match("*WH*", Range(Cells(rw, 3), Cells(rw + 67, 3)), 0) + 1).Value

検証してませんが、、では？

No.1 回答者： tatsu99 回答日時： 2019/09/23 14:44

"" * WH * ""

上記の個所がおかしいのでそれが原因かと。
どのように修正するかですが、情報不足のため、回答できません。
WHはどのように変数を定義し、実行時、WHに何が入っていますか。WHに"ABC"が設定されて場合、検索値はどのような値にしたいのですか。
３列のセルを検索したいようですが、３列には、どのような値が設定されているのですか。