VBA Dictionaryのキーを指定して削除する

構文
Set ディクショナリ名 = CreateObject(“Scripting.Dictionary")
ディクショナリ名.Remove(キー)
Removeを使ってキーを指定して要素を削除します。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub testark()
Dim city As Object
Set city = CreateObject("Scripting.Dictionary")
city.Add "ta", "東京"
city.Add "tb", "大阪"
city.Add "tc", "福岡"
city.Remove ("tb")
For Each tt In city
Debug.Print tt & city(tt)
Next
End Sub
Sub testark() Dim city As Object Set city = CreateObject("Scripting.Dictionary") city.Add "ta", "東京" city.Add "tb", "大阪" city.Add "tc", "福岡" city.Remove ("tb") For Each tt In city Debug.Print tt & city(tt) Next End Sub
Sub testark()

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

    city.Add "ta", "東京"
    city.Add "tb", "大阪"
    city.Add "tc", "福岡"

    city.Remove ("tb")

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

End Sub

実行結果
ta東京
tc福岡

VBScript

Posted by arkgame