Question

我正在尝试使用以下代码将公式插入更改的单元格中。我没有收到任何错误，但代码没有填充在工作表上。对我不做的任何见解？

formula_p1 = _
 "=GETPIVOTDATA(""Max of " & [value_column_header] & ",Database!R1C14, & _
     ""Key"",& Key &)"
      Debug.Print Cell.Address
          Sheets("Cost Sheet").Cell.Formula = formula_p1

提前谢谢。

更新

我目前的代码在下面我被困在最后部分的连接中。我不知道如何在VBA中实现这一目标。此外，我需要这个是一个公式，将重新评估可以在工作表上完成的“家庭”部分的更改。 “家庭”的更改是通过组合框选择完成的。

formula_1 = _
          "=GETPIVOTDATA(""Max of " & value_column_header & """,Database!$N$1,""Key""," & Concatenate(CurrentHFMFamily, G5, Left(B12, 4)) & ")"

Answer 1

这是我尝试完成的最终结果。它不漂亮，但它快速而稳定。

    =IF(INDIRECT(CONCATENATE("B",ROW()))=""," ",IFERROR(GETPIVOTDATA("Max of & _
    "&INDIRECT((ADDRESS(11,COLUMN())))&"_ADJ",Database!R1C14,"Key",& _
    LEFT(INDIRECT(CONCATENATE("B",SUM(ROW()-1))),4)&CurrentHFMFamily& & _
    (OFFSET(INDIRECT(ADDRESS(ROW(),COLUMN())),-(SUM(ROW()-(5))),- & _
    (MOD(COLUMN()+1,4))))),0))

感谢所有人的建议，他们帮助我指明了正确的方向。

从VBA插入公式

1 个答案: