Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36301 / 76732

←次へ　｜　前へ→


	【45614】if文で部分一致を条件に使用

リビテ - 07/1/6(土) 23:50 -


	引用なし

	パスワード

はじめまして。リビテと申します。よろしくお願いします。

題名のとおりif文の条件に部分一致を使用したいのです。

エクセルのシートの

(1,A)に"###"
(2,A)に"######"
(3,A)に"abc###byz"　
・
(1000,A)に"abrvbg"
というように、A列のみに、"#"を含むセルと含まないセルが存在します。

VBAで、このA列のセルで、
セル値から#が三つ続いた場合に色をぬるという操作を自動でさせたいのですが、
部分一致検索条件の記述の仕方がわからないのです。

記述したコードですが

Dim row As Integer
dim strPattern As String

Sub 色塗り

strPattern ="###"
For row = 1 to 100 step 1
　 If Cells(row,1)=strPattern Then
　　　Cells(row,1).Select
　　　With Selection.Interior
　　　　　.ColorIndex =6
　　　　　.Pttern = xlSolid
　　　End With
　　End If
Next
row = 0
End Sub

というコードを記述しております。
このコードで実行させると、当然完全一致となってしまい"###"のところしか
色がぬられません。

完全一致ではなく、部分一致で検索させるにはどのようにしたらいいのでしょうか？
ご教授のほうどうかよろしくお願いします。

2 hits

▼

【45614】if文で部分一致を条件に使用 リビテ 07/1/6(土) 23:50

≪