□投稿者/ よねさん -(2017/05/12(Fri) 10:15:40)
| ご指摘ありがとうございます。
> 『指定年月日からの横型の年間カレンダーを作成する』では、31日無い月でも、翌月が表示され、31列分の日数が並んでしまう。
このカレンダーは21日始まりのカレンダーを作成するのが元になっています。
指定年月日の日にちが始まりの日になるカレンダーが作成されると思います。
2017/1/21 であれば、1/21〜2/20(31日)、2/21〜3/20(28日)、3/21〜4/20(31日)、4/21〜5/20(30日)・・・といったカレンダーになると思いますので、
ご指摘の「31列分の日数が並んでしまう。」というのが理解できません。
このカレンダーの月の表示が「1日」を含む月を表示していましたが、
分かりにくいので、E列の日の月を表示するように変更しました。
'月、日にちを入力
.Cells(2 + gyokan * i, 4).Value = Month(.Cells(2 + gyokan * i, 5).Value) & "月"
>『横型カレンダーからボックス型カレンダーを作成する』では、月表示が正しく表示されない。
1年のカレンダーを作成することにしていましたので、月数によっておかしなことになっていました。
このコードの月の計算も最初の日にちの月を表示する方法にしました。
If myData(i, 1) = 0 Then
tuki = ""
Else
tuki = Month(myData(i, 1))
End If
|
|