文本粘贴后计算公式

Question

我有一个公式，它在从用户输入的日期中绘制文件路径时构造一个 vlookup 函数，接下来我有一个宏，它获取这个公式的结果并将它们粘贴到单元格 C6 中。

=("=" & "IF(ISNA(VLOOKUP($A6," & "'I:\CM\PC\A\TR\AT\"&TEXT(C$5,"yyyy")&"\"&TEXT(C$5,"mmmmmmmmmmm")&"\["&TEXT(C$5,"mmm")&TEXT(C$5,"d")&".xlsm]Violations Count'!$A:$B"&",2,FALSE)),"""",VLOOKUP($A6,"&"'I:\CM\PC\A\TR\AT\"&TEXT(C$5,"yyyy")&"\"&TEXT(C$5,"mmmmmmmmmmm")&"\["&TEXT(C$5,"mmm")&TEXT(C$5,"d")&".xlsm]Violations Count'!$A:$B"&",2,FALSE))")

我遇到的麻烦是找到一种方法让 VBA 激活公式，而不是让它以文本格式存在：

=IF(ISNA(VLOOKUP($A6,'I:\CM\PC\A\TR\AT\2016\December\[Dec5.xlsm]Violations Count'!$A:$B,2,FALSE)),"",VLOOKUP($A6,'I:\CM\PC\A\TR\AT\2016\December\[Dec5.xlsm]Violations Count'!$A:$B,2,FALSE))

之后我只有一个宏自动填充 A6:A37 列之间的其他名称。

如果有人可以帮助我通过 VBA 激活单元格，将不胜感激。

Answer 1

如果要获取单元格的值（可能包含文本字符串），请使用以下内容：

someVariableEtc = Range("A1").Value

如果你想使用 VBA 设置单元格的公式，你会使用类似的东西：

Range("C6").Formula = "some text string"

将两者结合起来，你可以想出类似的东西：

Range("C6").Formula = Range("A1").Value

Answer 2

Look this up。评估功能可能是您正在寻找的。最简单的使用方法是将表达式括在方括号 [] 中。