[[20050217142517]]　『第何週、月初月末』（himawari）　>>BOT

『第何週、月初月末』（himawari）

また教えてください。

     Ａ　        Ｂ　    Ｃ　   Ｄ
 1  2005/2/17   2005/2/1      2005/2/28
 2　第１週　　　2/1　　　 ～　　　2/5
 3　第２週　　　2/6　　 　～　　　2/12
 Ａ１に、日付を手入力すると、（例として、2005/2/17とします）
 Ｂ１にその日付の月初、Ｃ１に月末
 Ａ２に第１週、　Ｂ２に　2/1　Ｃ２に～、Ｄに2/5
 Ａ３に第２週　Ｂ３に　2/6　Ｃ３に～、Ｄ３に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)

最初に投稿された日： 2005 年 02 月 17 日

コメント：

[ 一覧(最新更新順) ]

[[20050217142517]] 『第何週、月初月末』（himawari） >>BOT

[[20050217142517]]　『第何週、月初月末』（himawari）　>>BOT