[[20230303164210]]　『月単位のオートフィル』（梅生）　ページの最後に飛ぶ

『月単位のオートフィル』（梅生）

A5セルから縦に4月～3月までのカレンダーを作りたいのですができません。
下記コードですとA５から縦に4月が12個並んでしまうのですが何処を直したら良いか教えてください。
Sub カレンダー()

    With Range("A5").Resize(12, 1)
        .Formula = "=DATE(2022,COLUMN()+3,1)"
        .Value = .Value
        .NumberFormat = "m月"
    End With
End sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 COLUMN関数は列数なのですべてA列の1になる。
 (3を足して4)

 .Formula = "=DATE(2022,COLUMN(A4),1)"
 で、どうだろうか？

（ねむねむ） 2023/03/03(金) 16:57:19

お考えいただきありがとうございます。
1月が12個並んでしまいました？引き続きよろしくお願いいたします。
（梅生） 2023/03/03(金) 17:24:19

 すまない、自分で
 >COLUMN関数は列数なのですべてA列の1になる。
 と書いておいて…

 .Formula = "=DATE(2022,ROW(A4),1)"
 にしてくれ。
（ねむねむ） 2023/03/03(金) 17:30:42

ROWですね！できました！
ありがとうございます。
（梅生） 2023/03/03(金) 18:02:21

コメント返信：

[ 一覧(最新更新順) ]

[[20230303164210]] 『月単位のオートフィル』（梅生） ページの最後に飛ぶ

[[20230303164210]]　『月単位のオートフィル』（梅生）　ページの最後に飛ぶ