エクセル 半月カレンダー

質問

エクセルのスクショ撮ってます
要らない場所は非表示にしています
１ページ目　１～15日　前半
２ページ目　16日～31日　後半
で分けてカレンダーを作成（印刷）したい
曜日の下に日付を入れていきます

=IF(MONTH($A$1)<>MONTH($A$1-WEEKDAY($A$1)+COLUMN(A1)+7*(ROW(A1)-1)),"", $A$1-WEEKDAY($A$1)+COLUMN(A1)+7*(ROW(A1)-1))
これでやると１～３１日までのカレンダーを作成できるのですが
１５日で終わりにできなく
半分に分けれない為悩んでいます
どうすればいいか教えてほしいのです
よろしくお願いします

回答No.2

bunjii · ベストアンサー

提示の数式は1ヶ月（月初～月末）を算出するものです。
従って、月初～15日のときは16日以降を「""」にしないと目的に合いません。
前半の数式は次のようになります。
=IF(DAY($A$1-WEEKDAY($A$1)+COLUMN(A1)+7*(ROW(A1)-1))>15,"", $A$1-WEEKDAY($A$1)+COLUMN(A1)+7*(ROW(A1)-1))

後半は次のようにしてください。
=IF(DAY($A$1-WEEKDAY($A$1)+COLUMN(A3)+7*(ROW(A3)-1))<16,"", $A$1-WEEKDAY($A$1)+COLUMN(A3)+7*(ROW(A3)-1))

但し、前半、後半共$A$1に設定された該当月の初日が基準値となっています。

お礼

返事ありがとうございます
月初～15日のときは16日以降を「""」
したらよかったのですね
参考になりました

ありがとうございます

回答No.1

msMike

貴方の提示式等を解読する元気がないので、私が勝手に作成したシロモノです。参考になれば仕合せかと。

A1: 2018/5/1 書式→yyyy/mm、中央揃え
A37: =A1 書式→yyyy/mm、中央揃え
曜日の行は左から数値 1、2、3、…、7 を入力して、aaa に書式設定
A4: =DATE(YEAR($A$1),MONTH($A$1),A2)+1-WEEKDAY(DATE(YEAR($A$1),MONTH($A$1),A2))
￣￣書式→ d
A15: =AZ4+1 書式→ d
￣￣ 此れをコピーして、セル A26、A51、A62 に貼り付け
D4: =A4+1 書式→ d
￣￣ 此れをコピーして、セル 右方の「土」の列まで(P4、V4、AH4、AN4、AZ4 に)貼り付け
範囲 D4:BE4 をコピーして、下方の日付行(D15、D26、D40、D51、D62)に貼り付け
A40: =IF(DAY(AZ4)=1,A26+7,A26)、書式→ d

下記の[条件付き書式]を設定

条件1
適用先 =$A$62:$BE$62,$A$51:$BE$51,$A$40:$BE$40,$A$26:$BE$26,$A$15:$BE$15,$A$4:$BE$4
適用式 =MONTH(A4)<>MONTH($A$1)
適用書式 フォント色→白

条件2
適用先 =$A$26:$BE$26
適用式 =DAY(A26)>15
適用書式 フォント色→白

条件3
適用先 =$A$40:$BE$40
適用式 =DAY(A40)<16
適用書式 フォント色→白

【独白】ふゥ～、疲れましたぁ～←原因はセル結合の多用か？

お礼

返事ありがとうございます
詳しく説明ありがとうございます
参考にさせてもらいます