1

我正在尝试将文本字符串转换为公式，但我的文本字符串有点不寻常，因为它描述了两个工作表之间的链接。这是起始公式：

+TEXT("+'X:\Deals\ONE-PAGERS\_One-pagers (vM)\["&TRIM(LEFT(SUBSTITUTE($B9," ",REPT(" ",30)),64))&" vM.xlsx]Metrics'!$D$8",1)

我创建了这个公式以避免手动链接大量电子表格。它捕获单元格的前两个单词，并将其放入将建立链接的文本字符串（如果它是公式）。这样，我可以简单地在单元格 B9 中输入公司名称，这个公式将生成一个描述我想要的链接的文本字符串。这是公式输出：

+'X:\Deals\ONE-PAGERS\_One-pagers (vM)\[xxx vM.xlsx]Metrics'!$D$8

如您所见，如果这是一个公式，它将生成一个链接，它将返回工作表中的Cell D8值xxx。我已经尝试了评估解决方法（见下文）以及间接功能，但似乎都没有工作。如果这没有意义，请告诉我，并提前非常感谢您的帮助！

Function EvalCell(RefCell As String)
Application.Volatile
EvalCell = Evaluate(RefCell)
End Function
4

1 回答 1

0

Evaluate 和 INDIRECT 都需要打开源工作簿，但您可以使用 ExecuteExcel4Macro：

Function EvalCell(RefCell As String)
Application.Volatile True
application.ExecuteExcel4Macro(application.convertformula(mid$(RefCell, 2), xlA1, xlr1c1))
End Function

不过，我会避免使用太多这些功能！

于 2014-06-03T16:10:44.260 回答