[[20050217142517]] 『第何週、月初月末』(himawari) ページの最後に飛ぶ

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

 

『第何週、月初月末』(himawari)

また教えてください。

     A         B     C    D
 1  2005/2/17   2005/2/1      2005/2/28
 2 第1週   2/1    〜   2/5
 3 第2週   2/6    〜   2/12
 A1に、日付を手入力すると、(例として、2005/2/17とします)
 B1にその日付の月初、C1に月末
 A2に第1週、 B2に 2/1 C2に〜、Dに2/5
 A3に第2週 B3に 2/6 C3に〜、D3に2/12
   :
   :
 と、表示させたいのですが、どのようにすればいいのでしょうか。
 よろしくお願いいたします。


 こちらがなんとなく似ているような・・・。
[[20050207153436]]『月の週単位の区切り』(EVO7)

 参考になりますかね(^_^A;
 やってみました。
	 [A]	 [B]	 [C]	 [D]
 [ 1]	2005/1/1	2005/1/1	2005/1/31	
 [ 2]	第1週	1/1	〜	1/1
 [ 3]	第2週	1/2	〜	1/8
 [ 4]	第3週	1/9	〜	1/15
 [ 5]	第4週	1/16	〜	1/22
 [ 6]	第5週	1/23	〜	1/29
 [ 7]	第6週	1/30	〜	1/31

 A2=IF(B2<>"",ROW()-1,"") として表示形式を 第0週 以下A7までコピー				
 B1=A1-DAY(A1)+1				
 C1=DATE(YEAR(A1),MONTH(A1)+1,0)				
 C2=IF(D2="","","〜") としてC7までコピー				
 B2=B1				
 B3=IF(C2="","",IF(DAY(C2+1)<DAY(C2),"",C2+1)) としてB7までコピー
 D2=IF(B2="","",MIN($C$1,B2+7-WEEKDAY(B2))) としてD7までコピー	

 (川野鮎太郎)

 失礼します。
 川野さんが過去ログで紹介して下さっている数式と、自分が以前作った月報の数式を組み合わせて考えていたので載せさせて下さいー。

 	A	B	C	D
 1	2005/1/17	2005/1/1		2005/1/31
 2	第1週	2005/1/1	〜	2005/1/1
 3	第2週	2005/1/2	〜	2005/1/8
 4	第3週	2005/1/9	〜	2005/1/15
 5	第4週	2005/1/16	〜	2005/1/22
 6	第5週	2005/1/23	〜	2005/1/29
 7	第6週	2005/1/30	〜	2005/1/31

 B1 =DATE(YEAR($A$1),MONTH($A$1),1)
 D1 =DATE(IF(MONTH(A1)=12,YEAR(A1)+1,YEAR($A$1)),IF(MONTH(A1)=12,1,MONTH($A$1)+1),1)-1
 A2 =IF(B2="","","第1週") としてA7まで下方コピー
 C2 =IF(D2="","","〜") としてC7まで下方コピー
 B2 =IF(A1="","",B1)
 B3 =IF($A$1="","",D2+1) としてB5まで下方コピー
 B6 =IF(ISNUMBER(D5),IF((D5+1)<=$D$1,D5+1,""),"") としてB7にコピー
 D2 =IF($A$1="","",B2+7-WEEKDAY(B2)) としてD5まで下方コピー
 D6 =IF(B6="","",IF(D5+7<=$D$1,D5+7,$D$1)) としてD7にコピー

 よく見れば、川野さんの数式とほとんど変わらないですね…。お邪魔致しました。
 (かや)


 いえいえ、気にしないでください^^
 ひとつだけ気になったのは・・・>A2 =IF(B2="","","第1週") の部分ですけど、
 下にコピーしても第1週のままかな・・・と(^_^A;
 (川野鮎太郎)

 あ。そうですね。その通りです…。<"第1週"部分
 …本当恥ずかしい限りです。

 書き込ませて頂いた後で、川野さんの数式との相違点をひとつずつ確認しておりました。
 DATE関数の「月」に12より大きい数値を指定した場合、「日」に0を指定した場合、大変勉強になりました。
 「日」に該当月の最終日より大きい数値(35など)を指定した場合はヘルプで確認が出来たのですが…。

 という訳で自分の挙げた式は本当に本当に恥ずかしい限りなんですが、自分への戒めの為に修正もせずおいておきます。
 himawariさん、川野さんの挙げておられる式をお使い下さい。お邪魔しました。

 あー。本当に眼から鱗でした。
 前に自分が作って使っていたファイルの数式も直しておかなきゃー…(笑)
 (かや)

 ごめんなさい。週末は仕事が休みで、今朝職場で試させてもらいました。
 遅くなって申し訳ありません。
  
 川野さん、いつもいつもありがとうございます。私の質問には、
 毎回ご登場いただいて、わかりやすく教えていただき、
 感謝しています。
 かやさんも、ありがとうございます。川野さんに教えていただいたのも、
 かやさんが考えて下さったのも、試させてもらいました。
 私は、まだまだ初心者なので勉強することがたくさんですので、
 とても助かりました。ありがとうございました。(himawari)

コメント返信:

[ 一覧(最新更新順) ]


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