使用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