Excel VBA从另一张表中评估公式 [英] Excel VBA evaluate formula from another sheet

问题描述

已解决：问题出在我的公式中，我使用INDIRECT（）引用单元格，当表不同时，它不起作用。请参阅答案

我在一张表中有一个公式，我想做的是使用另一张表中的公式，使用eval来评估公式。然而，结果并不如预期。似乎公式是使用Sheet A而不是调用者Sheet B的值。

I have a formula in one sheet and what I want to do is to use the formula from another sheet, using eval to evaluate the formula. However, the result is not as intended. It seems like the formula is using values at Sheet A instead of the caller Sheet B.

表A中的公式（参见：截图表A ）

Formula in sheet A (See: Screenshot Sheet A)

=IF(ISERROR(INDEX('1516Activity'!$B:$B,MATCH(INDIRECT(ADDRESS(ROW(),COLUMN(D:D) )),'1516Activity'!$C:$C,0))),"-",IF(LEFT(INDEX('1516Activity'!$F:$F,MATCH(INDIRECT(ADDRESS(ROW(),COLUMN(D:D) )),'1516Activity'!$C:$C,0)))="0","N","Y"))

（见：截图表B ）

=Eval('CODE-VARS'!$G$5)

VBA：

Function Eval(Ref As String)
    Application.Volatile
    Eval = Application.ThisCell.Parent.Evaluate(Ref)
End Function

推荐答案

您正在评估字符串'CODE-VARS ！$ G $ 5'/ code>这将在该小区不是其式返回该值。尝试这样：

You are evaluating the String 'CODE-VARS'!$G$5 which would return the value in that cell not its formula. Try this:

Function Eval(Ref As RAnge)
    Application.Volatile
    Eval = Application.ThisCell.Parent.Evaluate(Ref.formula)
End Function

这篇关于Excel VBA从另一张表中评估公式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！