使用变量评估匹配函数

Question

我想通过VBA使用它 -

=MATCH("PlanA",A:A,0)

与EVALUATE。

Sub Test()

Dim SectionStartRow As Integer    
Dim planname As String
planname = "PlanA"

SectionStartRow = [MATCH(planname,A:A,0)] 'Error 2029 /// Type mismatch '13

End Sub

我已经尝试过了：

SectionStartRow = Evaluate("MATCH(planname,A:A,0)") 'Error 2029 /// Type mismatch '13

和

SectionStartRow = Evaluate("MATCH(" & planname & ",A:A,0)")

但似乎没什么用。请注意，planname变量被一长串函数拒绝。

Answer 1

问题是planname需要用字符串引号括起来。 excel等价物是=MATCH("PlanA",A:A,0)，传递给Evaluate的字符串应该与之相同：

SectionStartRow = Evaluate("=MATCH( " & Chr(34) & planname & Chr(34) & ",A:A,0)")

工作正常（使用Excel 2010测试）

Chr(34)代表ASCII编号中的"符号。

另一种方法是定义

planname = Chr(34) & "PlanA" & Chr(34)

然后做SectionStartRow = Evaluate("=MATCH( " & planname & ",A:A,0)")

顺便说一下，我将SectionStartRow定义为Long而不是Integer，因为如果匹配行在32,767之后，Integer将抛出错误。

另请注意，Evaluate的简写形式（即方括号[]）在这种情况下不起作用。它只适用于everything inside the brackets is a constant, not a variable。

我希望这有帮助！

Answer 2

我偶然发现了这个有用的问题，并且努力不仅连接planname而且还用不同的表单解决它。

我对Ioannis的答案中的双引号和符号感到困惑。 planname = Chr(34) & "PlanA" & Chr(34)

在我的示例中，下面一行的版本正确解析了第一个参数。所以只有一个"& variable &"为我工作。

SectionStartRow = Evaluate("=MATCH('Sheet1'!C " & variablename & ",A:A,0)")