「VBA」ディクショナリ(Dictionary)の件数を取得する
書式
ディクショナリ.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横浜