从VBA中的字典值创建柱状图

Question

我需要根据存储在VBA中的字典（Set dict = CreateObject（“Scripting.Dictionary”））中的值创建一个柱状图。 x轴是键，y轴是值。有没有办法做到这一点？

Answer 1

试试这个：

Public Sub WriteDictionary() 

    Dim dict As Variant 
    Dim currRow As Integer 


    Set dict = CreateObject("Scripting.Dictionary") 
    currRow = 1 

    dict.Add "key 1", "data 1" 
    dict.Add "key 2", "data 2" 

    For Each Key In dict.Keys 
     Range("A" & currRow).Formula = Key 
     Range("B" & currRow).Formula = dict(Key) 
     currRow = currRow + 1 
    Next Key 

    Set dict = Nothing 

End Sub