[[20140819155658]] 『2つの条件を満たした場合にD列に◎を入力したい』(イカロス) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『2つの条件を満たした場合にD列に◎を入力したい』(イカロス)

初めまして!よろしくお願い致します><

B列にAAAまたはBBBまたはCCCから始まる文字列があり、
かつ、
C列にZZZを含む文字列があった場合、(ZZZの前後には不特定の文字列が入ります。)
D列に"◎"を入力するというマクロを作成したいです。

初心者のため、下記のマクロを考えるのが限界です…

********

Sub test()

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.