「VBA」ディクショナリ(Dictionary)の件数を取得する

2022年1月3日

書式
ディクショナリ.Count
使用例

Sub funcA()

    Dim cft As Object
    Set cft = CreateObject("Scripting.Dictionary")

    cft.Add "keyA", "東京"
    cft.Add "keyB", "大阪"
    cft.Add "keyC", "横浜"

    Debug.Print cft.Count 

End Sub

結果
3

書式
ディクショナリ.Remove(キー)

使用例

Sub funcB()

    Dim tt As Object
    Set tt = CreateObject("Scripting.Dictionary")

    tt.Add "keyA", "東京"
    tt.Add "keyB", "大阪"
    tt.Add "keyC", "横浜"

    tt.Remove ("keyB")

    For Each g In tt
        Debug.Print g & tt(g) 
    Next

End Sub

結果
keyA東京 keyC横浜