Dictionary の要素を削除する方法
スポンサーリンク
Dictionary オブジェクトからキーとキーに紐づく値を削除するには Remove メソッドを使用します。
サンプルコードは次の通りです。
VBA(実行可能なサンプルコード) | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | Option Explicit Sub test1() 'Dictionary の初期化 Dim dicColors As Object Set dicColors = CreateObject("Scripting.Dictionary") 'キーと値を追加。 dicColors.Add "red", "赤" dicColors.Add "blue", "青" dicColors.Add "pink", "桃" Debug.Print "Dictionaryの要素数:" & dicColors.Count 'Dictionary をループして中身を表示。 Dim key As Variant For Each key In dicColors Debug.Print "キーの値:" & key; "、対応する値:" & dicColors(key) Next key '★キーを削除 dicColors.Remove "red" dicColors.Remove "blue" Debug.Print "Dictionaryの要素数:" & dicColors.Count 'Dictionary をループして中身を表示。 For Each key In dicColors Debug.Print "キーの値:" & key; "、対応する値:" & dicColors(key) Next key End Sub |
上記の実行結果は次の通りです。
実行結果 | |
1 2 3 4 5 6 | Dictionaryの要素数:3 キーの値:red、対応する値:赤 キーの値:blue、対応する値:青 キーの値:pink、対応する値:桃 Dictionaryの要素数:1 キーの値:pink、対応する値:桃 |
Dictionary の全ての要素を一括で削除する方法については、Dictionary の要素を全て削除する方法を参照してください。
スポンサーリンク