【エクセルVBA】DictionaryオブジェクトのExistsメソッドで重複があるかを確認する方法

皆様こんにちは、ノグチです。

前回の記事から、複数のループを使って処理していた、リストの重複排除を、下記3ステップでDictionaryオブジェクトを使ったコードに置き換えていく方法をご紹介しています。

Dictionaryオブジェクトにキーと要素を追加する
対象のレコードがDictionaryオブジェクトに存在するかをチェックする
Dictionaryオブジェクトに存在するキーと要素を使った値の処理

上記3ステップのうち、1.Dictionaryオブジェクトにキーと要素を追加するは、前回記事にてDictionaryオブジェクトのAddメソッドを使ってDictionaryオブジェクトにキーと要素を追加する方法としてご紹介しました。

【エクセルVBA】AddメソッドでDictionaryオブジェクトにキーと要素を追加する方法

エクセルVBAのDictionaryオブジェクトを使った、リストの重複を排除する方法を連載でご紹介しています。今回は、Dictionaryオブジェクトにキーと要素を追加するAddメソッドのご紹介です。

今回はステップ2の、対象のレコードがDictionaryオブジェクトに存在するかをチェックするについてご紹介していきます。

要素が存在しているかを判定するExistsメソッド
Existsメソッドの使用例
1. Existsメソッドを使用した条件分岐
2. Dictionaryに存在していない場合にキーを追加する
最後に
連載目次：エクセルVBAのDictionaryオブジェクトでリストの重複を排除する

要素が存在しているかを判定するExistsメソッド

対象レコードがDictionaryオブジェクトにすでに存在しているかどうかをチェックするには、DictionaryオブジェクトのExistsメソッドを使います。

Existメソッドは、指定した値がDictionaryオブジェクトに格納されているか？をチェックしてくれるメソッドです。

記述方法はこちら。

Dictionaryオブジェクト.Exists (キー)

これで、Dictionaryに存在するかチェックしたいキーに指定した値が、すでにDictionaryオブジェクトに存在していればTrue、存在していなければFalseを返り値として返してくれます。

Existsメソッドの使用例

ではこのExistsメソッドを使って、指定したキーがDictionaryオブジェクトに存在しているかを判定し、存在しないときに要素を追加する処理を作成してみましょう。

前回記事でご紹介したDictionaryオブジェクトにキーと要素を追加するコードを元にします。

こちらです。

Sub Dictionary_Example()

    Dim dic As Dictionary 'Dictionaryオブジェクトの宣言
    Set dic = New Dictionary

    dic.Add "鉛筆", 36
    Debug.Print dic.Item("鉛筆")

End Sub

Existsメソッドを使用した条件分岐

Existsメソッドの返り値はTrueかFalseです。

ですから、以下のようにIf文の中でExistsメソッドを使用して処理を分岐させることができます。

If dic.Exists("鉛筆") = True Then
    MsgBox "「鉛筆」は登録済みです。"
End If

Dictionaryに存在していない場合にキーを追加する

この条件分岐を利用して、Dictionaryオブジェクトにキーが存在していないときだけ追加をするコードは以下のようになります。

Sub Dictionary_Example()

    Dim dic As Dictionary 'Dictionaryオブジェクトの宣言
    Set dic = New Dictionary
    
    If dic.Exists("鉛筆") = False Then
        dic.Add "鉛筆", 36
        Debug.Print dic.Item("鉛筆")
    Else
        MsgBox "鉛筆は登録済みです。"
    End If

End Sub

これで、