No.2ベストアンサー
- 回答日時:
1例を示しますので、適当に応用してください。
A1に2011、A2に1、
D1:E19に祝日リスト
1月1日元旦
1月2日振替休日
1月10日成人の日
2月11日建国記念の日
3月21日春分の日
4月29日昭和の日
5月3日憲法記念日
5月4日みどりの日
5月5日こどもの日
7月18日海の日
9月19日敬老の日
9月23日秋分の日
10月10日体育の日
11月3日文化の日
11月23日勤労感謝の日
12月23日天皇誕生日
A4=TEXT(DATE($A$1,$A$2,ROW()-3),"d")&IF(ISNA(VLOOKUP(DATE($A$1,$A$2,ROW()-3),$D$4:$E$19,2,FALSE)),"",VLOOKUP(DATE($A$1,$A$2,ROW()-3),$D$4:$E$19,2,FALSE))
この回答への補足
祝日表示されました。
曜日も入れたいときはどうしますか?
たとえば 1つのセルに
1(土)元旦
どのように手を加えたらできますか。
よろしくお願いします。
No.7
- 回答日時:
オリジナルになるべく手を加えないで結果が希望通りになるようにしましたが、元旦以外の祝休日を表示させたくなると、条件式が複雑になりすぎるので、ANo.2の方法が良いと思います。
A3=IF(AND($C1=1,$G3=7),"元旦",IF(OR($G3="元旦",$G3<7),"",$G3-6))
B3=IF(AND($C1=1,$G3=6),"元旦",IF(OR($G3="元旦",$G3<6),"",$G3-5))
C3=IF(AND($C1=1,$G3=5),"元旦",IF(OR($G3="元旦",$G3<5),"",$G3-4))
D3=IF(AND($C1=1,$G3=4),"元旦",IF(OR($G3="元旦",$G3<4),"",$G3-3))
E3=IF(AND($C1=1,$G3=3),"元旦",IF(OR($G3="元旦",$G3<3),"",$G3-2))
F3=IF(AND($C1=1,$G3=2),"元旦",IF($G3="元旦","",$G3-1))
G3=IF(AND($C1=1,WEEKDAY(A1&"/"&C1&"/"&1)=7),"元旦",8-WEEKDAY(A1&"/"&C1&"/"&1))
A4=IF($G3="元旦",2,$G3+1)
あとは同じです。
No.6
- 回答日時:
こんばんは!
一つの案ですが、別セルに祝日名を表示させてはどうでしょうか?
一例ですが↓の画像で説明します。
別Sheet(画像ではSheet2に祝日データをシリアル値で作成しておきます。)
そして、Sheet2のB2~B16セルを範囲指定 → 祝日 と名前定義します。
(範囲指定した後に、直接名前ボックスに 祝日 と入力してOK)
Sheet1のA1セルに西暦年・A2に月の数値を入力します。
C1セルにその月の1日のシリアル値を表示させておきます。
(これが目障りであればフォントの色を「白」等に設定しておけば見えなくなります)
C1セルは
=DATE(A1,A2,1)
A5セルに
=IF(MONTH($C$1-WEEKDAY($C$1)+COLUMN(A1)+7*(ROW(A1)-1)/2)=$A$2,$C$1-WEEKDAY($C$1)+COLUMN(A1)+7*(ROW(A1)-1)/2,"")
A6セルに
=IF(OR(A5="",COUNTIF(祝日,A5)=0),"",INDEX(Sheet2!$A$2:$A$16,MATCH(A5,祝日,0)))
という数式を入れています。
そして、A5・A6セルを範囲指定 → 条件付書式から → 数式が → 数式欄に
=A6<>""
として書式 → フォント → 「赤」を選択
A5・A6セルを範囲指定し、A6セルのフィルハンドルで土曜の列までオートフィルでコピー!
そのまま(2行を範囲指定したまま)下へ2行ずつオートフィルでコピーすると
画像のような感じになります。
以上、参考になれば良いのですが
他に良い方法があればごめんなさいね。m(__)m
No.5
- 回答日時:
その関数がユーザー関数(自分でお作りになった関数)なら、ちょっと細工すればできます。
関数の中で処理したらいいのです。この回答への補足
回答ありがとうございます。
自分で作った関数です。
私の作った式は以下のとおりです。
どう処理したらいいのでしょうか?
A1に年 C1に月
次の行に曜日を入れています。
A3の行は
A3=IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=1,1,"")
B3=IF(A3<>"",A3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=2,1,""))
C3=IF(B3<>"",B3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=3,1,""))
D3=IF(C3<>"",C3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=4,1,""))
E3=IF(D3<>"",D3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=5,1,""))
F3=IF(E3<>"",E3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=6,1,""))
G3=IF(F3<>"",F3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=7,1,""))
A4の行は
A4=G3+1
B4=A4+1
C4=B4+1
D4=C4+1
E4=D4+1
F4=E4+1
G4=F4+1
A5~G6まではA4の行と同じように+1の式です。
A7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&G6+1))=TRUE,"",G6+1)
B7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&A7+1))=TRUE,"",A7+1)
C7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&B7+1))=TRUE,"",B7+1)
D7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&C7+1))=TRUE,"",C7+1)
E7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&D7+1))=TRUE,"",D7+1)
F7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&E7+1))=TRUE,"",E7+1)
G7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&F7+1))=TRUE,"",F7+1)
A8=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&G7+1))=TRUE,"",G7+1)
B8=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&A8+1))=TRUE,"",A8+1)
と関数を入れ、カレンダーを作っています。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでカレンダーを作りたい 5 2023/05/16 07:32
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) Excel 関数 数式 について 2 2022/09/02 21:45
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) 【Excel質問】 「本日の日付」から指定条件を満たす営業日経過後の日数を表示させる関数式 3 2022/06/06 23:28
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Officeを開くたびの「再起動メ...
-
英数字のみ全角から半角に変換
-
マイクロソフト 一時使用コード...
-
マクロの書き方を教えて下さい
-
outlookのメールが固まってしま...
-
大学のレポート A4で1枚レポー...
-
エクセルでXLOOKUP関数...
-
会社PCのメールが更新されない
-
【Excel VBA】PDFを作成して,...
-
excelの画面のグリッド線の消滅。
-
teams設定教えて下さい。 ①ビデ...
-
Microsoft Formsの「個人情報や...
-
PCを買い換えました。 今使って...
-
エクセルで英文字に入れた下線...
-
Office 2021 Professional Plus...
-
会社のTeamsのことで相談です。...
-
【Excel】セル内の文字が正しい...
-
みつも朗ってソフトはなにがで...
-
マクロ1があります。 A1のセル...
-
Outlook 電源OFFの受診の仕方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
「生産性ソフトウェア」とは何...
-
会社PCのメールが更新されない
-
【関数】○年○ヶ月と表示された...
-
WEBの記事を印刷する際にA...
-
エクセルでXLOOKUP関数...
-
Microsoft familyに追加されま...
-
会社のOutlookにてメールを予約...
-
Microsoft Formsの「個人情報や...
-
Microsoft365の一部を解約したい
-
マクロ自動コピペ 貼り付ける場...
-
Outlook で宛先が複数の場合の人数
-
outlookのメールが固まってしま...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
office365って抵抗感ないですか?
-
Microsoftにofficeアプリについ...
-
Excel テーブル内の空白行の削除
-
マイクロソフト 一時使用コード...
おすすめ情報