[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『2つの条件を満たした場合にD列に◎を入力したい』(イカロス)
初めまして!よろしくお願い致します><
B列にAAAまたはBBBまたはCCCから始まる文字列があり、
かつ、
C列にZZZを含む文字列があった場合、(ZZZの前後には不特定の文字列が入ります。)
D列に"◎"を入力するというマクロを作成したいです。
初心者のため、下記のマクロを考えるのが限界です…
For i = 1 To 5000
If Cells(i, 2) Like "AAA" & "*" Then Cells(i, 4) = "◎"
End If Next i
End Sub
2つの条件の場合は、どのように組めばよろしいでしょうか?
また、AAA「または」BBBからや
AAAから「始まる」や
ZZZを「含む」に対応することは可能でしょうか。
何卒よろしくお願い致します。
< 使用 Excel:Excel2010、使用 OS:Windows8 >
こんな感じでいかがですか? 詳しく書いてないですが、(A or B or C) and (Z)ならば◎って感じです。 Sub test() Dim B列 As String Dim C列 As String Dim i As Long For i = 1 To 5000 B列 = Cells(i, "B").Value C列 = Cells(i, "C").Value If ((B列 Like "AAA*") Or (B列 Like "BBB*") Or (B列 Like "CCC*")) And (C列 Like "*ZZZ*") Then Cells(i, "D") = "◎" End If Next i End Sub
(稲葉) 2014/08/19(火) 16:25
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.