ワイルドカードは使用可能？

質問

別途、「Matchの処理について」というご質問を
させていただいて一旦は問題が解決したのですが、
新たにまたわからない点が発生しまして、困ってます。

何度も申し訳ありませんが、皆様のお知恵を拝借できれば助かります。

状況としては下記のコード抜粋のように、コードを
記述していますが、"検索値A"の一部に対応するデータ
についてはSheet2の特定の行にセットしたいのです。
つまり特定の検索値Aについては変数"j"を
固定したいと思っています。

その一部の"検索値A"というのは例えば"aaa300"、"bbb300"等、"300"で
終わるもので、これらは特定行に固定したいという
感じです。ワイルカードを使えないものかといろいろ
調べておりますが、よくわかりません。。
もし可能なら、行番号をあらわす変数"j"のデータを
セットする際に"if"を使って、条件分岐したいと思っています。

以上、よろしくお願い致します～。

検索値A = Sheets("sheet1").Cells(i, 1).Value

j = Application.Match(検索値A, Sheets("sheet2").Range("範囲A"), 0)

Sheets("Sheet2").Cells(j, 5).Value = Sheets("SHEET1").Cells(i, 2)

回答No.3

imogasi · ベストアンサー

＃２です。
>。こういう使い方はできないのでしょうか。
If hensu = "*300" Then
これは、ワイルドカードのように機能するのを期待しては、使えないでしょう。たとえ他の言語でも。
文字列*300と等しいか、になってしまう。
私もこの表現にワイルドカード的機能をもったらいいなと思ったこともない。
この意味は文章で表すと
（１）文字列の末尾が「３００」を含む
（２）先頭以外で「３００」を含む
（３）途中を含めて「３００」を含む
のどれかのように解されるが、多分（１）だとすると
Sub test01()
i = 2
s = Cells(i, 1)
If Right(s, 3) = "300" Then
MsgBox "語尾が３００です"
Else
MsgBox "語尾が３００でありません"
End If
End
End Sub
で簡単です。
（２）などでは
Sub test02()
i = 2
s = Cells(i, 1)
p = InStr(s, "300")
If p <> 0 Then
MsgBox "語句に３００を含んでいます"
Else
MsgBox "語句に３００を含んでいません"
End If
End
End Sub
先頭以外という条件ならｐ＞１を聞けばよい。
末尾なら、P=Len(s)-3が聞いてもよい。
－－－－－
別にＬＩＫＥ演算子というのがある。
Sub teat03()
Dim s As String
i = 2
s = Cells(i, 2)
s = "aas300"
s = "aad300sss"
If s Like "*300*" Then
MsgBox "300を含みます"
Else
MsgBox "300を含みません"
End If
End Sub
ｓをいろいろ変えてやってみてください、
http://www31.ocn.ne.jp/~heropa/vb122.htm
http://littlegray.minidns.net/vbtomo/log/vbqanda/lg-bbs_vbqanda_log_35556-35611.html

お礼

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

likeを使うことで目的を達成できました！

likeも試してはいたのですが間に"="を入れていた
為、うまくいかなかったようです。

説明不足でしたが、何度もご回答いただき
本当に助かりました。ありがとうございます。

回答No.2

imogasi

＃１です。
＞ワイルドカードの利用のしかたが
よくわからないということです。"*"とか"%"とかが
利用できるのか、・・・

A1:A10にテストとして
asd
sdfrt
aaadfg
hjk
sdddf
aaa
xaaa
ssd
ssd
aads
をいれ
Sub test01()
Worksheets("sheet1").Activate
x = Application.Match("aaa", Range("a1:a10"), 0)
MsgBox x
x = Application.Match("aaa*", Range("a1:a10"), 0)
MsgBox x
End Sub
を実行すると、６と３がMsgBoxで返る。
Ｍａｔｃｈ関数は条件を満たす最初のものしか返さないと思う。
だから次々見つけるには、範囲を見つかった次からに変えて行かないと
いけないと思う。
結果としてワイルドカードの＊は使える。
エクセルの関数の本も調べたが、「照合の型を０と指定し、検査値が文字列である場合には、ワイルドカード文字が使えます。アスタリスクは任意の文字列をあらわし、疑問符は任意の１文字をあらわす。」という記述を確認しました。関数でできることがワークシート関数でできると即断ができませんが。
ご参考になれば。
やってみればある程度の結論はわかる問題なのだが、その先の何か疑問があるように思うがそれはどんなことでしょう。
質問（問題）の骨子の点の抽象化はやってもらえたが、実例が挙げてもらえず、全貌が捕らえられず残念。

お礼

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

"hensu"をvariantとして下記の通り、記述しているの
ですが、"300"で終わる項目を認識してくれない
状況です。こういう使い方はできないのでしょうか。

If hensu = "*300" Then
j = 50

回答No.1

imogasi

前の質問もよくわからなかったが、この問題もよくわからない。
コードを皆さんにも、読解させるのでなく、したいことを、適切な例示をあげて、文章でも、記述してほしい。
自分のしたいことを自分のケースに過度にこだわらず、ストレートに記述するのでなく、質問のパターン化ができるはず。
それと自分では、過去の質問と密接に続いているのは当たり前ですが、自分以外の人にとっては、前の質問と関連付けよというのは無理で、各質問で完結するような質問の記述の努力を望みたい。

補足

ご指摘ありがとうございます。

簡潔に言うと、ワイルドカードの利用のしかたが
よくわからないということです。"*"とか"%"とかが
利用できるのか、またどのように利用するのかが
よくわかりません。