Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51982 / 76732

←次へ　｜　前へ→


	【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

1 hits

▼

【29514】最終行での集計について SS 05/10/6(木) 20:17