Excel VBA質問箱 IV

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

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


51988 / 76738 ←次へ | 前へ→

【29599】Re:最終行での集計について
回答  とまと  - 05/10/9(日) 8:22 -

引用なし
パスワード
   SS さん、かみちゃんさん おはようございます。
面白そうなので考えてみました。
色つきせるのカウントはCsum関数のなかで処理しています。


Sub test()

Dim rngA As Range
Dim rowA As Long
Dim colA As Long
Dim i As Long

rowA = Range("A65536").End(xlUp).Row
colA = Range("IV2").End(xlToLeft).Column

For i = 4 To colA
  Set rngA = Cells(3, i).Resize(rowA - 2)
  Cells(rowA + 1, i).Value = Application.Count(rngA)
  Cells(rowA + 2, i).Value = cSum(rngA, 6) '黄
  Cells(rowA + 3, i).Value = cSum(rngA, 3) '赤
Next i

End Sub


Function cSum(rngA As Range, c As Long) As Long
  Dim R As Range
  For Each R In rngA
    If R.Interior.ColorIndex = c Then
      cSum = cSum + 1
    End If
  Next
End Function
0 hits

【29514】最終行での集計について SS 05/10/6(木) 20:17 質問
【29516】Re:最終行での集計について かみちゃん 05/10/6(木) 20:29 発言
【29537】Re:最終行での集計について SS 05/10/7(金) 9:49 質問
【29597】Re:最終行での集計について SS 05/10/9(日) 1:12 質問
【29599】Re:最終行での集計について とまと 05/10/9(日) 8:22 回答
【29600】Re:最終行での集計について かみちゃん 05/10/9(日) 8:23 回答
【29630】Re:最終行での集計について SS 05/10/9(日) 21:33 お礼
【29631】Re:最終行での集計について SS 05/10/9(日) 21:50 質問
【29632】Re:最終行での集計について かみちゃん 05/10/9(日) 22:13 発言
【29634】Re:最終行での集計について SS 05/10/10(月) 0:01 質問
【29640】Re:最終行での集計について とまと 05/10/10(月) 3:42 回答
【29641】Re:最終行での集計について かみちゃん 05/10/10(月) 7:12 回答

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