[[20200812223908]] 『翌月の表示を1行ずらしたい』(aki) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『翌月の表示を1行ずらしたい』(aki)

 こんばんは。よろしくお願いします。
早速ですが、自分たちの勤務は28日サイクルで回っています。
勤務表を作成するにあたり、現在は以下のようなものを使用しています。

 2020年8月	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	2020年8月
2020年8月	29	30	31	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	2020年9月
2020年9月	26	27	28	29	30	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	2020年10月

 この表を見やすくするために
以下のようにしたいと考えているのですが、可能でしょうか。
月が替わるごとに、下の段に表示したいのです。

 2020年8月	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	2020年8月
    	29	30	31																										
2020年9月				1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	2020年9月
    	26	27	28	29	30																								
2020年10月						1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	2020年10月

 ご教示いただきたくよろしくお願い申し上げます。2020/08/12 22:45

< 使用 Excel:Excel2019、使用 OS:Windows10 >


表示形式は、手作業で設定してください

 Option Explicit

 Sub test2()
    Dim d As Date
    Dim x As Long, y As Long

    d = #8/1/2020#
    x = 1
    y = 1
    Do
        x = x + 1
        If Day(d) = 1 Then
            y = y + 1
            Cells(y, 1).Value = d
        ElseIf x = 29 Then
            y = y + 1
            x = 2
        End If
        Cells(y, x).Value = d
        d = d + 1
    Loop Until d > #12/31/2020#

 End Sub

20/08/12(水) 23:53 差し替え08/13 00:13


どなたか分かりかねますが、早急にありがとうございました。

 マクロでの思考が自分にはありませんでした。
これについては解読しながら勉強させて頂きます。

 ちなみにですが、数式と条件付き書式とかの併用でも可能でしょうか

 ご教示いただきたくよろしくお願い申し上げます。

(aki) 2020/08/13(木) 11:39


すみません。編集で名前を間違って削除してしましました。
ついでに、ミス発見。
 ElseIf x = 29 Then
            ↓
 ElseIf x = 30 Then

に修正してください。

>数式と条件付き書式とかの併用でも可能でしょうか

数式が得意ではないので、他の回答者のレスをお待ち下さい。

(マナ) 2020/08/13(木) 12:06


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.