マクロの部分一致検索で質問です。

質問

マクロの初心者で
先日もお世話になりましたが、
また質問致します。

Loopを使って、A列を上から１つずつ見ていき
シートの文字を取得して、取得した文字の中に＊があれば
処理１をするようにしたいのですが、
どうもうまくいきません。
下の状態では当然ですが、ダメでした。

わかる方にアドバイスをお願いします。

For LOOP_A = 3 To LASTRow Step 1
T = Sheet1.Cells(LOOP_C1, 1).Value
If T Like "*" = True Then
処理１
Else

End If
　・
　・

回答No.2

imogasi · ベストアンサー

ループカウンタLOOP_A は簡単にｉなどが良い
なぜT = Sheet1.Cells(LOOP_C1, 1).Valueの
LOOP_C1とLOOP_A が違うのか。基本的におかしいのでは。
部分一致は
P=instr(T,x)
ｘは問題にしている・探している文字列
でＰが0かどうか判別すればよい
ーー
Ｌｉｋｅは演算子といわれるもので、使い方が根本的に間違っている。＊だけではまず役立たない。
例データ　Ａ１：Ａ５
asdf
asf
abc
aabc
asdab
で
Sub test01()
For i = 1 To 5
MsgBox Cells(i, "A") Like "*ab*"
Next i
End Sub
を実行して見ること
Ｆａｌｓｅ
Ｆａｌｓｅ
Ｔｒｕｅ
Ｔｒｕｅ
Ｔｒｕｅ
が表示される。
これで該当はＴｒｕｅをＩＦで聞けばよい。

お礼

ありがとうございました。
結果的には下の様なコーディングとなりました。
If Cells(T, "A") Like "*計*" = True Then

出来るだけ自分でと思いますが、
まだまだ初心者ですので、
これからもお世話になると思います。

回答No.3

hige_082

＞If T Like "*" = True Then

If T Like "*[*]*" = True Then

VBAのHELPのLikeに書いてあります

お礼

ありがとうございました。
結果的には下の様なコーディングとなりました。
If Cells(T, "A") Like "*計*" = True Then

LIKEの使い方が、全くわかっていませんでした。
出来るだけ自分でと思いますが、
まだまだ初心者ですので、
これからもお世話になると思います。

回答No.1

fujillin

Like演算子では、ワイルドカードとして*（任意の1文字を意味する）が使用できますので、「*」そのものを検索したい場合は、Likeではうまくいきません。
現在のコードだと、空白セル以外はみな（任意の文字があるとして）該当してしまっていませんか？

そのままのコードを利用するなら
　If InStr(T, "*") > 0 Then
などどすれば良いのでは？

Elseの処理がないのであれば、範囲からFindなどで該当するセルを探すという方法もありそうですね。

お礼

ありがとうございました。
結果的には下の様なコーディングとなりました。
If Cells(T, "A") Like "*計*" = True Then

「＊」だとワイルドカードと見分けがつかない為
他の文字で一致させるようにしました。

出来るだけ自分でと思いますが、
まだまだ初心者ですので、
これからもお世話になると思います。