[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『翌月の表示を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.