Excel VBA 检查密钥是否在集合中 - VBA

在使用Excel VBA编写程序时，有时需要检查某个密钥是否在集合中。

以下是一个简单的方法来检查密钥是否存在于集合中。方法是使用VBA的Dictionary对象来存储集合。

创建一个集合

创建一个集合非常简单，只需使用以下代码：

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

添加项目到集合中

要将一个项目添加到集合中，请使用以下代码：

myCollection.Add "key", "value"

在这里，“key”是要添加到集合中的密钥，而“value”是与之相关联的值。

检查密钥是否在集合中

要检查密钥是否在集合中，可以分别使用Exists和Item方法。如果密钥存在，则Exists方法返回True，否则返回False。如果密钥存在，则Item方法返回与之相关联的值。

以下是一个示例代码段，可以检查密钥是否在集合中：

If myCollection.Exists("key") Then
  MsgBox "The key exists and its associated value is: " & myCollection.Item("key")
Else
  MsgBox "The key does not exist in the collection."
End If

请注意，此代码段仅在密钥“key”存在于集合中时才会显示相关信息。

希望这个简短的例子有助于您在创建Excel VBA程序时检查密钥是否在集合中。