|
▼??? さん:
>EXCELのシートに緑とか黄色とか色が塗ってあったとして、(塗りつぶし)
>で、範囲選択してボタンを押すと緑が〜個、黄色が〜個みたいに表示させるようにしたいのですがどうすればいんですか?
こんばんは。
後で検索するためにも、質問の題名は、中味が分かるものにした方がいいかも。
こんな感じでどうでしょうか?
範囲を選択して実行してください。
シート2にカウントして書き出します。
Sub test()
Dim myDic As Object
Dim myR As Range
Dim r As Range
Dim i As Long
Dim A As Variant, B As Variant
Set myDic = CreateObject("Scripting.Dictionary")
Set myR = Selection
For Each r In myR
myDic(r.Interior.ColorIndex) = myDic(r.Interior.ColorIndex) + 1
Next
A = myDic.keys
B = myDic.Items
With Sheets("Sheet2")
For i = 0 To myDic.Count - 1
With .Cells(i + 1, 1)
.Interior.ColorIndex = A(i)
.Offset(, 1).Value = B(i)
End With
Next
End With
End Sub
|
|