Dictionaryのキーの大文字小文字の区別をしない【CompareModeプロパティ】【ExcelVBA】

構文

object.CompareMode CompareModeプロパティは、Dictionary でキーの大文字小文字の区別をする/しないを選択します。

Dictionaryのキー(要素)を全て削除するサンプルコード

'参照設定　Microsoft Scripting Runtime
Public Sub sample()

    Dim dic As Dictionary
    Set dic = New Dictionary
    
    '■大文字小文字区別する場合
    dic.CompareMode = vbBinaryCompare
    
    dic.Add "ABC", "あああ"
    dic.Add "Abc", "あああ"
    dic.Add "ＡＢＣ", "あああ"
    dic.Add "ａＢＣ", "あああ"
    dic.Add "AＢC", "あああ"
    Debug.Print dic.Count   '5
    
    dic.RemoveAll
    
    '■大文字小文字区別しない場合
    dic.CompareMode = vbTextCompare
    
    dic.Add "ABC", "あああ"
    dic.Add "Abc", "あああ"     '実行時エラー457 このキーは既にコレクションに割り当てられています
    dic.Add "ＡＢＣ", "あああ"  '実行時エラー457 このキーは既にコレクションに割り当てられています
    dic.Add "ａＢＣ", "あああ"  '実行時エラー457 このキーは既にコレクションに割り当てられています
    dic.Add "AＢC", "あああ"    '実行時エラー457 このキーは既にコレクションに割り当てられています
    Debug.Print dic.Count   '1
    

End Sub

注意点

• 既に要素があるDictionaryに対して、CompareModeを変更すると実行時エラーが出ます。

関連記事

Dictionaryにキーと要素を追加する【Addメソッド】【ExcelVBA】 Dictionaryのキー(要素)を全て削除する【RemoveAllメソッド】【ExcelVBA】