Excel Maniacs

表計算一筆書き・・・小田代湖 【回答】

【´･ω･`】:今回は悪児さんの出題でした。くまぷーの「田園」と表示させるものは

　　　　　ほとんど同じなのに難易度はかなり高くなっていました。

　　　　　いやいや、本当に面白い！！さて悪児さんから、下のような

　　　　　メッセージを頂いております・・・悪児さん、今回は本当にありがとうございました。

            ※問題はこちらを参照。

            *********************************************************************************

ジョー3の衝撃的なExcel62宣言で、出題者悪児は完敗宣言を出しました。(^^)ゞ

ヒントから、Excel62を再現することができましたが、余計その素晴らしさに

圧倒されています。(^^)(^^)

とゆーわけで、Excel62の発表は、ジョー3に、そして、三四郎62は

解答者悪児にお任せするとして、とりあえず、出題者悪児が、出題時に

作成していた解答です。

標準解答（同じ文字数のものをいくつか作ったのですが三Exそれぞれ、１つずつ）。

三四郎77
=If(Row(C3) MOD 4*(Col(C3) MOD 4)+((Row(A1)-6)^4+(Col(A1)-6)^4>600),,"*")

Excel83
=IF(MOD(ROW(G7),4)*MOD(COLUMN(G7),4)+(MOD(ROW(),10)=1)+(MOD(COLUMN(),10)=1),"","*")

黒魔術解答（これで結構持つだろう、と思ったのですが・・・）

三四郎71
=If(Fp(Row(C3)/4)*Fp(Col(C3)/4)+((Row(A1)-6)^4+(Col(A1)-6)^4>600),,"*")

Excel77
=IF(MOD(ROW(C3),4)*MOD(COLUMN(C3),4)+((ROW()-6)^4+(COLUMN()-6)^4>600),"","*")

その後、解答者悪児は、アレ（LCM）を使って、、三四郎71は三四郎70に、

Excel77はExcel75に、減量したようです（ただし、Excelは式を作っただけで、

動作確認していません）。

なお、解答者悪児の解答は、

8:10に↓にアップされるようです。(^^)ゞ

http://akuji.justblog.jp/blog/

表計算一筆書き・・・小田代湖【問題】

【´･ω･`】:さて、今回の「小田代湖」は悪児さんの出題だ。

　　　　　みんな、覚悟して欲しい。

　　　　　さて、例によって取りかかり所が

　　　　　わからないという方は是非、下記を参照して欲しい。

　　　　　だいたいのところはわかるはずだ。

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

*

*

*

【問題】セルを利用して下のような図を描きたい。

　　　　一つのセルに入力した数式を他のセルにコピペすることで

　　　　図を描くにはどのセルにどのような数式を入力すればよいか？

**

3

*

*

*

*

*

*

一回りちっちゃい「田」です。(^^)ゞ

もちろん、B2:J10にコピペ、ってのは、

なし

なしですよ～～(^_^)(^_^)/~　　（悪児さんより）

※コメント即OK。セルの色は関係なし。

※数式は10/20　（土）の午後８時までご遠慮を。

表計算一筆書き・・・交響曲第６番 田園 【回答】

問題はこちらを参照。

