[[20080403122301]] 『7曜形式のカレンダーを作成』(まんねん) ページの最後に飛ぶ

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

 

『7曜形式のカレンダーを作成』(まんねん)
 7曜形式のカレンダーで16日から翌月の15
 までのを作成したいのですが、よろしくお願いします。


 過去ログなど。。。ご参考にどうぞ。
[[20071008080308]]『16日から翌月の15日までの万年カレンダーを作りたいのですが分からないのでお願いします。』(まんねん)
[[20070617170302]] 『万年カレンダーについて』(まんねん)
http://www.geocities.co.jp/HeartLand-Yurinoki/1938/sitiyo-reki.html
(かなれっと)

(かなれっと)さん
 縦型とか横型の作成はできるおですが、
 7曜形式のカレンダーの場合はどのようにしたらよいですか。
(まんねん)

 かなれっとさんご紹介の↓がそうですが??

http://www.geocities.co.jp/HeartLand-Yurinoki/1938/sitiyo-reki.html
 (とおりすがり)

 最後のリンクはご覧になりました? とおりすがりさんが再度掲載してくださってますが。
 参考になると思うんですけどもん。
 それでもわからなければ、具体的に希望するデータの配置を記載して、ここの計算式がわからない、
などと質問されてはいかがでしょうか。
   A    B    C  
1 
2  
3 
 ↑みたいにセル番地がわかるように^^(もちろん、データもですよ〜)
(かなれっと)

(かなれっと)さん(とおりすがり)さん
 素人なもので何処にどのように式を入れてよいか
 が分かりません。
 A1に年C1に月
  
   A  B  C  D  E  F  G
 1 年   月
 2
 3日 月 火 水 木 金 土
 4
 5
 6
 7
 の感じに作りたいのでお願いします。(まんねん)


 レイアウトが違うけど。

 B1に年号、E1に月が入るとし、
 B2:H2に曜日(日 月 火 水 木 金 土)を入れ。

 B3
 =IF(TEXT(WEEKDAY(DATE($B$1,$E$1,16)),"aaa")=B2,DATE($B$1,$E$1,16),IF(A3="","",A3+1))
 これをH3までフィル。

 B4
 =H3+1
 これをB8までフィル。

 C4
 =B4+1
 これをH4までフィル。
 さらに、H8までフィル。

 後の細かい調整は、適当に自分で処理してください。
 BJ


BJさま
 何かうまくいきません
 (まんねん)


 どこがどううまくいかないのでしょう?
 回答者にはまんねんさんのPCは見えません。
 (とおりすがり)

BJさま とおりすがりさま
 何かできました。ありがとうございました。
 まんねん


 あ、1引くの忘れてました。BJ
 =IF(TEXT(WEEKDAY(DATE($B$1,$E$1-1,16)),"aaa")=B2,DATE($B$1,$E$1-1,16),IF(A3="","",A3+1))

 	A	B	C	D	E	F	G
1	29		2				
2	日	月	火	水	木	金	土
3						16	17
4	18	19	20	21	22	23	24
5	25	26	27	28	1	2	3
6	4	5	6	7	8	9	10
7	11	12	13	14	15		
8							
2007		2				
日	月	火	水	木	金	土
=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),"")	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(A3="","",A3+1))	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(B3="","",B3+1))	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(C3="","",C3+1))	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(D3="","",D3+1))	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(E3="","",E3+1))	=IF(MOD(DATE($A$1,$C$1,16)-1,7)+1=COLUMN(),DATE($A$1,$C$1,16),IF(F3="","",F3+1))
=G3+1	=A4+1	=B4+1	=C4+1	=D4+1	=E4+1	=F4+1
=G4+1	=A5+1	=B5+1	=C5+1	=D5+1	=E5+1	=F5+1
=G5+1	=A6+1	=B6+1	=C6+1	=D6+1	=E6+1	=F6+1
=IF(DAY(A6+7)>15,"",G6+1)	=IF(DAY(B6+7)>15,"",B6+7)	=IF(DAY(C6+7)>15,"",C6+7)	=IF(DAY(D6+7)>15,"",D6+7)	=IF(DAY(E6+7)>15,"",E6+7)	=IF(DAY(F6+7)>15,"",F6+7)	=IF(DAY(G6+7)>15,"",G6+7)
=IF(DAY(A7+7)>15,"",G7+1)	=IF(DAY(B7+7)>15,"",B7+7)	=IF(DAY(C7+7)>15,"",C7+7)

 (3z)				
曜日のしたの行の数式および下行の数式が曜日とずれていますが スペース区切りで 次の曜日です。 

コメント返信:

[ 一覧(最新更新順) ]


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