VBA - 有没有类似于列表的东西？

Question

例如，我有一个包含两个数字 0、1 的列表，我想在 vba 中运行一个脚本，如下所示:

for i in list:
    if i in string:
       do something
    end if

即我想首先检查“0”是否在某个字符串中，然后做某事，然后检查“1”是否在字符串中，然后做某事等等。在python中我会有一个元组[“0”，“1” ] 并这样做，但我将如何在 VBA 中解决这个问题？

Answer 1

你的意思是这样吗？您可以使用一个数组(我想在没有定义数据类型时技术上是一个元组)

For Each i In Array("0", "1", "2", "3")
    If InStr("1289", i) Then
        '// Do Something
    End If
Next

相似地:

Dim list As Variant
Dim someString As String

someString = "1289"
list = Array("0", "1", "2", "3")

For Each i In list
    If InStr(someString, i) Then
        '// Do Something
    End If
Next

奖金说明:
InStr()实际上并没有返回 True/False它返回从左到右读取的另一个字符串中的子字符串的起始位置。然而，在这种情况下，我们可以依靠 VBA 的隐式转换来评估任何大于 0 的值。如 True因为它被用于 If陈述。