Excel VBA質問箱 IV

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

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


36290 / 76738 ←次へ | 前へ→

【45631】Re:if文で部分一致を条件に使用
質問  Toshiyo  - 07/1/7(日) 19:35 -

引用なし
パスワード
   ▼かみちゃん さん: よこから失礼します
いつも見させていただき勉強させています。
質問させていただきますが・・・
次のような状態のチェックをしたのですが・・・
例えば次のような例ですが、かみちゃん さん とkeinsさんの結果が異なるのですが、その理由が分かりません。どこに問題があるのでしょう。教えてください。
特に5行目の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
0 hits

【45614】if文で部分一致を条件に使用 リビテ 07/1/6(土) 23:50 質問
【45616】Re:if文で部分一致を条件に使用 かみちゃん 07/1/7(日) 0:01 発言
【45621】Re:if文で部分一致を条件に使用 リビテ 07/1/7(日) 4:53 お礼
【45618】Re:if文で部分一致を条件に使用 Kein 07/1/7(日) 0:09 回答
【45622】Re:if文で部分一致を条件に使用 リビテ 07/1/7(日) 4:56 お礼
【45624】Re:if文で部分一致を条件に使用 かみちゃん 07/1/7(日) 10:28 発言
【45631】Re:if文で部分一致を条件に使用 Toshiyo 07/1/7(日) 19:35 質問
【45632】Re:if文で部分一致を条件に使用 かみちゃん 07/1/7(日) 19:50 発言
【45633】Re:if文で部分一致を条件に使用 Toshiyo 07/1/7(日) 21:24 お礼

36290 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free