VBAでマクロを組んでいます。１ヶ月の日付を表示したいのですが教えて下さい！
入力シートに年と月を入力して、
出力シートにその日付を1日から30日や31日まで横に出したいです。
入力シート名はコントロール画面
出力シート名はクレジットテンプレートorデビットテンプレートorギフトテンプレート
入力シートのC4に年を入れる。
入力シートのC5に月を入れる。
入力シートのC6に対象となるものを選択する。(クレジット、デビット、ギフト)
ボタンを押すと、クレジット、デビット、ギフトの選択されたシートにC1から横に日付が出るようにしたいです。
y = 2009
m = 2
For d = 1 To 31
Cells(d, 1) = Format(DateSerial(y, m, d), "yyyy年m月d日")
If Month(Cells(d, 1)) <> m Then
Cells(d, 1) = ""
End If
Next d
出来てるように見えますが何を知りたいんですか？
また、ソースコードはコードブロックに書いてください。
Sub test()
'入力シートのC4に年を入れる｡
y = Range("C4")
'入力シートのC5に月を入れる｡
m = Range("C5")
'末日を取得
lastDay = Format(DateSerial(y, m + 1, 0), "d")
'入力シートのC6に対象となるものを選択する｡ (クレジット､デビット､ギフト)
t = Range("C6")
With Sheets(t + "テンプレート")
.Range("A1:AE1").ClearContents
For d = 1 To lastDay
.Cells(1, d) = y & "年" & m & "月" & d & "日"
Next d
End With
End Sub
@hayatedonda
Questioner
すみません。
後ほどソースコードを送ります。
写真だけ先に送りたいと思います。
コードはこのようになっております。