將星期幾轉換為月數的公式

Question

我正在嘗試實現將星期幾轉換為月份名的VBA代碼。

我有一張工作表，其中“ A”列包含從1到52的星期數。 第1周從A3列開始。 我想要打印對應的星期名稱的月份名稱。

我嘗試過這樣的公式

=MONTH(DATE(YEAR(NOW()),1,1)+(B1*7))

我嘗試公式fisrt的原因是想出主意，然后將公式轉換為VBA。

我只是將公式打印在單元格中。 誰能幫我這個？

Answer 1

干得好：

dim i as long
dim n as long

n=sheets("Sheet1").cells(Rows.count,1).end(xlup).row

for i = 1 to n

cells(i,3).formula = "=MONTH(DATE(YEAR(NOW()),1,1)+(RC[-1]*7))"

next i