如何修复。评估舍入结果

Question

我使用Evaluate 来执行这个公式：

x = Application.Evaluate("AdInterp(" & cells(2,"C").value & "," & "'" & ThisWorkbook.Worksheets("Fonction DCF ").Range("U8:U31").Parent.Name & "'!" & ThisWorkbook.Worksheets("Fonction DCF ").Range("U8:U31").Address(external:=False) & "," & "'" & ThisWorkbook.Worksheets("Fonction DCF ").Range("V8:V31").Parent.Name & "'!" & ThisWorkbook.Worksheets("Fonction DCF ").Range("V8:V31").Address(external:=False) & ",IM:CUBD)")

它返回 1（似乎是 .Evaluate 舍入结果）。 例外的输出是：1,00042406864688

x 是 double 类型，所以我不明白为什么结果是四舍五入的......有什么想法吗？

问题：

我是否在构建公式以对其进行评估时犯了错误？

---

以下几个我做过的测试

当我将公式放入单元格时，输出为：1,00042406864688

Excel工作表公式：

=AdInterp(C2;'Fonction DCF '!U8:U31;'Fonction DCF '!V8:V31;IM:CUBD)

执行窗口：

注意：当我将公式放入单元格时，我会这样做

Evaluate(Cells(2,"G").Formula)

输出为：1,00042406864688

Answer 1

我会考虑invoking the function directly，而不是让计算引擎对其进行评估。

但它应该无论如何都可以工作。我怀疑它正在工作，甚至 - 但implicit ActiveSheet references 正在向它扔扳手。

此Cells 成员调用不合格：

& cells(2,"C").value &

这隐含地引用了活动工作表上的单元格。对比：

ThisWorkbook.Worksheets("Fonction DCF ") & "!" ...

这意味着传递给函数的输入数组取决于该指令运行时哪个工作表处于活动状态，因此如果打算处理“Fonction DCF”工作表，我建议明确说明。

在Project Explorer中选择“Fonction DCF”工作表模块（Ctrl+R），然后按F4调出Properties工具窗口，查看@ 987654326@ 该工作表的属性。如果它显示Sheet1（或类似的 - 这是默认值），请将其更改为FonctionDCFSheet，然后更改您的代码以使用其程序名称引用该工作表（我假设该工作表存在于@ 987654329@ 编译时- time) - 也正如@FunThomas 恰当地建议的那样，考虑将动态评估的字符串拉到它自己的局部变量中，以使其更容易调试：

With FonctionDCFSheet
    Dim dynamicEval As String
    dynamicEval = "AdInterp(" & .Cells(2,"C").value & "," & _
                  "'" & .Name & "'!U8:U31," & _
                  "'" & .Name & "'!V8:V31, IM:CUBD)"
    Debug.Print dynamicEval
    x = .Evaluate(dynamicEval)
End With

（减少水平滚动的行延续）

请注意，我还清理/删除了一些无关的步骤：您不需要先获取 Range 的单元格，然后获取 Parent 的 Range 来获取 Name 的单元格Worksheet 您已经按名称取消引用，对于您已经按地址取消引用的一系列单元格，您不需要获取 Range 的 Address。

另外，因为我们现在正在调用 Worksheet.Evaluate（.Evaluate 调用由 With 块变量限定），字符串公式在该表的上下文中被评估，所以字符串中的工作表命名变得多余，可以进一步简化字符串：

    CreateAdxUtilityModule.AdInterp(Periode, ThisWorkbook.Worksheets("Fonction DCF ").Range("U8:U31").Value, ThisWorkbook.Worksheets("Fonction DCF ").Range("V8:V31").Value, "IM:CUBR")

'Periode  is a date format dim

刚才我注意到最后一部分IM:CUBD 也被评估为不合格；与Application.Evaluate 一起传递IM:CUBD 的ActiveSheet； Worksheet.Evaluate 传递相同的列，但始终在正确的工作表上，无论哪个工作表处于活动状态。