Excel VBA質問箱 IV

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

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


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

36284 / 76732

←次へ　｜　前へ→


	【45631】Re:if文で部分一致を条件に使用

Toshiyo - 07/1/7(日) 19:35 -


	引用なし

	パスワード

▼かみちゃんさん：よこから失礼します
いつも見させていただき勉強させています。
質問させていただきますが・・・
次のような状態のチェックをしたのですが・・・
例えば次のような例ですが、かみちゃん　さん　とkeinsさんの結果が異なるのですが、その理由が分かりません。どこに問題があるのでしょう。教えてください。
特に５行目の99##99にも反応します･･･何か当方のやり方が間違っているのでしょう･･･とは思いますが。

項目1　　　　　かみちゃん　　　　Keinsさん
99###　　　　　　　　　　　　　　　○
9###99　　　　　　　　　　　　　　 ○
9####9　　　　　　　　　　　　　　 ○
99##999　　　　　　○
99###999DD　　　　 ○　　　　　　　○　
###　　　　　　　　　　　　　　　　○
########　　　　　　　　　　　　　 ○
##
###999　　　　　　 ○　　　　　　　○
###　　　　　　　　　　　　　　　　○
##9##
##99###9　　　　　　　　　　　　　 ○
9999###　　　　　　○　　　　　　　○
99##99

コードは下の通りで、使わせていただきました。
strPattern = "###"
For row = 7 To 100 Step 1
　 If Cells(row, 1).Value Like "*" & strPattern & "*" Then
　　　Cells(row, 1).Select
　　　With Selection.Interior
　　　　　.ColorIndex = 6
　　　　　.Pattern = xlSolid
　　　End With
　　End If
Next
row = 0

1 hits

▼

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