Excel VBA質問箱 IV

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

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


5190 / 76732 ←次へ | 前へ→

【77155】Re:条件付き書式で色づけしたセルをカウント
回答  独覚  - 15/5/28(木) 10:51 -

引用なし
パスワード
   ▼ゆか さん:

.Colorではなく.ColorIndexですが。

Sub R_COUNT()
  Dim W_Range   As Range
  Dim C_Cnt    As Integer
  Dim O_Range   As Range
  
  With Worksheets("Sheet1")
    C_Cnt = 0
    .Columns("AH").Clear
    Set O_Range = .Range("AH1")
  
    For Each W_Range In .Range("E6:K11")
      If W_Range.DisplayFormat.Interior.ColorIndex = 3 Then
        C_Cnt = C_Cnt + 1
        O_Range.Value = W_Range.Value
        Set O_Range = O_Range.Offset(1)
      End If
    Next
    .Range("E41").Value = C_Cnt
  End With
End Sub

上記マクロを標準モジュールに入れて実行してみてください。
E41セルに赤いセルの個数、AH列に赤いセルの内容が表示されます。

443 hits

【77147】条件付き書式で色づけしたセルをカウント ゆか 15/5/26(火) 21:37 質問[未読]
【77148】Re:条件付き書式で色づけしたセルをカウント 独覚 15/5/27(水) 9:45 発言[未読]
【77154】Re:条件付き書式で色づけしたセルをカウント ゆか 15/5/28(木) 9:34 質問[未読]
【77155】Re:条件付き書式で色づけしたセルをカウント 独覚 15/5/28(木) 10:51 回答[未読]
【77156】Re:条件付き書式で色づけしたセルをカウント 独覚 15/5/28(木) 10:59 発言[未読]
【77161】Re:条件付き書式で色づけしたセルをカウント ゆか 15/5/28(木) 20:49 お礼[未読]

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