「VBA」ディクショナリのキーを指定して値を変更するサンプル
書式
ディクショナリ(key) =値
ディクショナリ.item(key)=値
使用例
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