表計算一筆書き・・・カレンダー【解答例】

くまぷーさん　こんにちは。

実力試験問題の調子はいかがですか？

お忙しいところだと思いますがよろしくお願いします。

【´･ω･`】:kirさん、お気遣い頂きありがとうございます。

　　　　　　あと、もう少しです。なにせ、仕事が遅いもんで・・・(^^ゞ

---------------------------------------------------------------------------------------

※A1:A3を選択して数式を入力し、Ctrl+Shift+Enterで確定。Ｋ列→11行の順でドラッグして完成
2008年9月限定
58：{=TEXT(39691+INT((ROW()-1)/3)*11+COLUMN(),{"d";"aaa";""})}
55：{=TEXT(39691+(ROW(A3)/3-1)*11+COLUMN(),{"d";"aaa";""})}
51：{=TEXT(39680+ROW(A3)/3*11+COLUMN(),{"d";"aaa";""})}
50：{=TEXT(39680+ROW(A3)*3.7+COLUMN(),{"d";"aaa";""})}
年月違うが図は同じ
48：{=TEXT(445+ROW(A3)*3.7+COLUMN(),{"d";"aaa";""})}
来月表示
64：{=TEXT(EOMONTH(NOW(),0)+ROW(A3)*3.7-11+COLUMN(),{"d";"aaa";""})}

【番外編】七曜カレンダー　基本形：DATE(年,月,1)-WEEKDAY(DATE(年,月,1))+7*(週-1)+曜日
来月：=TEXT(EOMONTH(NOW(),0)-WEEKDAY(EOMONTH(NOW(),0)+1)+7*ROW()+COLUMN()-13,REPT(IF(A11=0,"d","aaa"),E1<>0))
今月：=TEXT(NOW()-DAY(NOW())-WEEKDAY(NOW()-DAY(NOW())+1)+7*ROW()+COLUMN()-13,REPT(IF(B11=0,"d","aaa"),E1<>0))

Comments

[投稿情報: ジョー3]

やはりねーーー、、

構想は同じだが、技術が・・・とほほ、、、
足りなかった。

皆さんすごいなーー

こうそう＆ぎじゅつ・・・まんぱいでね、、

[投稿情報: くまぷー]

何とか７３文字・・・(^^ゞ
後の方になると晒しづらくなるので
今のうち、今のうち・・・

=TEXT(COLUMN()+11*(INT(ROW(A3)/3)-1),CHOOSE(MOD(ROW(),3)+1,"","d","aaa"))

[投稿情報: くまぷー]

・・・と思ってよく見たら３１日があるので

結局は１２５文字か・・・(>_<)

=IF(MOD(ROW(),3)=2,MID("月火水木金土日",MOD(COLUMN()-1+11*ROW()/3,7)+1,1),IF(MOD(ROW(),3)=1,MOD(COLUMN()-1+11*(ROW()-1)/3,30)+1,""))

[投稿情報: ジョー3]

aaa d スペースを　midで頑張ろうと思った
技術のないジョー3、、

やっぱ、、
60台だった（ように思える。）

だから、（50台の声にうなされ）
諦めたのだった。

[投稿情報: ジョー3]

CHOOSE　かーーー

それも脳裏をかすめたが、、、
50台の誘惑に、、、つぶれてしまったなーー。

[投稿情報: くまぷー]

>60台だった（ように思える。）

６０台ならば立派だと思いますが・・・

[投稿情報: y sakuda]

今日は外出していて今帰ってきました。
取り合えず、何も見ずに投稿します。
多分基本コンセプトは皆さん同じだろうな・・・・・

両方とも配列数式です。
固定　Excel52
A1:K3を選択して
=TEXT(974+INT(ROW()/3)*11+COLUMN(),{"d";"aaa";""})
Ctrl+Shift+Enter　その後、右隅をK11までドラッグ

翌月1日から　Excel65
こちらは分析ツールアドインが必要です。
同じくA1:K3を選択して
=TEXT(EOMONTH(NOW(),0)+INT(ROW()/3)*11+COLUMN(),{"d";"aaa";""})
Ctrl+Shift+Enter　その後、右隅をK11までドラッグ

どうしても1文字減らせませんでした^^;

[投稿情報: む印]

私の08年9月限定５１文字２種
あまり褒められない方
Ａ1：Ｋ3・・・｛=TEXT("8/9"+ROW(A6)/3*11+COLUMN(),{"d";"aaa";""})｝

マトモな方
Ａ1：Ｋ3・・・｛=TEXT(39669+ROW(A6)/3*11+COLUMN(),{"d";"aaa";""})｝

翌月対応（アドインなし）８１文字
Ａ1：Ｋ3・・・｛=TEXT(DATE(YEAR(NOW()),MONTH(NOW())+1,INT(ROW()/3)*11+COLUMN()),{"d";"aaa";""})｝

今回は短縮に集中できませんでした＾＾；

[投稿情報: ジョー3]

＞あまり褒められない方
・・・をほめたい気分。
ｓａｋｕｄａさん、、
=TEXT(974+INT(ROW()/3)*11+COLUMN(),{"d";"aaa";""})
同系列では、はやかったですよね、、きっと

[投稿情報: minmax]

いやーkirさんほんと大したものですね～。
循環参照版提示します。
１９００年１月の翌月以降のカレンダー（１１７字）
=TEXT(EOMONTH(0,LEN($A$1)-1)+INT(ROW()/3)*11+COLUMN(),CHOOSE(MOD(ROW(),3)+1,"","d","aaa"))&REPT(" ",LEN($A$1)*(K1>0))
（この式は、１１×１１セル全体を選択してから提示した式をセルA1にコピペしてCtrl＋Enterでお願いします）

現在の日の翌月以降のカレンダー（１２１字）
=TEXT(EOMONTH(NOW(),LEN($A$1)-1)+INT(ROW()/3)*11+COLUMN(),CHOOSE(MOD(ROW(),3)+1,"","d","aaa"))&REPT(" ",LEN($A$1)*(K1>0))
以前のsakudaさんのまねみたいな方法ですが。

[投稿情報:]

>１９００年１月の翌月以降のカレンダー
ううーーーやたか、、

＞　　（１１７字）
なのに、短い。がくっ・・・・・

[投稿情報: minmax]

む印さんの私の８１とは微妙に違いました。何処が違うのかよく分からないくらいでした。

[投稿情報: y sakuda]

いやー、kirさん、む印さんすごいな・・・・
私はとうとうIntはずせなかった・・・・
mixmaxさんのカレンダー良く解析してませんが、これもすごい・・・・・

ついでに配列数式でないのも出して起きます。
固定69　
=TEXT(974+INT(ROW()/3)*11+COLUMN(),CHOOSE(MOD(ROW(),3)+1,,"d","aaa"))
翌月82
=TEXT(EOMONTH(NOW(),0)+INT(ROW()/3)*11+COLUMN(),CHOOSE(MOD(ROW(),3)+1,,"d","aaa"))

[投稿情報: y sakuda]

>以前のsakudaさんのまねみたいな方法ですが。
あれ、私じゃなくてkirさんじゃなかったな？
私もパクリです^^

[投稿情報: minmax]

いつも早いsakudaさんおいでになりませんね～。
では、つなぎでお遊びで作ったやつでも提示しましょうかね。
Ｆ９押しっぱなしでお願いします。７０９文字
=LEFT("■",ISREF(OFFSET($K$11,,MOD(SECOND(NOW()),10)*11) (A2:A10,B11:D11,E2:E10,B1:D1,N:N,O10,P9,W1:AA1,AA2:AA3,Z4,Y5,X6,
W7:W10,X11:Z11,AA10,AI1:AK1,AL2,AH2:AH4,AI5,AJ6:AK6,AI7,AH8:AH10,
AI11:AK11,AL10,AU:AU,AS5:AW5,AW6:AW11,BE1:BG1,BH2,BD2:BD5,
BE6:BH6,BH7:BH11,BD11:BG11,BP1:BR1,BO2:BO5,BP6:BR6,BO10,
BP11:BR11,BS2:BS10,CB1:CB4,CA5:CA8,BZ9:BZ11,CA11:CD11,CD10,
CL1:CN1,CK2:CK5,CO2:CO5,CL6:CN6,CK7:CK10,CO7:CO10,CL11:CN11,
CZ2,CW1:CY1,CV2:CV5,CW6:CY6,CV7:CV10,CZ7:CZ10,CW11:CY11))
+ISREF(OFFSET($E$11,,INT(SECOND(NOW())/10)*11)(N:N,O10,P9,
W1:AA1,AA2:AA3,Z4,Y5,X6,W7:W10,X11:Z11,AA10,AI1:AK1,AL2,AH2:AH4,
AI5,AJ6:AK6,AI7,AH8:AH10,AI11:AK11,AL10,AU:AU,AS5:AW5,AW6:AW11,
BE1:BG1,BH2,BD2:BD5,BE6:BH6,BH7:BH11,BD11:BG11)))
長すぎてかはみ出るので適当に改行入れます。

といっている間にｓａｋｕｄａさんがおいでになってしまいました。

[投稿情報: minmax]

あれ、失敗しました。
再度出直します

[投稿情報: minmax]

７１０字でした。
=LEFT("■",ISREF(OFFSET($K$11,,MOD(SECOND(NOW()),10)*11) (A2:A10,
B11:D11,E2:E10,B1:D1,N:N,O10,P9,W1:AA1,AA2:AA3,Z4,Y5,X6,W7:W10,X11:Z11,
AA10,AI1:AK1,AL2,AH2:AH4,AI5,AJ6:AK6,AI7,AH8:AH10,AI11:AK11,AL10,AU:AU,
AS5:AW5,AW6:AW11,BE1:BG1,BH2,BD2:BD5,BE6:BH6,BH7:BH11,BD11:BG11,
BP1:BR1,BO2:BO5,BP6:BR6,BO10,BP11:BR11,BS2:BS10,CB1:CB4,CA5:CA8,
BZ9:BZ11,CA11:CD11,CD10,CL1:CN1,CK2:CK5,CO2:CO5,CL6:CN6,CK7:CK10,
CO7:CO10,CL11:CN11,CZ2,CW1:CY1,CV2:CV5,CW6:CY6,CV7:CV10,CZ7:CZ10,
CW11:CY11))+ISREF(OFFSET($E$11,,INT(SECOND(NOW())/10)*11) (N:N,O10,
P9,W1:AA1,AA2:AA3,Z4,Y5,X6,W7:W10,X11:Z11,AA10,AI1:AK1,AL2,AH2:AH4,AI5,
AJ6:AK6,AI7,AH8:AH10,AI11:AK11,AL10,AU:AU,AS5:AW5,AW6:AW11,BE1:BG1,
BH2,BD2:BD5,BE6:BH6,BH7:BH11,BD11:BG11)))

今度は大丈夫？

[投稿情報: くまぷー]

おおお、０～５９までの数字が・・・
＼(●o○;)ノ

[投稿情報: minmax]

＞おおお、０～５９までの数字が・・・
日めくりカレンダーはこれと同種のものですので、省略します。
でも、最近、今日何日だったかなと迷うことが多いので、デスクトップに「自動日めくりエクセルカレンダー」おこうかなと思ったくらいです。

[投稿情報: かず]

＞７１０字でした。
なな、なんとっ！！

39680+ROW(A3)*3.7は考え付きませんでした。
で…
{=TEXT(39691+INT(ROW()/3)*11+COLUMN(),{"d";"aaa";""})}
の５４文字です。
CHOOSEを使うと、""が省略できましたが、配列数式では無理でした。

[投稿情報: y sakuda]

minmaxさんようやる^^;
アイデアあってもこんな長い式書けないとオモフ・・・・・・・

[投稿情報: y sakuda]

まだ、出てくる方がいらっしゃるかもしれませんが・・・・
今回は意外に面白かったwww
もろにカレンダーが出てきた時はどうしようかとおもいましたが^^;
後一文字つめられなかったのがなんとも残念・・・・・・

それにしても、minmaxさんは私と同様一文字詰められなかったようですが・・・・
番外編がものすごかった＾＾

[投稿情報: minmax]

>番外編がものすごかった＾＾
問題と全く違ったものなのでちょっと(-_-;)

今回は短くする気力がありませんでした。
その代わり色々遊んでしまいました。
アドイン関数の不思議も色々ありましたし。
ジョー3さんのおっしゃるmidもやろうと思いましたが結局やりませんでした。

最後に、次回はどうなるのでしょう。

[投稿情報: y sakuda]

>次回はどうなるのでしょう。
×２

[投稿情報: ジョー3]

多くの方が、3行選んで入力されたんですね、
気づきませんでした。（ちびっと恥かしいかも＝私）
ＴＥＸＴもやりかけた。
３９？？？＋や
”８／？”＋もやりかけた。
＊３．７は、細かい芸ですよねーー
"=TEXT(974+INT(ROW()/3)*11+COLUMN(),{""d"";""aaa"";""""})
"
どうして、６０９や２４４でないんですか？深い意味に気付かない私？
で、最後に、規定の、
一つのセルに入力した数式を他のセルにコピペすることで
図を描くにはどのセルにどのような数式を入力すればよいか？
それと、3行選んで入力は・・・ちと苦しくもあるが・・・・（あはは）

[投稿情報: くまぷー]

>次回はどうなるのでしょう。
×3

・・・なんて呑気なことを言っていては
いけないのかな・・・(^^ゞ

[投稿情報: くまぷー]

＞どうして、６０９や２４４でないんですか？深い意味に気付かない私？

それどころか、６０９や２４４の
意味もわからない私・・・

[投稿情報: y sakuda]

>974
単に一日が月曜日になる、30日の月の日を探しただけです。
974に書式の日付を適用してみてください。

[投稿情報: ジョー3]

>単に一日が月曜日になる、30日の月の>日を探しただけです。
あはは、、安心しました。

1990/8/31　２４４
1991/8/31　６０９
1992/8/31　９７４
閏年とか、なんか、・・・こうりょとおもた。

[投稿情報: くまぷー]

>974に書式の日付を適用してみてください。

なるほど。サンクスです。

[投稿情報: ジョー3]

＞1990/8/31　２４４
＞1991/8/31　６０９
＞1992/8/31　９７４
うちまちがえだにゃ・・・・
＞1900/8/31　２４４
＞1901/8/31　６０９
＞1902/8/31　９７４