从VBA插入公式

问题描述：

我试图让下面的代码将公式插入到已更改的单元格中。我没有收到任何错误，但代码没有填充在工作表上。任何洞察到我没有做什么？从VBA插入公式

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)) & ")"

'Sheets（“Cost Sheet”）。Cell' - 哪个单元格？使用'Sheets（“Cost Sheet”）。Cell（1,1）'或'Sheets（“Cost Sheet”）。Range（“A1”）'或其他 –

正在存储更改的单元格地址并且.cell引用单元格更改的地址。 – RL001

当你按下“Ctrl-Alt-F9”时它会更新吗？然后请参阅http://msdn.microsoft.com/en-us/library/office/bb687891(v=office.15).aspx – Smandoli

答

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

=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))

感谢大家的意见，他们帮助我指出了正确的方向。

相关推荐