带字符串参数的VBA评估函数

Mat*_*son 3 excel vba evaluate

我正在使用此功能(它返回文本DK001位于ID范围内的行)

Found = Application.Evaluate("=IF(ID=""DK001"",ROW(ID),""x"")")
Run Code Online (Sandbox Code Playgroud)

我想将搜索条件(例如DK001)作为字符串提供,例如

Found = Application.Evaluate("=IF(ID=SearchString,ROW(ID),""x"")")
Run Code Online (Sandbox Code Playgroud)

我无法创建一个被接受为搜索条件的字符串。我需要您的帮助!我究竟做错了什么?


这个评估功能困扰着我....

如果我现在想向函数发送一个值(而不是字符串)怎么办?

Found = Application.Evaluate("=IF(ID=1,ROW(ID),""x"")")
Run Code Online (Sandbox Code Playgroud)

以上作品!

但是如果我希望这是一个像

Found = Application.Evaluate("=IF(ID=MyValue,ROW(ID),""x"")")
Run Code Online (Sandbox Code Playgroud)

然后怎样呢?

Ale*_* K. 6

双击"以将它们包括为文字:

SearchString = "DK001"
Found = Application.Evaluate(""=IF(ID=""" & SearchString & """,ROW(ID),""x"")")
Run Code Online (Sandbox Code Playgroud)