使用VBA在单元格中插入公式

Question

我有一个应该用公式填充8行的函数

Sub df_opbouwen()

  num_weeks = 8 + 10

  For i = 10 To num_weeks

     Sheets("Blad1").Cells(i, 2).Formula = "=WEEKNUMMER(D10)"

  Next i

End Sub

但是，当我打开Excel时，仍然会得到一个#name? 错误。 这很奇怪，因为当我在单元格中输入=WEEKNUMMER(D10)时，它确实起作用。

对这里出什么问题有任何想法吗？

Answer 1

您有一个小的类型错误：

Sub df_opbouwen()

num_weeks = 8 + 10

For i = 10 To num_weeks
    Sheets("Blad1").Cells(i, 2).Formula = "=WEEKNUM(D10)"
Next i

End Sub