Excel VBA質問箱 IV

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

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


7305 / 76732 ←次へ | 前へ→

【75015】Re:セルの色を検索してあったらフラグ
発言  kanabun  - 13/11/14(木) 21:11 -

引用なし
パスワード
   ▼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
294 hits

【75014】セルの色を検索してあったらフラグ hama 13/11/14(木) 18:48 質問
【75015】Re:セルの色を検索してあったらフラグ kanabun 13/11/14(木) 21:11 発言
【75016】Re:セルの色を検索してあったらフラグ hama 13/11/14(木) 22:39 回答
【75022】Re:セルの色を検索してあったらフラグ hama 13/11/15(金) 13:32 質問
【75023】Re:セルの色を検索してあったらフラグ kanabun 13/11/15(金) 17:38 発言
【75028】Re:セルの色を検索してあったらフラグ hama 13/11/15(金) 23:42 お礼

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