よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13161 / 1階層)  カレンダーのコード
□投稿者/ よねさん -(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

記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←NO TITLE /VBA初心者 Mail 返信無し
 
上記関連ツリー

Nomal NO TITLE / VBA初心者 Mail (17/05/11(Thu) 15:55) #13160
Nomal カレンダーのコード / よねさん (17/05/12(Fri) 10:15) #13161 ←Now

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -