| |
▼hama さん：
>Ａ列〜Ｄ列（行は増減）する範囲のセル中に背景が黄色セル
>があります。黄色セルが範囲の中にあったらＥセルにフラグ
>（○）を入れたいのですがどのように記述すればよいでしょ
>うかどなたか教えてください。よろしくお願いします。
>
> Ａ列 Ｂ Ｃ Ｄ Ｅ
>１ 黄色 色なし 色なし 色なし ○ ←Ｅ１に○を付ける
>２ 色なし 色なし 黄色 色なし ○
>３ 色なし 色なし 色なし 色なし ←何もしない
>４ 色なし 黄色 黄色 黄色 ○ ←複数あってもＥ４列に○を付ける
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
>・ ・ ・ ・ ・ ・
こんにちは〜〜
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
|
|
kanabun
- 13/11/14(木) 21:11 -
