Excel VBA質問箱 IV

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

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


8863 / 76732 ←次へ | 前へ→

【73437】Re:含まれる文字に応じ別の列にフラグを立てるには
質問  にしもり  - 13/1/10(木) 15:31 -

引用なし
パスワード
   ▼UO3 さん:
ありがとうざいます。
希望通り走りました。
また、詳細に解説までいただきまことにありがとうございます。
自分の解釈違いが理解できました。

正規表現でなくとも十分でございます。
仰るように混乱すると思いますので。

あと、すみませんが
Like 演算子とワイルドカードと、Or や Andは併用できないのでしょうか。
ネットで検索してもよくわかりませんでした。
コンパイルはできるのですがabendします。


Sub Sample2()
  Dim v As Variant
  Dim i As Long

  With Sheets(1)
    v = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Offset(, 4).Value
    ReDim Preserve v(1 To UBound(v, 1), 1 To 16)  '★
    For i = 1 To UBound(v, 1)
      If v(i, 1) Like "*海*" And "*潮*" Then v(i, 2) = 1 '<=abnormal end します
      If v(i, 1) Like "*山*" Or "*峰*" Then v(i, 3) = 1 '<=これもまたabnormal end します
      If v(i, 1) Like "*川*" Then v(i, 4) = 1
      If v(i, 1) Like "*池*" Then v(i, 5) = 1
      If v(i, 1) Like "*森*" Then v(i, 6) = 1
      If v(i, 1) Like "*林*" Then v(i, 7) = 1
      If v(i, 1) Like "*木*" Then v(i, 8) = 1
      If v(i, 1) Like "*空*" Then v(i, 9) = 1
      If v(i, 1) Like "*星*" Then v(i, 10) = 1
      If v(i, 1) Like "*月*" Then v(i, 11) = 1
      If v(i, 1) Like "*光*" Then v(i, 12) = 1
      If v(i, 1) Like "*夢*" Then v(i, 13) = 1
      If v(i, 1) Like "*幻*" Then v(i, 14) = 1
      If v(i, 1) Like "*音*" Then v(i, 15) = 1
      If v(i, 1) Like "*波*" Then v(i, 16) = 1
 
    Next
    .Range("E2").Resize(UBound(v, 1), UBound(v, 2)).Value = v
  End With
 
End Sub

230 hits

【73431】含まれる文字に応じ別の列にフラグを立てるには にしもり 13/1/9(水) 17:20 質問
【73432】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/9(水) 21:28 発言
【73433】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 10:06 質問
【73436】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/10(木) 12:56 発言
【73437】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 15:31 質問
【73438】Re:含まれる文字に応じ別の列にフラグを立... UO3 13/1/10(木) 15:51 発言
【73439】Re:含まれる文字に応じ別の列にフラグを立... にしもり 13/1/10(木) 16:21 お礼

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