和Case子句一起使用Is的方法

在VBA的Select Case语句中，你可以使用Is关键字与Case子句一起使用来进行对象引用的比较。这通常用于比较引用类型的对象，例如对象变量。

下面是一个使用Is关键字的示例：

Sub SelectCaseWithIsExample()
    Dim obj1 As Object
    Dim obj2 As Object

    Set obj1 = New Collection
    Set obj2 = New Collection

    Select Case obj1
        Case Is obj2
            MsgBox "obj1 和 obj2 引用相同的对象。"
        Case Else
            MsgBox "obj1 和 obj2 引用不同的对象。"
    End Select
End Sub

在这个例子中，我们创建了两个新的Collection对象，然后使用Select Case语句和Is关键字比较这两个对象。由于Is关键字用于比较引用，它判断两个引用是否指向相同的对象。在这个特定的例子中，obj1和obj2引用了不同的Collection对象，因此会执行Case Else部分。

请注意，Is关键字通常用于比较对象引用，而在比较基本数据类型（如整数、字符串等）时，通常使用=或其他关系运算符。

转载请注明出处：http://www.zyzy.cn/article/detail/306/VBA