週番号を月に変換する数式

Question

週番号を月名に変換するためのVBAコードを実装しようとしています。

私は、列 "A"に1から52の週番号が含まれているシートを持っています。週番号1は列A3から始まります。私は対応する月の週番号の名前を印刷したい。

私は式・ファーストを試みた理由は、アイデアを取得し、VBAに数式を変換することである。この

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

等式を試してみました。

私のセルには数式が印刷されています。誰もこれで私を助けることができますか？

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