エクセルの使い方

質問

エクセルで数値(背景色)の色を変えているのですが色(数値)別に統計を取る事は可能でしょうか？

回答No.2

kigoshi · ベストアンサー

１）[Alt]＋[F11]でVBAエディタを表示させ、メニューの[挿入]→[標準モジュール]で、Module1を作成し、
　　右側のエディタエリアに以下のコードを貼り付ける。
Sub colCount()
Sheets("Sheet2").Select '集計するシート
Cells.Delete

Dim colRange As Range
Set colRange = Sheets("Sheet1").Range("A1:D20") '集計されるシートと範囲
Dim cCell As Variant
Dim rowCnt, rowCntMax As Integer
rowCntMax = 1

For Each cCell In colRange
For rowCnt = 1 To rowCntMax
If Cells(rowCnt, 1).Interior.ColorIndex = cCell.Interior.ColorIndex Then
Cells(rowCnt, 1).Value = cCell.Interior.ColorIndex
Cells(rowCnt, 2).Value = Cells(rowCnt, 2).Value + 1
Exit For
End If
If rowCnt = rowCntMax Then
rowCntMax = rowCntMax + 1
Cells(rowCntMax, 1).Interior.ColorIndex = cCell.Interior.ColorIndex
Cells(rowCntMax, 1).Value = cCell.Interior.ColorIndex
Cells(rowCntMax, 2).Value = 1
End If
Next
Next
End Sub

２）ワークシートに戻って、マクロcolCountを実行する（方法はExcelのバージョンによって異なります）

コード中「集計するシート」と「集計されるシートと範囲」を適宜変えてください。

回答No.1

supergel

こんにちは

VBAでマクロを組めば確実ですがOofficeのバージョンによっては機能で可能かもしれません

マクロで組むイメージは
文字のプロパティの色別に並べたい順に番号を振り、その番号で並び替えると言ったものです

急ぎなので概要のみですがご参考に…