Excel VBA dictionary existsで指定されたキーが辞書内に存在するかチェック

 

Excel VBAの Dictionary Existsは、指定されたキーが辞書内に存在するかどうかを確認するために使用します。具体的な使い方や、注意点やサンプルコードを紹介します。

 

📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか?
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました!

👇実務で“そのまま使える”テンプレ付きで、コピペするだけ
初心者向けエクセルマクロの作り方を解説|コピペOK実務テンプレ付き

 

Excel VBA dictionary existsの利用

以下のようなシーンで利用されます。

・キーの存在を確認してから辞書内の要素にアクセスするときに使用します。

 

Excel VBA dictionary existsの使い方とポイント

 

ポイント

Existsは、キーが存在するかどうかを確認するだけで、値を取得するわけではありません。

 

Excel VBA dictionary existsのサンプルコード

 

自分の実力を客観的にチェックしたい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集をご用意しました。

👉無料ExcelVBAベーシック選択問題138問

 

Option Explicit

Sub CheckKeyExistence()
    ' Dictionaryの作成
    Dim myDict As Object
    Set myDict = CreateObject("Scripting.Dictionary")

    ' キーと値の追加
    myDict.Add "Apple", 10
    myDict.Add "Banana", 5
    myDict.Add "Orange", 8

    ' キーの存在を確認
    If myDict.Exists("Banana") Then
        MsgBox "Bananas exist! Quantity: " & myDict("Banana")
    Else
        MsgBox "Bananas do not exist!"
    End If

    ' 存在しないキーを確認
    If myDict.Exists("Grapes") Then
        MsgBox "Grapes exist!"
    Else
        MsgBox "Grapes do not exist!"
    End If
End Sub

サンプルコードは、特定の果物のキーが存在するかどうかを確認しています。存在する場合はその数量を表示し、存在しない場合はメッセージを表示します。

 

Excel VBAエキスパートベーシックとスタンダード、どちらを選べばいいか判断が難しい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集を用意しました。

👉無料ExcelVBAベーシック選択問題138問