VBA Dictionaryのキーを指定して値を変更する方法

構文
ディクショナリ名(キー) = 値
ディクショナリ名.item(キー) = 値
キーを指定して値を変更します。

使用例

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("tb") = "tokyo"
Debug.Print city("tb")
city.Item("tc") = "yokohama"
Debug.Print city("tc")
End Sub
Sub testark() Dim city As Object Set city = CreateObject("Scripting.Dictionary") city.Add "ta", "東京" city.Add "tb", "大阪" city.Add "tc", "福岡" city("tb") = "tokyo" Debug.Print city("tb") city.Item("tc") = "yokohama" Debug.Print city("tc") End Sub
Sub testark()

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

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

    city("tb") = "tokyo"
    Debug.Print city("tb")

    city.Item("tc") = "yokohama"
    Debug.Print city("tc")

End Sub

実行結果
tokyo
yokohama

VBScript

Posted by arkgame