「VBA」ディクショナリのキーを指定して値を変更するサンプル

2021年5月4日

書式
ディクショナリ(key) =値
ディクショナリ.item(key)=値
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub funcA()
Dim cft As Object
Set cft = CreateObject("Scripting.Dictionary")
cft.Add "key1", "AA01"
cft.Add "key2", "BB02"
cft.Add "key3", "CC03"
cft("key2") = "2345"
Debug.Print cft("key2")
cft.item("key3") = "DD04"
Debug.Print cft("key3")
End Sub
Sub funcA() Dim cft As Object Set cft = CreateObject("Scripting.Dictionary") cft.Add "key1", "AA01" cft.Add "key2", "BB02" cft.Add "key3", "CC03" cft("key2") = "2345" Debug.Print cft("key2") cft.item("key3") = "DD04" Debug.Print cft("key3") End Sub
Sub funcA()

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

    cft.Add "key1", "AA01"
    cft.Add "key2", "BB02"
    cft.Add "key3", "CC03"

    cft("key2") = "2345"
    Debug.Print cft("key2") 

    cft.item("key3") = "DD04"
    Debug.Print cft("key3") 
End Sub

実行結果
2345
DD04

Excel VBA

Posted by arkgame