|
▼hama さん:
>A列〜D列(行は増減)する範囲のセル中に背景が黄色セル
>があります。黄色セルが範囲の中にあったらEセルにフラグ
>(○)を入れたいのですがどのように記述すればよいでしょ
>うかどなたか教えてください。よろしくお願いします。
>
> A列 B C D E
>1 黄色 色なし 色なし 色なし ○ ←E1に○を付ける
>2 色なし 色なし 黄色 色なし ○
>3 色なし 色なし 色なし 色なし ←何もしない
>4 色なし 黄色 黄色 黄色 ○ ←複数あってもE4列に○を付ける
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
こんにちは〜〜
FindFormat を使ったらどうでしょ?
Sub FindYellow()
Dim r As Range, rr As Range
Dim c As Range
Application.FindFormat.Clear
Application.FindFormat.Interior.Color = vbYellow
Set rr = [A1].CurrentRegion.Resize(, 4)
For Each r In rr.Rows
Set c = r.Find("*", SearchFormat:=True)
If Not c Is Nothing Then
r.Cells(1, 5).Value = "○"
End If
Next
End Sub
|
|