Excel Maniacs

表計算一筆書き・・・【お知らせ001】

さあ、次回の出題者はきっちーさんです。

で、お題だけこっそり、教えちゃいます(^^ゞ

お題は・・・

*

*

*

*

*

*

*

*

*

*

・・・「カリフォルニア・ポピー」で～す！！

・・・出題は明日！！

ワクワク(((o(^。^")o)))(((o("^ 。^)o)))ワクワク

表計算一筆書き・・・皇帝 【解答】

問題はこちらを参照。

【´･ω･`】:以下、sakudaさんからです。

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

皇帝【出題者解答】

今回の回転対称形については、単にカッコイイというだけで出題しただけで、私自身確たる成算が
あったわけではありません。
ただ、イメージとして、第F列と第6行で4分割した場合、（Row()-6)*(Column()-6)の符号が右上と
左下でマイナスになるのを利用すればどうにかなるはずということだけでした。

つまりRowとColumn一組を位置の特定に使用し、後一組で図を描くという考え方です。
最初にやってみたところ、↓のような108文字の長大なものになってしまいました。

=LEFT("●",IF((ROW()-6)*(COLUMN()-6)>=0,OR((COLUMN()-6)^2<=(ROW()-6)^2,ROW()=6),(COLUMN()-6)^2>=(ROW()-6)^2))

この路線を突き詰めた終着点は

=LEFT("●",SIGN((ROW()-6)*(COLUMN()-6))*(COLUMNS(A:$F)/ROWS(1:$6)-1)<=0)

で71文字です。

次にColumnとRow一組で何とかするということを考えると、

（Column()-6)/(Row()-6)　の値と符号を利用せざるを得ません。

これで出来たのが↓の63文字です。

=LEFT("●",IF(ROW()=6,1,MOD(((COLUMN()-6)/(ROW()-6))^0.2,2)<=1))

この味噌は　-2～0　の数を２で剰余を取ると　2-X　つ

まり補数になり、かつ符号が逆転してくれる性質を

利用してます。（ほとんど偶然気が付きました）

これで、ユニオンジャックの時に使用した、エラーを積極的に

利用する手法と組み合わせて59文字にできました。

=LEFT("●",ISERR(0/(MOD(((COLUMN()-6)/(ROW()-6))^0.2,2)>1)))

これで、私の進歩は全くとまってしまったのですが、くまぷーさんの

女王様のヒントから、きっちーさんのATAN2をパクリ50文字を実現しました。

しかし、ExcelではATAN2(0,0)　がどうしてもエラーになってしまうため、

無理やりになってしまい、ちょっとどうかなと言う感じになります。

（ISERRを使えば58文字でできましたが）

＃Excel50は多分きっちーさん、くまぷーさんと同じだと思います。

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

【´･ω･`】:おいら、Exceｌ５０は作っていないんです。(^^ゞ

　　　　　・・・で、また飲み会で今頃（８：００）は駅前の笑笑で飲んだくれているので

　　　　　（先週もですが・・・）、sakudaさんのスペースをお借りして・・・

Excel７２文字

=LEFT("*",(ROW()-COLUMN())*(ROW()+COLUMN()-12)*(6-ROW())*(COLUMN()-6)<1)

三四郎７３文字

=If((Col(A1)-Row(A1))*(Col(A1)+Row(A1)-12)*(Col(A1)-6)*(Row(A1)-6)<1,"*")

　　　　　　・・・どちらも同じ発想です。見やすいところが自慢かな(^^ゞ

　　　　　　さて、その発想ですが、「皇帝」は塗りつぶしがなければ、

　　　　　　「女王陛下の旗」になります。

　　　　　　上式は、「女王陛下の旗」で使ったmode関数の引数を

　　　　　　そのままかけ合わせただけです。

　　　　　　・・・で、それなら「女王陛下の旗」に他に使える式はないかと見てみたところ

　　　　　　きっちーさんの式を見つけてしまったというわけです。

　　　　　　自分で注意書きに・・・「式の内容が分かるような表現は、

　　　　　　答え合わせ（土曜２０時）まで、ご遠慮下さい。」と書いておきながら

　　　　　　不用意な発言をしてしまったことを深くお詫び申し上げます。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　くまぷー

表計算一筆書き・・・皇帝 【問題】

【´･ω･`】:今回は y sakuda さんの出題です。

　　　　　sakuda　さんはVBAの達人です。

　　　　　ご存じの方も多いでしょうがmougの

　　　　　Word VBA掲示板での活躍には目を見張るものがあります。

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

余計なこと一言いったために、出題するはめになっちゃいました^^
で、先週の悪児さんの中禅寺湖は対称ではあるが、回転対称ではない、
そこで回転対称を問題にしてみました。
この問題を通して、回転対称を取り扱う手法が確立すれば、気楽に出題できる
図形のバリエーションがぐっと増えるのではとかんがえています。

できない問題や、できるにしても３００字かかるなんてのじゃ仕方がありませんので
試しに素直にやってみましたところ１００字は切れました。

*

*

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

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

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

*

*

*

*

*

*

*

*

*

お題の【皇帝】ですが、皇帝ペンギンでもベートーベンの

ピアノコンチェルトでもありません。

図の印象が矢車でしたので矢車菊をイメージしました。

矢車菊はドイツ辺りでは皇帝の花という異名が

あるそうですので、皇帝としました。

http://hanabatake.moo.jp/monogatari/haru/yagurumagiku.htm

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

★コメントに関する今回のルール

火曜２０時～木曜１２時
　１．９５未満の文字数そのものは、書かないで下さい。
　２．９５未満を達成した方は、９５未満達成（２種）、という感じで、
　　報告を上げて下さい。
　３．９５以上については、現在９７文字、という感じで、
　　文字数を上げて下さって結構です。
　４．達成文字数とは別に、「最短文字数予想」をしましょう。(^^)(^^)
　　裏付けもなにも無しに、最短予想50字、という感じで、予想して下さい。

＊

＊

木曜１２時以降。
　１．自由に文字数を報告して下さい。
　２．式そのものや、式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、ご遠慮下さい。

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

★表計算一筆書き・・・既出問題と解答