将周数转换为月的公式

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