COUNT key in dictionary collection

[sal21]

I use thi code to add key in dic:

If DIC.Exists(C) Then
X = X + 1
DIC(C) = DIC(C) + IMPORTO
Else
Y = Y + 1
DIC.Add C, IMPORTO
End If

and loop with:

Dim KEY As Variant
Dim lngValue As Long
For Each KEY In DIC.Keys
lngValue = DIC(KEY)
Debug.Print KEY & "-" & lngValue & "-" & KEY.Count
Next KEY

Set DIC = Nothing

i need to count how many times is added the sinle KEY? possible?

naturally in this line have error in & "-" & KEY.Count
Debug.Print KEY & "-" & lngValue & "-" & KEY.Count

[HansV]

You'll have to create a second dictionary DIC2 to store the counts:

Code: Select all

    If DIC.Exists(C) Then
        X = X + 1
        DIC(C) = DIC(C) + IMPORTO
        DIC2(C) = DIC2(C) + 1
    Else
        Y = Y + 1
        DIC.Add C, IMPORTO
        DIC2.Add C, 1
    End If

In the loop:

Code: Select all

        Debug.Print KEY & "-" & lngValue & "-" & DIC2(KEY)

[sal21]

You'll have to create a second dictionary DIC2 to store the counts:

Code: Select all

    If DIC.Exists(C) Then
        X = X + 1
        DIC(C) = DIC(C) + IMPORTO
        DIC2(C) = DIC2(C) + 1
    Else
        Y = Y + 1
        DIC.Add C, IMPORTO
        DIC2.Add C, 1
    End If

In the loop:

Code: Select all

        Debug.Print KEY & "-" & lngValue & "-" & DIC2(KEY)

WORK PERFECT!

I dont remeber if i have just post a question to sort the dictionay by Key...
perphs i need to fill an Array during the first block of code?

[HansV]

See Sort dictionary items.