[[20181123082807]] 『休日以外の当番表』(ニシポン) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『休日以外の当番表』(ニシポン)

申し訳ございません、教えてください。

A列には日にち、B列には曜日、C列には当番名

A列   B列   C列   
1    木    A
2    金    B
3    土    C
4    日
5    月    D
6    火    E
7    水       会社休
8    木    A
9    金       会社休
10    

カレンダーは縦型で、当番は5名が会社休日以外で順番に表示されるようにしたいです。
インターネット上で調べ試しましたが、結果が思ったようにいきません。
関数でどう表したらよいかわかりません。
教えて頂きたいです。

< 使用 Excel:unknown、使用 OS:unknown >


 気が付いた点だけで恐縮ですが
会社休のパターンが、ご説明の内容では判断できません。
金曜、水曜が休みなら2日、9日の金曜日情報が相違しています。
日曜は表示が空白ですがお休みですよね。?
祝祭日の扱いは無視でよいのでしょうか。
VBAではだめですか。  ^^;
エクセルとOSの種類、バージョンもご記入
いただくと、多数アドバイスが有るかもしれませんです。
でわ
(隠居じーさん) 2018/11/23(金) 10:15

 結果だけ言われてもね。

 どこを数式でするん?

 C列だけ?(ABCDEの繰り返しなの?)

 それともC,D列も?

 もしやA〜D列、全部?

 数式にする前にどこまでデータとして存在するのか?
 ルールはどうなのか?
 状況とかわけわからんので回答付きにくいよ。
(GobGob) 2018/11/23(金) 10:55

隠居じーさん様 日、祝日は休みですが、土曜日が不定休のため、他の場所に祝祭日の情報を加味したいです。エクセルは2013です。VBAがわからないため、関数でお願いしたいです。

(ニシポン) 2018/11/23(金) 17:39


GobGob様 C列に祝祭日を除いて、5名の名前が順番に表示されるような数式を教えて頂きたいです。
(ニシポン) 2018/11/23(金) 17:48

 すみません、関数!苦手なもので。。。詳しい方の回答をお待ちください。
GobGob さんもご指摘ですが
>>ルールはどうなのか?

 会社休のパターンがわかりません。
今少し詳細を回答者の方が分かるように説明されると、
多数回答が有ると思います。
今のご説明のままだとVBAでもどぉしてよいか分かりません。
でわ
m(_ _)m
(隠居じーさん) 2018/11/23(金) 17:55

隠居じーさん様 

会社休ですが、祝日・日曜日は休み。土曜日は隔週というのが基本的な休みです。
実際の休みを添付してみました。他に関してはうまく説明出来ないため、
もっと自分で数式7を考えます。

11/3(土) 文化の日
11/4(日)
11/10(土)
11/11(日)
11/18(日)
11/23(金) 勤労感謝の日
11/25(日)
12/2(日)
12/8(土)
12/9(日)
12/15(土)
12/16(日)
12/22(土)
12/23(日) 天皇誕生日
12/24(月) 振替休日
12/29(土) 
12/30(日)
12/31(月)

(ニシポン) 2018/11/23(金) 20:02


 エクセルのバージョンは何ですか?

 バージョンによって使える関数が違うんですけど・・

(半平太) 2018/11/23(金) 20:32


(ニシポン) 2018/11/23(金) 17:39によれば
>>エクセルは2013です。
みたいですよ。
m(_ _)m

(隠居じーさん) 2018/11/23(金) 21:08


 >>>エクセルは2013です。 
 >みたいですよ。 

 あっ、すみません。そこ読んでなかったです。 m(__)m 

(半平太) 2018/11/23(金) 21:24


 1.G列に1行目から休日を入れる(日曜日は絶対的な休日なので、書かなくても構わない)
 2.D1セルにAの当番過去実績日 を入れる(実績ならいつの日でもよく、以後更新する必要はない)
 3.A1セルに年度を書く
 4.A2セルに月を書く
 5.A3セル以下に1から連番を書いておく

 (1) B3セル =IF(A3="","",DATE($A$1,$A$2,A3))
 (2) C3セル =IF(A3="","",IF(WORKDAY.INTL(B3-1,1,11,G:G)=B3,MID("ABCDE",MOD(NETWORKDAYS.INTL($D$1,B3,11,G:G)-1,5)+1,1),"休"))
 下にコピー

 B3セル以下は「日付シリアル値」になっているので、好みの表示に設定する(→セルの書式[表示形式]から設定する・・曜日だけならaaaとする)

 <結果図>
 行 __A__ _______B_______ ________C________ ____D____ _E_ _F_ _______G_______ ______H______
  1 2018  年              Aの当番過去実績日 2018/11/1         2018/11/3(土)   文化の日     
  2   11  月              当番順                              2018/11/4(日)                
  3    1  2018/11/1(木)      A                                2018/11/10(土)               
  4    2  2018/11/2(金)      B                                2018/11/11(日)               
  5    3  2018/11/3(土)      休                               2018/11/18(日)               
  6    4  2018/11/4(日)      休                               2018/11/23(金)  勤労感謝の日 
  7    5  2018/11/5(月)      C                                2018/11/25(日)               
  8    6  2018/11/6(火)      D                                2018/12/2(日)                
  9    7  2018/11/7(水)      E                                2018/12/8(土)                
 10    8  2018/11/8(木)      A                                2018/12/9(日)                
 11    9  2018/11/9(金)      B                                2018/12/15(土)               
 12   10  2018/11/10(土)     休                               2018/12/16(日)               
 13   11  2018/11/11(日)     休                               2018/12/22(土)               
 14   12  2018/11/12(月)     C                                2018/12/23(日)  天皇誕生日   
 15   13  2018/11/13(火)     D                                2018/12/24(月)  振替休日     
 16   14  2018/11/14(水)     E                                2018/12/29(土)               
 17   15  2018/11/15(木)     A                                2018/12/30(日)               
 18   16  2018/11/16(金)     B                                2018/12/31(月)               
 19   17  2018/11/17(土)     C                                                             
 20   18  2018/11/18(日)     休                                                            
 21   19  2018/11/19(月)     D                                                             

(半平太) 2018/11/23(金) 22:04


半平太様

ありがとうございました。
凄いの一言です。
今後も困った時に宜しくお願いします。
(ニシポン) 2018/11/25(日) 00:06


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.