公式將一週數轉換爲月份

Question

我想實現VBA代碼以將星期數轉換爲月份名稱。

我有一張表格「A」包含從1到52的星期編號。第1周從第A3列開始。我想要打印週數的相應月份名稱。

我嘗試了公式這樣

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

我嘗試過的最前一頁式的原因是爲了讓這個想法，然後將公式轉換爲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