(●`ε´●)：おれもやってみたよ。田の字を作るためには１行目、６行目、１１行目、

　　　　　　１列目、６列目、１１列目にアスタリスクを表示すればいいわけだから・・・

　　　　　　=If((Col(A1)-1)*(Row(A1)-1)*(Col(A1)-6)*(Row(A1)-6)*(Col(A1)-11)*(Row(A1)-11),"","*")

　　　　　　・・・これで８５文字だ。どうだい？

【´･ω･`】:正解だ。きっちりと下でした講習を理解している。バッチリだよ！！

(●`ε´●):この式をもう少し減量するにはどうしたらいい？

【´･ω･`】:そうだな・・・。IN　と　配列を使って下のようにしてもいい。

　　　　　=If(Col(A1) IN {1,6,11} OR Row(A1) IN {1,6,11},"*","")

　　　　　これで５４文字だ。さらに減量するには三四郎ではIF文の引数を省略できるので

　　　　　偽の場合の引数を省略すれば・・・

　　　　　=If(Col(A1) IN {1,6,11} OR Row(A1) IN {1,6,11},"*")

　　　　　・・・となる。これで５１文字だ。

(●`ε´●):そう言えばこのことは悪児さんのコメントにあったな。

　　　　　　さて、くまぷー。おまえの回答を見せてもらおうか？

＊

【´･ω･`】:Excelでは３７文字が最短のようだが、出題時には気がつかず

　　　　　４１文字が最短だと思っていた。下の図を見てくれ。基礎講習の

　　　　　基本数式の作り方（３）でつかったもの同じ図だ。

*

*

*

*

*

*

*

(●`ε´●):十字架でつかったものだな。

【´･ω･`】:うん、田の字はこの十字に、周囲に口の字を加えたものだ。

　　　　　十字の所の数字は全て０，そして周囲は0,5,10,15,20,25,-5,-10,

              -15,-20,-25だ。

(●`ε´●):お、わかったぞ。５の倍数と０のセルにアスタリスクを表示させればいいんだ！！

　　　　　　つまり・・・

　　　　　　=IF(OR((ROW()-6)*(COLUMN()-6)*MOD((ROW()-6)*(COLUMN()-6),5)),"","*")

　　　　　　・・・これで68字。どうだ？！

【´･ω･`】：甘いな。０は５の倍数だから、別に考える必要はないよ。

　　　　　　従って・・・

　　　　　　=IF(MOD((ROW()-6)*(COLUMN()-6),5),"","*")

　　　　　　これで４１文字だ。

(●`ε´●):なるほど。

【´･ω･`】:というような筋書きを当初は考えていました。しかし、悪児さん、きっちーさんの

　　　　　より短い３７文字の手が・・・というコメントからようやく、３７文字の手を見つけました。

　　　　　しかし、３７文字の回答は独力では絶対に見つからなかったと思います。

　　　　　ですから、３７文字の回答発表は悪児さんかきっちーさんにお願いしようと

　　　　　思います。よろぴく。

(●`ε´●):とか何とか言って、３７文字の回答が見つからなかったんじゃないのか？

【´･ω･`】：うーん、じゃあ、そう思われるのも癪だから、３８文字の回答をUPしておこう。

　　　　　　この式には、３７文字版の核となるものと同じものが、使われている。

　　　　　　見る人が見ればわかるはずだ。

　　　　　　=LEFT("*",LEN(ROW(E5)*COLUMN(E5)/5)<3)

＊

＊

＊

【´･ω･`】:それでは次に三四郎を。三四郎では３１文字が最短となるようだが

　　　　　　こちらは２通りつくることができた。悪児さんはどうやらModを

　　　　　　使っているようなので使わない手を紹介しよう。A1に・・・・

　　　　　　=If(Fp(Row(E5)*Col(E5)/5),,"*")

　　　　　　これで３１文字だ。

(●`ε´●):おい、よくわからないぞ！解説しろ！

【´･ω･`】:OK。何をやっているかは、条件式の内側から見ていけば一目瞭然だ。

　　　　　　まず、一番内側のRow(E5)*Col(E5)から・・・A1に=Row(E5)*Col(E5)と

　　　　　　入力しK11までコピペしたのが下図だ。

*

*

*

*

*

*

*

(●`ε´●):なんだこの数字は？！

【´･ω･`】:気づかないかい？では田の字の部分に色をつけてみようか。

*

*

*

*

*

*

*

(●`ε´●):おおおおお、田の字部分は５の倍数か！！

【´･ω･`】:そう。だから次に５でわると・・・

　　　　　（下は=Row(E5)*Col(E5)/5）　

　*

*

*

*

*

*

(●`ε´●):田の字の部分だけが整数になるわけか。

【´･ω･`】:うん。ここで三四郎特有のFp関数を使う。

(●`ε´●):何だ、それは？

【´･ω･`】：Fp関数は数値の小数部をとりだす。

　　　　　従って・・・

　　　　　=Fp(Row(E5)*Col(E5)/5)

　　　　　・・・をコピペすると・・・

*

*

*

*

*

*

*

(●`ε´●):なるほど、田の字の部分が０となるわけか。

【´･ω･`】:そう。で、IF文の条件式では０は偽を示すので

　　　　　=If(Fp(Row(E5)*Col(E5)/5),,"*")

　　　　　とすればよい。

(●`ε´●):わかったよ。おもしろいな。

【´･ω･`】:さて、みなさんの回答は如何に？答が見つからなかった人も

　　　　　気楽にコメントしてくれるとうれしいです。(^｡^)

　　　　　それでは、みなさん、ぼちぼち感想戦をはじめましょうか。