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