Excel2010 出勤簿の曜日自動入力について

質問

Excelで前月21日～当月20日までの出勤簿を作っています。
曜日の自動入力についてご教授をお願いいたします。

Ａ１セルに年、Ａ３セルに月の数値を入力します。
Ａ８セルからＡ１８セルまで２１から３１の数値(日にち)を、Ａ１９セルからＡ３８セルまで１から２０の数値(日にち)を予め入力してます。

上記の条件で
Ｂ８セルからＢ１８セルに、Ａ１に入力した年とＡ３に入力した”前月”の２１日～３１日までの曜日を、
Ｂ１９セルからＢ３８セルに、Ａ１に入力した年とＡ３に入力した”当月”の１日～２０日までの曜日を表示する関数を教えていただきたくよろしくお願いいたします。
＊Ａ３セルが１(１月)の場合、Ｂ８セルからＢ１８セルには昨年の１２月の曜日が表示となります。

何卒よろしくお願いいたします。

回答No.4

kkkkkm · ベストアンサー

> 曜日の表示ですが、セルサイズの関係で「月」など一文字漢字の表示にしたいのですが可能でございましょうか。

最後の
"aaaa"
を
"aaa"
に変更してください。

お礼

ご回答ありがとうございます。
解決いたしました！。
早速のご返答をいただきまして、重ね重ね有難うございました。

回答No.7

msMike

添附圖參照(Excel 2019)
１．d に書式設定し、且つ、次式を入力したセル A8 をズズーッと
￣￣18行目迄オートフィル
￣￣=IF(MONTH(DATE(A$1,A$3-1,ROW(A21)))=A$3,"",DATE(A$1,A$3-1,ROW(A21)))
２．d に書式設定し、且つ、式 =DATE(A$1,A$3,ROW(A1)) を
￣￣入力したセル A19 をズズーッと 38行目迄オートフィル
３．aaa に書式設定し、且つ、式 =DATE(A$1,A$3,ROW(A1))
￣￣を入力したセル B8 にフィルハンドルを「エイヤッ!」とダブ
￣￣ルクリック

お礼

ご返答ありがとうございます。

回答No.6

imogasi

#2です。
混乱して、間違っている箇所が見つかり、訂正します。
DAY関数を使うのは、本件では、乱するので、それをやめます。
そして
B8に　式　=DATE($A$1,$A$3,21)を入れます。
そしてB9には　=E8+1
を入れて、B３７まで式を複写します。
表示形式をユーザー定義で、「日だけ」にします(ddと設定します）。
C列C18の式は　=TEXT(B8,"aaa")　と入れて下方向に式を複写します。
１１月２０日や、１２月の１日などに１１，１２が出ず、わかりにくいとは思います。A3にスタート月を入れる仕組みのためです。
＝＝＝＝
改めて、下記のやり方も提案します。
これが一番簡単なやり方でしょう。
C8に「土」と入れます（これは人間がカレンダーを見て、１１月２０日が土曜日を知って手入力します。オートフィルで、B37まで、右下にでる＋ハンドルを引っ張ります。これで曜日が正しく出ます。

お礼

ご返答ありがとうございます。

回答No.5

kkkkkm

No1,No4の蛇足です

A列の日にちですが
日にちの無いセルを非表示にする場合
29日のセル(A16)に
=IF(DAY(DATE($A$1,$A$3-1,ROW(29:29)))<>ROW(29:29),"",ROW(29:29))
として
30日(A17)と31日(A18)のセルにコピーすると該当月は非表示になります。
No1の式では日にちの無い日がある場合次の1日の曜日が表示されます。
Date(2020,11,31)はエラーにならず2020/12/1と認識されるためです。

日にちの無い日をカットして末日から連続して1日が始まる場合
21日のセル(A8)に
=IF(DATE($A$1,$A$3,20)<DATE($A$1,$A$3-1,ROW(21:21)),"",DAY(DATE($A$1,$A$3-1,ROW(21:21))))
としてA38までコピーすると連続した日にちになり最後20日を超えた日は空白になります。

回答No.3

imogasi

#2です。すみません。
日付の関数式を書き漏らしました。
私の考えた方法では、日の数値は、手入力ではありません。
関数の結果の数値です。
B8の式　=DAY(DATE($A$1,$A$3,21))
B9の式　=DAY(DATE($A$1,$A$3,B8+1))
B10以下は、B9の式を複写します。

回答No.2

imogasi

A１＝２０２０（年の数値）　A3＝１１（月の数値）
B11＝関数　=DAY(DATE($A$1,$A$3,21))
B12=関数　=DAY(DATE($A$1,$A$3,B8+1))　書式は数値
（日付の書式のままにするな）
B12の式をB13:B３７まで式を複写。（月により３８行までとなる）
C8＝関数　=TEXT(DATE($A$1,$A$3,B8),"aaa")
"aaa"は”aaaa"などお好みで。
C9＝関数　=TEXT(DATE($A$1,$A$3,B8+1),"aaa")
C10：C３７はC9の式を式複写。月によっては、前半(
月）が３１日の
月などはC38までの複写になる。
ーー
私見では、表の設計がまずいと思うが？
上記のように、複雑になる。
（１）短の月と長の月で、式複写の下限が別になったりする
（２）式が２種類になる（初期日とその後続日で）
私の式より、良い（すっきりした）ものが現れれば、脱帽するが。
C9の式で＋１にしているのは、月末ー＞月初でスムーズに行くようにしている。エクセルは、値が１１月３１日の場合は１２月１日として見てくれる、ありがたき仕組みであるのを利用。エクセルが日付シリアル値の仕組を使っていることのお陰？

お礼

ご返答ありがとうございます。

回答No.1

kkkkkm

=IF(A8="","",TEXT(IF(A8<21,DATE($A$1,$A$3,A8),DATE($A$1,$A$3-1,A8)),"aaaa"))

で試してみてください。ただし、日付のセルにその月に存在しない日は表示しないようにしておいてください。

補足

早速のご返答ありがとうございます。

曜日の表示ですが、セルサイズの関係で「月」など一文字漢字の表示にしたいのですが可能でございましょうか。
例：月曜日→月
＊ご回答いただきました関数を試したのですが曜日表示が「月曜日」等の3文字表示となります。
私の質問時の説明不足でお手数をおかけし申し訳ございませんが何卒よろしくお願いいたします。