Set projects_dict = CreateObject("Scripting.Dictionary")
// ... get a projekt-name, store it in 'key'
If Not projects_dict.Exists(key) Then
projects_dict.Add key, CreateObject("Scripting.Dictionary")
End If
If projects_dict.Item(key).Exists(month) Then
projects_dict.Item(key).Item(month) = projects_dict.Item(key).Item(month) + value
Else
projects_dict.Item(key).Add month, value
End If
... at the end of the program
Set projects_dict = Nothing
Last active
August 29, 2015 14:21
-
-
Save kaikuchn/44bc4361e71948f4f95c to your computer and use it in GitHub Desktop.
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment