似たような質問があると思いますが、なかなか合ったものが無かったので質問させていただきます。
1か月の活動内容が記載されたカレンダーがありまして、A列に日付が1か月分入っています。
B列に当番の名前を入れたいのですが、毎日では無くて飛び飛びになっています。
具体的には、火・木・土・日だけしか当番の名前は入りません。
月次の予定表を兼ねているので、火・木・土・日だけの表示にする事はできません。
当番は10人で、1年間同じ順番で回ってきます。
大した数ではないので今まで直接打込んでいましたが
何か自動でできるような便利な方法がありましたら教えてください。
もう一つ、C列には、管理者が入ります。
管理者は火・木担当と、土・日担当がいます。
管理者は、曜日固定でいつも同じ人が入ります
こちらも何か便利な方法があれば教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
A1,B1,C1,D1,E1セルに、それぞれ、日付、当番の名前、管理者の名前、当番選択日、管理者選択日、というタイトルを記入しておきます。
A2セルから下に日付があるとして、D2セルに、
=IF(OR(WEEKDAY(A2)=1,WEEKDAY(A2)=3,WEEKDAY(A2)=5,WEEKDAY(A2)=7),1,"")
と入力して下にドラッグコピーします。これで、火・木・土・日の行は1、他はブランクになります。
次に、D1セルを選んで、昇順に並べ替えます。
これで、選択日の行が最初に並びます。
B2セルから下に、10人の当番の名前を、順番に記入します。
次に、B2からB11までの10人分のセルを選んで、D2セルに1が記入されているところまで、下にドラッグコピーします。
これで、全ての火・木・土・日の行に当番10人の名前が自動的に順番に記入されます。
C2セルから下に、4人分の管理者の名前を、順番に記入します。
次に、C2からC5までの4人分のセルを選んで、D2セルに1が記入されているところまで、下にドラッグコピーします。
これで、全ての火・木・土・日の行に管理者の名前が自動的に順番に記入されます。
あとは、A1セルを選んで、昇順に並べ替えて、日付順の表に戻します。
No.4
- 回答日時:
おっと失礼
式中の閉じ括弧が掛けていました、
改定させて下さい
改定前は
勤務者は
=choose(WEEKUDAY(TODAY(),2,"","A田太一","","B垣一郎","","C根安弘","大D桃子")
管理者は
=choose(WEEKUDAY(TODAY(),2,"","Zさん","","Zさん","","Hさん","Hさん")
正しくは
勤務者は
=choose(WEEKUDAY(TODAY(),2),"","A田太一","","B垣一郎","","C根安弘","大D桃子")
管理者は
=choose(WEEKUDAY(TODAY(),2),"","Zさん","","Zさん","","Hさん","Hさん")
WEEKDAYの閉め括弧が抜けてました。
失礼しました。
No.3
- 回答日時:
こんばんは!
一案です。
少々泥臭い方法になりますが、
↓の画像のようにSheet2に表を作成しておきます。
質問内容では1月に2回のローテーションはないみたいですので、
とりあえずSheet2のC列に2ローテーション分の表を作成。
D2・D3セルには「管理者」の氏名を!
A列はSheet1に表示するための表で10人分だけ表示!
尚、付きが変わるときには前月の最後の担当者の次からの表示が必要だと思いますので、
月替わりにはSheet1の最終担当者と目視で確認し、A2~A11セルに前月担当者の次の担当者から10人を
B列の表を利用してA2セル以降にコピー&ペーストするようにします。
尚、Sheet1はシリアル値の方が何かと便利だと思いますので、余計なお世話かもしれませんが
カレンダーの作成から説明します。
Sheet1のA1セルに西暦年・C2セルに表示したい月を入力します。
Sheet1のA4セル(セルの表示形式はユーザー定義から d(aaa) としておきます)に
=IF(MONTH(DATE(A$1,C$1,ROW(A1)))=C$1,DATE(A$1,C$1,ROW(A1)),"")
B4セルに
=IF(A4="","",IF(MOD(WEEKDAY(A4),2)=1,INDEX(Sheet2!A$2:A$11,IF(COUNTIF(B$3:B3,"*?")=10,10,MOD(COUNTIF(B$3:B3,"*?"),10))),""))
C4セルに
=IF(B4="","",IF(WEEKDAY(A4,2)>5,Sheet2!D$2,Sheet2!D$3))
最後にA4~C4セルを範囲指定 → C4セルのフィルハンドルで下へ(月末の34行目まで)オートフィルでコピーすると
画像のような感じになります。
以上、長々と書きましたが参考になりますかね?m(_ _)m
No.2
- 回答日時:
仮に「A田太一」「B垣一郎」「C根安弘」「大D桃子」の四人がこの順番で勤務に就いているとします。
勤務者は
=choose(WEEKUDAY(TODAY(),2,"","A田太一","","B垣一郎","","C根安弘","大D桃子")
管理者は
=choose(WEEKUDAY(TODAY(),2,"","Zさん","","Zさん","","Hさん","Hさん")
これで如何でしょうか?
簡単明瞭ですね。
名前は実勢に併せて変更して下さい。
TODAY()の部分は 表中の日付を示している場所を指し示し直して下さい。
お役に立てていたならば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) 当番表の作成 2 2022/06/15 07:40
- Visual Basic(VBA) 列 A に同じ日が2つが必要です。 1 2023/03/28 07:25
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセル 当番表の作り方 エクセルで土日祝日を除いた、平日のみの当番表を作りたいです。 カレンダーま
Excel(エクセル)
-
エクセルで作成したカレンダーに「当番の名前」を自動的に入力する方法をお
その他(Microsoft Office)
-
Excelで当番表の作成(休み考慮、完全ランダム)
Excel(エクセル)
-
-
4
VLOOKUP関数を使い掃除当番表を作る
その他(Microsoft Office)
-
5
エクセルで旗当番表を作っています あとひといきなんですができません
Excel(エクセル)
-
6
Excelにて年間の当番表作成したい
Excel(エクセル)
-
7
エクセルで当番表を作成したいです。
Excel(エクセル)
-
8
仕事のシフトを組むときに、シフトが同じになる回数を均等にしたいんですが
Excel(エクセル)
-
9
エクセルで少し複雑な当番表を作成したい。
Excel(エクセル)
-
10
エクセルの当番表を作っていますが教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
MicrosoftOfficeの1ユーザー2...
-
MicrosoftOffice2019なんですが、
-
Excel 日付を比較したら、同じ...
-
Microsoft365の「お支払いを更...
-
ウィンドウィズ メモ帳で日付だ...
-
Excelで空白以外の値がある列の...
-
エクセルのシフト表を簡単にGoo...
-
理由を教えてください。
-
VBA
-
web上にあるエクセルをショート...
-
バソコンが二台とも壊れ後換装...
-
【マクロ】文字を1文字づつ、...
-
Excelのセルの重複チェックが出...
-
マイクロソフト 一時使用コード...
-
office365って抵抗感ないですか?
-
Outlook 電源OFFの受診の仕方
-
エクセルで例えば、A1に㈱ベ...
-
自分の専門分野の仕事。初見で...
-
excelの画面のグリッド線の消滅。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
会社PCのメールが更新されない
-
マイクロソフト 一時使用コード...
-
Office 2021 Professional Plus...
-
エクセルで例えば、関数を使っ...
-
Microsoft Formsの「個人情報や...
-
1つのPCに「Excel 2010」「Exc...
-
エクセルで例えば、A1に㈱ベ...
-
理由を教えてください。
-
エクセルでXLOOKUP関数...
-
マイクロソフト オフィスについて
-
VLOOKUP関数について
-
teams設定教えて下さい。 ①ビデ...
-
Googleのスプレッドシートでシ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft365で写真をアルバム...
-
Outlook で宛先が複数の場合の人数
-
Excel テーブル内の空白行の削除
おすすめ情報