查找值的百分比/計數類VBA

Question

我有這個類的一些藏品

'class properties 
    public a as collection 
    public b as collection 
    public c as collection 

A，B的，4c含有例如值「A，A，A，A，B， b，b，b，c，c，c，c，c，c，c「，以及更可能。這些值可以是我們可以假設的任何字母表。得到的百分比爲每個屬性爲每個類，我覺得做這樣的
的（骨架，怎麼我不知道如何準確地做到這一點）

 for each class in collectionOfclassobjects 
     for each ca in class.a 
     'here am supposed to count all a's and b's divide by class.a.count but am not sure how to do this, I have an idea of adding the first item, and everytime it occurs i add it or add a count, when it's a create collection when its a, add it, when its b create new collection, and so on i have a collection of each value and i can easily print the count/total count and the name 
     next ca 
     for each cb in class.b 

     next cb 
     for each cc in class.c 

     next cc 
    next class 

任何建議表示讚賞，是新的，到目前爲止我有兩個noobie問題:)既不解決不知道爲什麼：P

Answer 1

運行以下過程，並等待消息框最後彈出。它會告訴你細節

Sub Percentage() 

    Dim a As Collection 
    Set a = New Collection 

    a.Add "a" 
    a.Add "a" 
    a.Add "a" 
    a.Add "a" 
    a.Add "b" 
    a.Add "b" 
    a.Add "b" 
    a.Add "b" 
    a.Add "c" 
    a.Add "c" 
    a.Add "c" 
    a.Add "c" 
    a.Add "c" 
    a.Add "c" 
    a.Add "c" 

    Dim i As Long, cnt As Long 
    cnt = 0 
    ' checking the percentage of occurance of letter 'a' 
    For i = 1 To a.Count 
     If a.Item(i) = "a" Then cnt = cnt + 1 
    Next i 

    MsgBox "'a' occurs " & cnt & " times in collection A" & _ 
    vbCrLf & vbCrLf & " which is " & Format((cnt/a.Count), "0.0%") & " of the entire collection" 

End Sub