将周数转换为月的公式

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