[[20050911163659]] 『毎月の特定曜日と特定日を抽出する方法』(たまご王子) ページの最後に飛ぶ

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

 

『毎月の特定曜日と特定日を抽出する方法』(たまご王子)
初めまして、関数初心者です。
ウィンドゥズ2000、エクセル2000を使っています。
教えていただきたいのです。
毎月、水・金曜と、16日(この日は給料日で、土曜にあたれば金曜、日曜にあたれば月曜に移動します)を抽出して表を作成したいのですが、関数でこの抽出をすることができますか?年度単位で該当日を1年分抽出したいのです。
「C2」に年月(2005/4)を入力し、「C3」から横に延びるように水・金曜・給料日を抽出したいと思っています。その月の該当が無くなった時点で、翌月を横に作っていくつもりです。よろしくお願いいたします。

 レスが付かないので、たたき台程度って事で、、、
 多分、外してると思います。。。

      B     C     D        E         F        G        H        I        J       K
 2 	2005/4									
 3 水・金	1	6	8	13	15	20	22	27	29	
 4 給料日	15									
 C3 =IF(31-SUM((TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="水")+(TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="金"))+COLUMN(A1)>31,
  "",DATE(YEAR($C$2),MONTH($C$2),DAY(SMALL(((TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="水")+(TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="金"))*ROW($A$1:$A$31),
  31-SUM((TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="水")+(TEXT($C$2+ROW($A$1:$A$31)-1,"aaa")="金"))+COLUMN(A1)))))
 ↑配列数式ですので、Ctrl + Shift + Enter で確定。
   { 数式 } になればOK。
 右にコピペ

 C4 =IF(TEXT(DATE(YEAR($C$2),MONTH($C$2),16),"aaa")="土",DATE(YEAR($C$2),MONTH($C$2),15),
  IF(TEXT(DATE(YEAR($C$2),MONTH($C$2),16),"aaa")="日",DATE(YEAR($C$2),MONTH($C$2),17),
  DATE(YEAR($C$2),MONTH($C$2),16)))

 とりあえず、一月分のみです!

 ただ、かなり無理やりかも・・・
 (キリキ)(〃⌒o⌒)b

 別案!(こっちのほうが良いかも)
       C           D        E              
 4 日付	         曜日	条件
 5 2005/4/1	金	1
 6 2005/4/2	土	0
 7 2005/4/3	日	0
 :    :            :       :

 仮に、C4 に 日付
    D4 に 曜日
    E4 に 条件 と入力

 C5 に、2005/4/1 と入力。
 D5 に、 =TEXT(C5,"aaa") と入力。
 E5 に、 =IF(OR(D5="水",D5="金"),1,IF(IF(TEXT(DATE(YEAR(C5),MONTH(C5),16),"aaa")="土",15,
  IF(TEXT(DATE(YEAR(C5),MONTH(C5),16),"aaa")="日",17,16))=DAY(C5),1,0))
 C5からE5 を、下に必要な日まで、フィルドラック。
 データ → フィルタ → オートフィルタ で、
 条件のところの ▼をクリック。
 1 を指定。
 出てきたもの(日付)をコピー
 C3 にセルを指定し
 編集 → 形式を選択して貼り付け
 行列を入れ替えるにチェックを入れて、OK。
 書式設定で、d に設定。
 D2 =IF(D3="","",IF(DAY(C3)>DAY(D3),TEXT(D3,"yyyy/m"),""))
 横にコピー
 後は、オートフィルタ用に作った、C4 から要らない所を削除。

 (キリキ)(〃⌒o⌒)b


キリキさん、さっそくのアドバイスありがとうございます。
試してみて、2度目の書き込みでやってみようと思います。
明日会社でさっそく使ってみます。

コメント返信:

[ 一覧(最新更新順) ]


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