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

2021年5月4日

書式
ディクショナリ名.Remove(キー)
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub funcA()
Dim emp As Object
Set emp = CreateObject("Scripting.Dictionary")
emp.Add "keyA", "1001"
emp.Add "keyB", "2002"
emp.Add "keyC", "3003"
emp.Remove ("key2")
For Each ff In emp
Debug.Print ct & emp(ff)
Next
End Sub
Sub funcA() Dim emp As Object Set emp = CreateObject("Scripting.Dictionary") emp.Add "keyA", "1001" emp.Add "keyB", "2002" emp.Add "keyC", "3003" emp.Remove ("key2") For Each ff In emp Debug.Print ct & emp(ff) Next End Sub
Sub funcA()

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

    emp.Add "keyA", "1001"
    emp.Add "keyB", "2002"
    emp.Add "keyC", "3003"

    emp.Remove ("key2")

    For Each ff In emp
        Debug.Print ct & emp(ff) 
    Next

End Sub

実行結果
keyA1001 keyC3003

Excel VBA

Posted by arkgame