Excel Maniacs

エクセル・コンテスト・・・くまぷー、腕試しA轟沈す(^^ゞ

いや～、やってしまいました。(^^ゞ

日経PC２１の表計算大会の腕試し部門に初参加したのですが

見事に間違っちゃいました。(^^ゞ

「割引後の価格を計算して合計する」という問題だったのですが・・・

問題をよく見ると「１円単位を切り捨て、１０円単位とします。」と

明記されていたのですが、この文言を見逃してしまいました。(^^ゞ

腕試しA・・・爆死です。(^^ゞ

エクセル・コンテスト・・・初参加

　たった今、腕試しの３問を送ってしまいました。

うれし恥ずかしの初参加です。特に変わったことは

していません。(^^ゞ

　賞を取る自信？・・・ （￣＾￣）ありません

エクセル・コンテストQ3（表計算大会）

　『買い忘れに注意せよ！「本日発売」の雑誌は？』ということで

「今日の日付」に応じた週刊誌と月刊誌を表引きするという

問題です。雑誌の中には「男のVBA」なんていう泣かせるものもあり

ほんとに発売されたら、どんな内容なのかと速攻で

買ってしまいそうです。(^^ゞ

　この「男のVBA」っていったい誰がネーミングしたんだろう。

是非、本当に田中さんに執筆していただきたいものです。

雑誌でなくて、単行本だとしたら価格３，０００円までなら

中身を見ないで、すぐ買っちゃいます！！(^o^)

エクセル・コンテストQ2（表計算大会）

　さて次はQ2です。これが今回の表引き問題です。

「駅伝のチームを一発検索。大学名でも選手名でもOK」という

ことで大学名または選手名をキーワードにして、大学名と1区から

5区までの５名の選手名を表示させるという問題です。

普通ならば・・・

１．大学名、区間名の２つをキーワードにして選手名を

　　検索する。

２．選手名をキーワードにして、大学名と区間名を

　　検索する。

・・・ということになるのでしょうが、それでは芸がないと

いうことなのかもしれません。

くまぷーとしてはこのQ2が一番、手に合いそうです。

おそらくこの問題が一番、いろいろな数式が考えられそうです。

如何にスマートな数式を作るかが、入賞レベルに入るか否かの

分かれ目になりそうです。(^O^)

　でも、スマートな数式を作ることにおいてはここの常連さんたちは

もの凄い執念を燃やすし、その他にもちょっと考えただけで

あの人、この人と何人も頭に浮かんでくるし・・・

やっぱり、きびしいなぁ････････

　

エクセル・コンテスト・・・Q1

エクセル・コンテスト２００８の問題が発表になりました。

　Q1は名刺の値段を求める問題です。もちろん、ある一定の枚数を

越えると1枚当たりの単価が変わります。今回の問題では単価の

変動が５０枚を越えたときの1段階なので、この条件によって

数式が複雑化することはないでしょう。おそらく３題の中では

もっとも簡単な問題でしょう。「腕試し」から「腕自慢」にステップアップ

しようという応募者にはおあつらえ向きの問題とだと思います。

　しかし、「表計算一筆書き」の常連さんには（要求を

満たす解答を作るのは）物足りないのではないでしょうか。

　そこで、この問題をアレンジしてここの常連さん向きにするには、

例えば・・・

１．１枚当たりの単価が変動するポイントを複数にする。

２．オリジナルの問題では名刺のタイプによって変わるのが

　　基本料金だけなのですが１枚当たりの単価が変動する基準枚数も

　　名刺のタイプによって変える。

３．他の条件を増やす。例えば特急料金の割り増しなど・・・。

でも、ただ条件を増やして問題を複雑にしても面倒になるだけで

面白くなるわけではないからなぁ・・・。問題を作るって本当に

難しいんですよ。そういう意味でも田中さんは１０年以上も・・・

本当に頭が下がります。

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

※コメントのルール

　エクセル・コンテストの締切が２００８年１月１５日です。

解答そのものや解答の内容が分かるような表現は１月１６日まで、

ご遠慮下さい。

表計算一筆書き・・・卍固め【解答】

問題はこちらを参照。

いやあ、ぜんぜんダメでした(^^ゞ

さっぱりです。(^^ゞ

三四郎：なんと１３０文字！！

=If((Col(A1)=6)+(Row(A1)=6)+(Col(A1)<6)*(Row(A1)=1)+(Row(A1)<6)*(Col(A1)=11)+(Row(A1)>6)*(Col(A1)=1)+(Col(A1)>6)*(Row(A1)=11),"*")

素直に条件をひろっていっただけです。

とりえと言えば考え方が超シンプルなところ・・・(^^ゞ

エクセル：Areas系（69文字）

=LEFT("*",ISERR(ROW(A1 ($A$2:$E$5,$B$7:$E$11,$G$7:$K$10,$G$1:$J$5))))

これも、基本通りです。(^^ゞ

かっこいい解法はみなさんにお任せです。(^^ゞ

エクセル・コンテスト

今回から日経PC２１表計算腕自慢大会の名前がエクセル・コンテストに

変わりました。三四郎も１・２・３も課題ソフトから外されてエクセルだけに

なったのだから、まあ、そうなのかなというところです。

　さて年末はこの大会で、というファンも多いので

問題を肴にあれこれと騒げたら、うれしいです。

宜しくお願いいたします。

※コメントのルール

　エクセル・コンテストの締切が２００８年１月１５日です。

解答そのものや解答の内容が分かるような表現は１月１６日まで、

ご遠慮下さい。

卍固め・・・【問題】

【´･ω･`】:暫くお休みにしようかと思ったけど熱心なファンのリクエストに

　　　　　　お答えして・・・

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

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

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

*

*

*

*

*

*

*

*

*

*

*

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

★今回のルール

Areas系の回答と非Areas系の回答に分けます。

コメントにはAreas系か否かを明記してください。

Areas系：

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

非Areas系：

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

＊

＊

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

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

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

ダイアモンド・クロス・・・【解答】

問題はこちらを参照。

Excel６０文字は極々自然体で・・・

=LEFT("*",OR(COLUMNS(A:$F)+ROWS(1:$6)=7,COLUMN()=6,ROW()=6))

三四郎６２文字、これも同じく自然体・・・

=If(Cols(A1:$F6)+Rows(A1:F$6)=7 OR Col(A1)=6 OR Row(A1)=6,"*")

さてさて、みなさんのはどんなんかいな・・・

ダイアモンド・クロス・・・【問題】

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

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

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

*

*

*

*

*

*

*

*

*

*

*

*

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

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

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

＊

＊

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

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

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

表計算一筆書き・・・予告００３

【´･ω･`】:タイトルは「ダイアモンド・クロス」だ！！

　　　　　　Areasでやれるもんなら、やってみて欲しい！！

　　　　　　（できないことはないけどね・・・）

胡椒は小粒で・・・：中禅寺湖シリーズⅡ【解答】

問題はこちらを参照。

【´･ω･`】:悪児さん、忘れちゃったのかな？解答の原稿がこないので・・・

　　　　　　代理で解答発表するしかないかと思っていたら１９時44分に

　　　　　　来たよ。

　　　　　　・・・ということでくまぷーのは削除して・・・

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

「コ」解答です。
アップ用にも書いたとおり、
今回は完全に観客化していました。(^^)ゞ

　　　　　　　　　　　　　　悪児

－－－－－－－－－－－－－－－－－－－－－－－－－－－
出題時に用意していた解答です。

中級
三四郎49
=If(Max(Rows(A1:A$6),Abs(5.6-Col(A1))+0.6)=5,"*")

Excel50
=LEFT("*",MAX(ROWS(1:$6),ABS(5.6-COLUMN())+0.6)=5)

上級
三四郎61
=If(Max(Ip(Rows(A1:A$6)/2),Abs(3.1-Col(B1) DIV 2)+0.1)=2,"*")
Excel67
=IF(MAX(INT(ROWS(1:$6)/2),ABS(3.1-INT(COLUMN(B1)/2))+0.1)=2,"*","")

今回は、あまりのショックで、
立ち直れないまま、完全に観客化していました。(^^;)(^^;)

胡椒は小粒で・・・：中禅寺湖シリーズⅡ【問題】

３種類の出題です。(^^)ベ

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

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

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

１．初級（おっきなコ）
≪図形≫

*

*

*

*

*

*

*

*

２．中級（ちっちゃなコ）
≪図形≫

*

*

*

*

*

*

*

*

３．上級（太ったコ）
≪図形≫

*

*

*

*

*

*

*

*

１．は簡単ですよね。(^_^)(^_^)/~
２．は、問題を思いついたときは難しそうだと思ったのですが・・・(^^)ベ
３．まだ、余り考えていません　(^^;(^^;)

今回のルール

１．初級
　　文字数報告：直ぐにＯＫ。
　　答合わせ　：木曜　12:00

２．中級・上級（同時進行）
　　文字数報告：
　　　　木曜　20:00まで：90字以上はＯＫ。
　　　　　　　　　　　　 90字未満は、90字未満（１種）というようにお書き下さい。

　　　　木曜　20:00以降：中級・上級とも文字数解禁。
　　　　　　　　　　　　 中級Excel72字、上級三四郎82字というようにお書き下さい。

　　答合わせ：中級・上級とも
　　　　日曜　20:00

≪注意！！≫
　今回の「中級・上級」の答え合わせは、
　土曜ではなく、日曜です！！

タイトルの由来
　　「中」前(先)次「コ」ってことで・・・(^^)ベ

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

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

表計算一筆書き・・・御陵Ⅱ【解答】

問題はこちらを参照。

御陵Ⅱはマーク２種類の初めての問題でした。

【解答】

三四郎：６０文字

きっちーさんよりAndBを頂いて・・・

=Mid(" ●  ■■",((Col(A1)-6)*(Row(A1)-6) MOD 5 ANDB 10)/2+1,1)

三四郎：６７文字

Choose関数を使いたかったので・・・

=Choose(((Col(A1)-6)*(Row(A1)-6) MOD 5 ANDB 10)/2+1,,"●",,,"■","■")

Excel：６１文字は遠慮して１１０文字

=IF(OR((ROW()-6)*(6-COLUMN())={-12,-8,-3,-2}),"●",IF(OR((ROW()-6)*(6-COLUMN())={1,2,3,4,6,8,9,12,16}),"■",""))

【´･ω･`】:マークを複数にして、RC一組で処理するとなると

　　　　　Mid関数またはChoose関数あたりのお世話にならざるを

　　　　　得ないかな・・・

表計算一筆書き・・・お知らせ００２

悪児さんより次回の予告です。

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

とりあえず、タイトル予告です。

－－－－－－－－－－－－
次回の表計算一筆書き、お題は、

「胡椒は小粒で・・・：中禅寺湖シリーズⅡ」

です。(^^)(^^)

さて、どんな問題になるでしょう　(^_^)(^_^)/~

表計算一筆書き・・・御陵Ⅱ【問題】

【問題】

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

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

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

*

* 

*

*

＊

＊

＊

＊

*

*

*

*

*

*

*

*

*

*

(●`ε´●)：おい、御陵Ⅱと言っているがこの前のと変わらないじゃないか？！

*

＊

【´･ω･`】：よく見てくれ。丸には「●」、四角には「■」、表示させる模様が

　　　　　　２種類になっているだろ！！

　　　　　　これが本当の「御陵」の姿だ！！

*

＊

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

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

  文字数に関するコメント、即OKです。

　直接、数式を提示するのは12/3（月）20時までご遠慮ください。

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

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

表計算一筆書き・・・御陵（みささぎ）【解答】

問題はこちらを参照。

【解答】

★三四郎５０文字

=If((Col(A1)-6)*(Row(A1)-6) MOD 5 IN {0,1,4},,"●")

★Excel７２文字

=LEFT("●",OR((ROW()-6)*(6-COLUMN())={-12,-8,-3,-2,1,2,3,4,6,8,9,12,16}))

(●`ε´●)：おい、くまぷー！なんで三四郎が絶対有利なんだ？

【´･ω･`】：三四郎とExcelのModの違いだな。

　　　　　　三四郎では　=((Col(A1)-6)*(Row(A1)-6) MOD 5　が・・・

＊

＊

＊

＊

＊

＊

　　　　　・・・となるが、Excelでは=MOD((COLUMN()-6)*(ROW()-6),5)　が・・・

＊

*

*

*

*

*

(●`ε´●)：なるほど符号にちがいがでるのか。これなら三四郎を使って

　　　　　　「御陵」を完成させるには「０，１，４」以外のところに「●」を

　　　　　　表示させるだけだもんな！！

【´･ω･`】：さて、こういう問題なのにExcelで６０を切ったという人がいる。

　　　　　どんな回答を見せてくれるか楽しみ、楽しみ。それと三四郎の４６文字。

　　　　　もし、これが「どこから持ってきたのその数値？」というような黒魔術ではないならば

　　　　　驚き桃の木だな・・・これも楽しみ楽しみ・・・。

表計算一筆書き・・・御陵（みささぎ）【問題】

今回の問題のテーマは・・・

御陵（みささぎ）

・・・です。

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

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

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

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

*

*

*

*

*

*

*

*

*

*

*

*

*

*

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

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

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

＊

＊

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

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

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

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

三四郎ユーザのほうが絶対有利な問題です。

さあ、minmaxさん・・・

試用版から正規ユーザに華麗なる変身を遂げるか？！

JustSystemも電信柱の陰から見守っている（かもしれない）！！

表計算一筆書き・・・カリフォルニア・ポピー【解答】

問題はこちらを参照。

***********************************************************************************************
カリフォルニア・ポピー【出題者きっちーさんの解答】(三四郎)

この問題は元図形のリアル版を簡略化したものです。

今回の問題は難しそうですが、特に変わったことをしなくても作成出来ると思いました。

対称図形では、アプローチの方法がたくさんあって、楽しめたのではないでしょうか。(^^)


斜線を個別に８本引く。（初級？）

ボックスを２つ作り重ねる。
=If(Max(Abs(Col(A1)+Row(A1)-12)+2,Abs(Col(A1)-Row(A1))-2)=5 OR Max(Abs(Col(A1)+Row(A1)-12)-2,Abs(Col(A1)-Row(A1))+2)=5,"●")

４本斜線を作り逆向きと重ねる。
=If(Max(((Col(A1)+Row(A1)-12) MOD 4)^2,((Col(A1)-Row(A1)) MOD 4)^2)=9,"●")

演算で一気に作る（中級？）
=If(Fp(((Col(A1)-Row(A1))^2+1)*((Col(A1)+Row(A1)-12)^2+1)/20),,"●")

格子を作り余計なところを消す。
（断念しました）


今回は都合により回答側に回ることが出来なかったことをお詫びします。m(_ _)m

***********************************************************************************************
【´･ω･`】：きっちーさん、お忙しい中をありがとうございました。

　　　　　　参考までに文字数を数えたところ、

　　　　　　★斜線を個別に８本引く・・・１２３文字

　　　　　　★４本斜線を作り逆向きと重ねる・・・７４文字

　　　　　　★演算で一気に作る・・・６７文字でした。

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

【´･ω･`】：きっちーさんがExcelの回答を出していないので

　　　　　　このスペースをお借りして・・・・

　　　　　　=LEFT("●",OR(ABS(COLUMN()+ROW()*{-1,1}-{0,12})={2;7}))

　　　　　　（５４文字）

　　　　　　　苦労しました。これができたのが締切約１時間前です。(^^ゞ

表計算一筆書き・・・カリフォルニア・ポピー【問題】

今回の出題者はきっちーさんです。

きっちーさんはこのブログの常連さんで、その回答の冴えは

みなさん、ご存じの通りです。(^o^)

そもそも、きっちーさんの出会いは、くまぷーが昨年、気まぐれで

一太郎マクロをやり始めて、恐れ多くもその道の超大物・悪児さんに

一太郎マクロで挑戦したときに間に割ってはいってきたのがきっちーさんでした。

さて、それでは長話は嫌われるのでこれくらいにして・・・今回の問題です。

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

【カリフォルニア・ポピー】
ハナビシソウ。花つながりになりましたね。
リアル版よりもやさしい図形のほうがいいかな、と思って考えた対称図形です。(^^)ゞ

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

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

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

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

*

*

*

*

*

**

*

Link「植物園へようこそ！」
http://aoki2.si.gunma-u.ac.jp/BotanicalGarden/HTMLs/Hanabishisou.html

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

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

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

＊

＊

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

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

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

表計算一筆書き・・・【お知らせ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字、という感じで、予想して下さい。

＊

＊

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

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

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

表計算一筆書き・・・「中禅寺湖シリーズⅠ：中級？初級？」 【解答】

問題はこちらを参照。

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

１段階では、不可能だろうと思っていましたが、
50文字ということは、できたようですね。(^^;)(^^;)

というわけで、出題者としては、敗北宣言を出さざるを得ません。(^^)ゞ

出題者悪児の用意した解答は、次の２段階のものです。

三四郎56
=If(Max(Rows(A1:A$6)*2,Cols(A1:$F1))=6 OR Col(A1)=6,"*")
Excel59
=LEFT("*",OR(MAX(ROWS(1:$6)*2,COLUMNS(A:$F))=6,COLUMN()=6))

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(悪児さんより）

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

【´･ω･`】：実はこの時間（8時頃）は某所で飲んだくれているので

　　　　　　悪児さんの下にちょっと場所を借りてくまぷーの解答も

　　　　　　発表しておこう････････よろぴく！！

Excel６０文字

=LEFT("*",MOD(INT(((ROW()-6)^4-16)*(6-COLUMN())^2/41),10)=0)

三四郎５５文字（2種）

=If(Find(0,Ip(((Row(A1)-6)^4-16)*(Col(A1)-6)/7.4)),"*")

=If((16-(Row(A1)-6)^4)*Abs(Col(A1)-6) IN {0,75,80},"*")

表計算一筆書き・・・「中禅寺湖シリーズⅠ：中級？初級？」

表計算一筆書き・・・「中禅寺湖シリーズⅠ：中級？初級？」

【´･ω･`】:今回も悪児さんの出題だ。

(●`ε´●):おお、「中禅寺湖シリーズⅠ：中級？初級？」だとぉ？！

　　　　　　　いよいよ、シリーズ化決定だな！！

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

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

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

＊

＊

＊

＊

＊

＊

＊

＊

以下、悪児さんより

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

「中」です。

90°回転では、元に戻らない。
果たして、何文字かかるでしょう？

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

＊

＊

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

悪児

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

★初心者のための道標

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

表計算一筆書き・・・便利ツール

sakudaさんより、一筆書きの関係者のみなさんにということで

便利なツールを頂きました。このアドインをExcelに組み込んで

ポップアップメニューを表示させると････････

*

*

*

*

*

*

*

*

*

*

・・・「一筆書き」「一筆書き修正」「一筆書き準備」が追加されます。

以下、sakudaさんより、説明です。

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

★アドインのインストール
　　（１）　ツール⇒アドイン⇒参照　から　Hitofude.xla　をインストールします。
　　（２）　↑の手順が面倒くさい方はExcelが起動していない状態で
　　　　　　Hitofude.xla　を同封の"アドイン関係\アドインインストーラ(含む再）1．1.vbs"
　　　　　　にドラッグ＆ドロップしてください。

２．使用法
　　（１）このアドインをインストールすると、セルのコンテキストメニュー（右クリックメニュー）に
　　　　一筆書き、一筆書き修正、一筆書き準備　が現れます。
　　（２）式を最初に試す場合
　　　　A．くまぷーさんのサイトで、試したい式をドラッグして選択状態にして⇒コピー
　　　　B．Excleに戻って、現シートの任意のセルを右クリック⇒一筆書き
　　　　C．ブックの最後に新規のシートが追加され次のように処理されます
　　　　　*　A1:K1に式がコピー
　　　　　*　A～K列は幅２に調整されます。
　　　　　*　A14にA1の式がテキストとして入ります
　　　　　*　A16:B16　に＝LEN（A14)が入り、式の長さが表示されます
　　（３）式を修正する場合
　　　　A．A1セルの式を修正します
　　　　B．任意のセルを右クリック⇒一筆書き修正
　　　　C．A1セルが全体にコピーされ、A14の文字列化した式も修正されます
　　（４）自分で式を作成する場合
　　　　A．白紙のシートで任意のセルを右クリック⇒一筆書き準備
　　　　B．列幅が調整され、A:16B16に＝LEN(A14)が入ります
　　　　C．A1に式を入れ、右クリック⇒一筆書き修正
　　　　　　これで、A1の式が展開され、A14にA1の式がテキストとして入ります。

★選択部分取り出し

１．ツールの使用目的
　　くまぷーさんのブログから式をコピーする際、式全体をコピーし損ねる場合があります。
　　このツールは式の一部をドラッグして選択状態にしておけば、式全体をコピーしてクリップボードに
　　格納します。
　（たまに失敗することもありえますが・・・・）

２．ツールのインストールと使用法
　A．選択部分の取り出し.htm　を同封の　選択部分取り出し登録.vbs　のアイコンに
　　　ドラッグ＆ドロップします。
　B．この後立ち上げたIEで、テキストを一文字でも選択状態にして、右クリックすると、
　　　メニューに　"選択部分の取り出し"　が登場します。
　C．右クリックメニューで　"選択部分の取り出し"　を選択すると、一部選択されている
　　　式の全体がクリップボードに入ります。
     (例えば、　＞　=LEFT("*",(ROW()-6)^3*(COLUMN()-6)=(ROW()-6)*(COLUMN()-6)^3)　のような引用された部分でもOKです）

　D．選択部分の取り出し.htm　が登録されている状態で、再度ファイルを　選択部分取り出し登録.vbs
　　　にドラッグ＆ドロップすると、登録が削除されます。

　注．コンテキストメニューへの登録はレジストリの操作を伴いますので、使用は自己責任でお願いします。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　以上

ダウンロードはこちら より。

トラブルの際の連絡先は
[email protected]

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

sakudaさん、有り難うございました～(^.^/~~~

表計算一筆書き・・・女王陛下の旗、たなびく下に 【解答】

問題はこちらを参照。

【´･ω･`】:まず、基本解を示そう。文字数はそれほど短くはなっては

　　　　　　いないが、わかりやすくて上品な式であると思う。

【基本解・Excel】

=IF((ROW()-6)*(COLUMN()-6)*(ROW()-COLUMN())*(ROW()+COLUMN()-12),"","■")

（７１文字）

【基本解・三四郎】

=If(Row(A1)=6 OR Col(A1)=6 OR Row(A1)=Col(A1) OR Row(A1)+Col(A1)=12,"■","")

【´･ω･`】:基本技で解答を作ると７０文字強になるので初日の

　　　　　　文字数に関するコメントを実験的に「７０文字未満」と

　　　　　　「７０文字以上」に制限したというわけだ。

　　　　　　このことに関して悪児さんから・・・

＞問題提出の頃にちょうど仕事が忙しかった、という方も多いとおもいます。

＞ところが、１日もたたないうちに、６０切り、さらには、５０切りまで

＞飛び出しています。

＞２日ぐらいは、７０字切り程度で抑えておいた方が、いろいろな方の

＞解答が出るのではないでしょうか？

　　　　　・・・というご意見を頂戴している。その通りかもしれない。

　　　　　初日は文字数に関するコメントは一切禁止で、参加表明に

　　　　　止めておいた方がいいのかもしれない。この辺りのことを

　　　　　どうするかは解答を作るよりもはるかに難しい。

　　　　　幸い、次回の出題者は悪児さんなので、コメントに関する

　　　　　ルール（次回用）も提示していただけるとありがたい。m(__)m

【解答・Excel４９文字】

さて、Excel４９文字の解答を示そう。実は最初は５９文字であった・・・

・・・Modeを使った式・・・

=MODE(ROW(),COLUMN(),12-ROW(),12-COLUMN())

・・・は下図のようになる

*＝

*

*

*

*

*

よって・・・

=IF(ISNA(MODE(ROW(),COLUMN(),12-ROW(),12-COLUMN())),"","*")

これはこれできれいな式なのでもう減量の余地は無いかと思ったが・・・

やってみるとなんと12-ROW()か12-COLUMN()のどちらかを定数６と換えても

ちゃんと動くのだ！！

=IF(ISNA(MODE(ROW(),COLUMN(),12-ROW(),6)),"","*")

【解答・三四郎４３文字・・・ズル】

=If(Mode(Row(A1),Col(A1),12-Col(A1),6),"■")

上式を使うと下図のようになる。

*

*

*

*

*

三四郎はExcelと違い、エラーが赤で表示されるので

セルの背景を赤にして誤魔化したというわけだ。

表計算一筆書き・・・女王陛下の旗、たなびく下に 【問題】

【´･ω･`】:悪児さん、ジョー３さんと続いたあとでの出題は歌の上手な

　　　　　人のあとで歌うカラオケみたいなもんで、ちょっと気が引けるが

　　　　　つきあって欲しい。今回は単純な直線だけの図形だから

　　　　　割と考えやすいと思う・・・。それでも、どこからやればいいのか

　　　　　わからない方は以下を参考にして欲しい。必ず答が見つかるはずだ。

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

＊

＊

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

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

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

*

*

*

*

*

*

*

（●｀ε´●）：集え、表計算フリーク達よ！！

　　　　　　　女王陛下の旗、たなびく下へ！！

＊

＊

※コメント即OK。ただし、本日中（10/30）、文字数に関しては

　７０文字以上、70文字未満という表現にとどめてください。

　例）

　９６文字→70文字以上

　５３文字→70文字未満

　明日（10/31）からは文字数に関するコメント、全面解禁。

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

※セルの色は関係なし。

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

三四郎で４３文字（ズル）・・・画像を追記　11/1午後８時

特殊フォントを使っているのではありません　(^^ゞ

表計算一筆書き・・・星のまたたき 【回答】

問題はこちらを参照。

(●`ε´●):ジョー３さんが寄せてくれた回答だ。

　　　　　　みんな、見てくれ！！

【エクセル回答】

=LEFT("●",INT(((ROW()-6)^2+(COLUMN()-6)^2)/5)=INT(MID(NOW(),12,1)/5)*5)

=LEFT("*",INT(((ROW()-6)^2+(COLUMN()-6)^2)/5)=INT(MID(NOW(),13,1)/5)*5)

(●`ε´●):F9を押すと八角形と菱形が切り替わる。流石、ジョー３さんの

　　　　　　問題だ。ただでは済まないとは思っていたが・・・。

表計算一筆書き・・・星のまたたき【問題】

【´･ω･`】:ここに書いたとおり、「コスモス」のオリジナルは

　　　　　実はこの「星のまたたき」であった・・・。ジョー３さんが

　　　　　本当にやりたかったのはこちらだったのだ・・・。

*

【問題】セルを利用して下のような図、２種を描き、

　　　　　F9（再計算）を押すことによって２種の図を切り替えたい。

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

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

*

*

*

*

*

*

*

*

*

*

*

*

*

*

※エクセルのF９に対し、三四郎はShift+F２で再計算。

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

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

表計算一筆書き・・・コスモス【回答】

【´･ω･`】:今回の「コスモス」はジョー３さんの出題でした。

　　　　　　ジョー３さん、有り難うございました。

　　　　　　ここで少し「コスモス」に関する裏話をさせていただきたいと思います。

　　　　　　実はジョー３さんがはじめに考えていた問題は「コスモス」ではなく、

　　　　　　「星のまたたき」というものでした。

　　　　　　ジョー３さんによると・・・

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

　　　　　　こんな問題はどうでしょう？？


　　　　　　星のまたたき・・・

　　　　　　ｆ９（再計算で）
　　　　　　１１×１１の中に
　　　　　　星を光らせる。・・・・ってやつ。

　　　　　　小さな菱形（中央）と

　　　　　　大きな8角形を、交互に表示するというものです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

　　　　　　**********************************
【´･ω･`】:再計算を使って表示を切り替えるのは、常連さん以外の

　　　　　　一般回答者には、厳しいのでは？というくまぷーの

　　　　　　お願いで・・・

　　　　　**********************************
　　　　　凝りすぎですよね、

　　　　　１１＊１１内の円（実は8角形）
　　　　　の作成だけでも良いのかなーーー、

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

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

【´･ω･`】:・・・ということで「星のまたたき」から「コスモス」が生まれました。

　　　　　

　　　　　*

　　　　　*

　　　　　さてジョー３さんから、下のような

　　　　　メッセージを頂いております・・・

　　　　　ジョー３さんにはオリジナルの問題を快く変更していただき

　　　　　有り難く思うと同時に申し訳なく思っております。

　　　　　ジョー３さん、今回は本当にどうも有り難うございました。m(__)m

＊

　　　　問題はこちらを参照。

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

　　　　先回の悪児さんの問題は、皆さん、力が入りましたね。

　　　　と言うことで、今回は、皆さんが楽を出来るように、

　　　　と言うことで、円の式をそのまま、部品として、

　　　　あとは、チョット工夫すれば・・・

　　　　と、考えました。でも、

　　　　みなさんの多くが考えついた点に、

　　　　私は気づきませんでした。

　　　　まあ、いずれにしても、

　　　　今回は、一休みできたようで、良かったですね、

　　　　【エクセル・・・回答】

　　　　=LEFT("●",INT(((ROW()-6)^2+(COLUMN()-6)^2)/5)=5)

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

【´･ω･`】:実はジョー３さんから、「星のまたたき」の回答も頂いて

　　　　いるのですが、それはここでは公開せずに

　　　　表計算一筆書きの第９問目として使わせて頂こうと思っています。

　　　　「星のまたたき」は「コスモス」の関連問題なので、

　　　　公開は日曜か月曜の夕方・・・、そして回答の数式、コメント即OKという形に

　　　　しようと思っていますが如何でしょうか？

表計算一筆書き・・・コスモス 【問題】

さあ、今回はジョー３さんの出題です。

ジョー３さんは知る人ぞ知るExcelオリンピックの主催者＆出題者です。

*

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

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

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

*

*

*

*

*

*

*

*

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

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

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

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

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

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

表計算一筆書き・・・予告

次回の出題は「小田城湖」で華麗な技を見せてくれた

あのジョー3氏です！！（＾o＾）

お題は「コスモス」！！

乞うご期待！！（＾o＾）

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

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

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

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

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

            ※問題はこちらを参照。

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

ジョー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),,"*")

　　　　　とすればよい。

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

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

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

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

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

【´･ω･`】：「表計算一筆書き」とタイトルを変えてから一発目の問題だ。

　　　　　　癖の無い図形なので取りかかりやすいと思う。取りかかり所が

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

　　　　　　道は開けるはずだ。

　　　　　　直線をひく（１）

　　　　　　直線をひく（２）

　　　　　　基本数式の作り方（１）

　　　　　　基本数式の作り方（２）

　　　　　　基本数式の作り方（３）

(●`ε´●)：能書きはいいから早く問題を言えよ！！

【´･ω･`】：わかったよ。

*

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

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

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

*

*

*

*

*

*

*

*

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

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

表計算一筆書き・・・基本数式の作り方（３）

さて、ここまでで一応のことはできるはずである。

今回の例題を見て欲しい。

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

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

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

*

*

*

*

*

*

*

*

*

(●`ε´●):今度は十字架か？簡単だな。行番号６のセルと列番号６のセルに

　　　　　　アスタリスクを表示させればいいというわけだな？

【´･ω･`】:そう。

(●`ε´●):A1に・・・

　　　　　　=If(Row(A1)=6 OR Col(A1)=6,"*","")

　　　　　　・・・だ。

【´･ω･`】:うん、それで正解だ。だいぶ慣れてきたみたいだね。

(●`ε´●):ああ、だけどひとつ質問があるんだ。

【´･ω･`】:なんだい？

(●`ε´●):既出の問題の回答をみるとORだのANDだのといったものは

　　　　　　使われてはいないようだが・・・

【´･ω･`】:なるほど。よく見ているね。それでは説明しようか。

　　　　　まず、ひとつ知っていて欲しいことがある。

　　　　　IF文などでは条件式の真・偽に応じて結果を分岐させるわけだが

　　　　　数字の０は偽を表し、それ以外の数値は真と見なされる・・・。

　　　　　このことを頭の隅に置いておいて欲しい。

　　　　　下の図を見てくれ。これはA1に=Row(A1)-6 と入力し

　　　　　それをK１１までコピペしたものだ。

*

*

*

*

*

*

*

【´･ω･`】:６行目が０になっているね。

(●`ε´●):････････

【´･ω･`】:そこで先ほどの=Row(A1)-6 に、さらに=Col(A1)-6 を掛けたもの、

　　　　　すなわち、　=(Row(A1)-6)*(Col(A1)-6)　をA1に入力し、K11まで

　　　　　コピペすると・・・。

*

*

*

*

*

*

*くま

【´･ω･`】:こんどは６列目も０になったというわけだ。

(●`ε´●):なるほど。では先ほどの式は・・・

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

　　　　　　・・・でもいいわけだ。

　　　　　　そう言えば数学のセンセが・・・

　　　　　　X－６　=　0　または　Y－６　=　0

　　　　　　・・・と

　　　　　　（X－６）（Y－６）＝０

　　　　　・・・は同値だと言っていたっけな。

【´･ω･`】:うん。・・・で、ここでさっきの数字の０は偽を表し、それ以外の数値は

　　　　　真と見なされるという話を思い出してもらえば・・・

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

　　　　　・・・は赤字の部分（＝０）を省略して

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

　　　　　と書けるのがわかると思う。

　　　　　あ、そうそう明日の晩には例題じゃなくてちゃんとした

　　　　　問題を出すから、みなさん、よろぴくd(^-^)ネ!

表計算一筆書き・・・基本数式の作り方（２）

　前回、申しましたように同じ図形を描くのであればより簡潔な数式で表現する

のが「表計算一筆書き」の基本です。今回も、そのテーマに沿って話を進めます。

*

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

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

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

*

*

*

*

*

*

*

*

(●`ε´●):こんどはシマシマか。１・３・５・７・９・１１行目にアスタリスク（*のことです）が

　　　　　　表示されているから、A1に・・・

　　　　　　=If(Row(A1)=1 OR Row(A1)=3 OR Row(A1)=5 OR Row(A1)=7 OR Row(A1)=9

　　　　　OR Row(A1)=11,"*","")

　　　　　　・・・だ。

【´･ω･`】:もちろん、それでもいいんだけど・・・アスタリスクが表示されているのが

　　　　　奇数行目だと言うことに目をつければ、Mod演算子を使って・・・

　　　　　=If(Row(A1) MOD 2=1,"*","")

　　　　・・・なんてふうにも書ける・・・。

(●`ε´●):Modってなんだ？

【´･ω･`】:Mod　は　割り算の余りを求める演算子だ。

　　　　　Row(A1) MOD 2=1　は　行番号を2で割ったとき余りが１になることを

　　　　　示している。

(●`ε´●):なるほど奇数ならば２で割って余りが１になるはずだからな。

　　　　　　偶数ならば・・・

　　　　　　Row(A1) MOD 2=0

　　　　　　・・・というわけか？

【´･ω･`】:うん。その他に奇数を判定するIsOdd関数を使えば・・・

　　　　　　=If(IsOdd(Row(K11)),"*","")

　　　　　　・・・としてもよい。

*

【補足】

１．奇数か否かを判定するIsOdd関数に対して偶数を判定するのはIsEven関数である。

２．エクセルでは２００７から、IsOdd関数・IsEven関数が標準になった。

３．エクセルにはMod演算子は存在しないので、Mod関数を使う。

　　ちなみに・・・

　　Row(A1) MOD 2=1

　　・・・は

　　Mod(Row(A1) , 2) = 1

     ・・・となる。

表計算一筆書き・・・基本数式の作り方（１）

　前回までのことを理解すれば横線・縦線を描くことができます。

それでは下のような図を描くにはどうしたらよいでしょうか？

*

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

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

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

*

*

*

*

*

*

*

*

(●`ε´●):そんなの簡単さ。横線の引き方はここでやったし・・・。

　　　　　　A1に・・・

　　　　　　=If(Row(A1)=10 OR Row(A1)=11,"*","")

　　　　　　・・・だ。

【´･ω･`】:べべちゃん、それで正解だ。でも、その数式はもう少し

　　　　　簡潔にすることができる・・・

　　　　　=If(Row(A1)>9,"*","")

　　　　　・・・としても同じ図を描くことができる。このように

　　　　　同じ図形を描くならより簡潔な数式で表現する、というのが

　　　　　「表計算一筆書き」の楽しみのひとつだな。

(●`ε´●):なるほど。ちなみにその式はエクセルなら・・・

　　　　　　=If(Row()>9,"*","")

　　　　　　・・・となるな。

※図のセルについている色は見やすくするためにつけただけです。

　問題の本質とは関わりありません。

表計算一筆書き・・・直線を引く（２）

【基本その２】　

　前回は行番号を利用しての「表計算一筆書き」について述べた。ワークシート上の

全てのセルは行番号と列番号で管理されているので後は列番号について理解すれば

最低限の基本は押さえたことになる。

(●`ε´●):行には番号がついているけど列には番号なんてついていないぞ！

【´･ω･`】:基本的には同じだよ。列番号はワークシートの一番上に

　　　　　　並んでいるA・B・C・D････････というアルファベットを

　　　　　それぞれ、１・２・３・４････････と見立ててやればいい。

              だから、A1の列番号は１となり、B３の列番号は２となる。ではF6は？

(●`ε´●):６だ。

【´･ω･`】:その通り。行番号を取得するのにRow関数を使うのに対して

　　　　　列番号を取得するにはCol関数をつかう。だから=Col(A1)は

　　　　　１になり、=Col(B3)は２になる。

(●`ε´●):ちなみに三四郎のCol関数はEXCELではなんになるんだ？

【´･ω･`】:Column関数になる。

　　　　　　下がA1に=Col(A1)を入力してK11までコピペしたものだ。

*

*

*

*

*

*

*

*

*

【´･ω･`】:見ての通り、F列の列番号は６なのでA1に・・・

　　　　　　=If(Col(A1)=6,"*","")

　　　　　・・・と入力し、K11までコピペすと下図のようになる。

*

*

*

*

*

(●`ε´●):EXCELならば、=If(Column()=6,"*","")　だな。

*

*

【補足】

　　Excelでは=Column()というように引数を省略することができる。

　　その場合、関数が入力されているセル番地が引数になっているのと

　　同じ結果になる。

表計算一筆書き・・・直線を引く（１）

【基本その１】

「表計算一筆書き」は基本的にはセルに＊を表示させてワークシートに

模様を描く。例えば数のように６行目に＊を表示させて直線を

描くにはどうすればいいだろうか。

*

*

*

*

*

（図１）

*

*

【´･ω･`】:行番号を取得するにはRow関数をつかう。

　　　　　で=Row(A1)すると１、=Row(A２)に とすると２になる。

　　　　　そこでセルA1に=Row(A1) と入力してK11までコピペすると・・・

*

*

*

*

*

*

*

・・・となり。

従って、A1に　=If(Row(A1)=6 ,"＊","")　と入力して

K11までコピペすると図１のように6行目に＊を表示させることができる。

*

*

*

【補足】

　　Excelでは=Row()というように引数を省略することができる。

　　その場合、関数が入力されているセル番地が引数になっているのと

　　同じ結果になる。

表計算一筆書きとは？

　「表計算一筆書き」とは一つのセルに入力した数式を

他のセルにコピペして図を描く遊びのこと・・・

表計算ソフトを使って解くパズルです。近頃、流行の脳トレにもなります。

表計算ソフトを仕事だけに使うなんて非常にもったいないことです。(^。^)

*

*

(●`ε´●):おい、くまぷー！おまえは遊びにしか使っていないじゃないか？！

【´･ω･`】:あ、そういうツッコミはなしね。

*

*

　それでは「表計算一筆書き」の具体例を挙げましょう。

例えばセルA1に入力したある式をK11までコピペすることにより

下のような図を描くことができます。(セルの色は関係ありません）

*

*

*

*

*

*

*

*

三四郎なら・・・

=If(Max(Abs(Row(A1)-6),Abs(Col(A1)-6)) MOD 2,"*","")

Excelなら・・・

=IF(MOD(MAX(ABS(ROW()-6),ABS(COLUMN()-6)),2),"*","")

＊

(●`ε´●):おいらもやってみたいけど、どうやればいいのかわかんないよ！！

【´･ω･`】:わかったよ。基本的なところを解説するよ。

(●`ε´●):おう、頼むぜ。

【´･ω･`】:次回からね。

*

*

*

*

【参考・既出の問題】

三四郎でピラミッド・・・【問題】

三四郎でピラミッド・・・【回答】

三四郎でグルグル渦巻き・・・【問題】

三四郎でグルグル渦巻き・・・【解答】

三四郎でストライク！！・・・【問題】

三四郎でストライク！！・・・【解答】

三四郎で手裏剣・・・【問題】(^^ゞ

三四郎で手裏剣・・・【解答】(^^ゞ

三四郎・・・ダイアモンドよ、永遠に！【問題】

三四郎・・・ダイアモンドよ、永遠に！【解答】

三四郎・・・ダイアモンドよ、永遠に【解答】

問題はこちらを参照。

【´･ω･`】:まっとうな解答ではとうとう４０文字をきることができなかった。

＊

＋

【解答・三四郎】

A1に・・・

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

【´･ω･`】:これで４０文字

＊

＋

【解答手順・EXCEL・・・色物編３５文字】

１．　=(ABS(COLUMN()-6)+ABS(ROW()-6)<6)*1

２．　フォントをMarlettまたはWebdingsにする。

３．　０値を表示しない設定にする。

・・・すると下のようになる。

*

*

*

*

*

*

*

【´･ω･`】:このやり方はもちろん、三四郎でも有効だ。

　　　　　さてジョー３さん、同じでしたか？

三四郎・・・ダイアモンドよ、永遠に【問題】

【´･ω･`】:表計算一筆書きシリーズも「ピラミッド」「グルグル渦巻き」「ストライク」

              「手裏剣」に続きいよいよ第5弾だ！！

(●`ε´●):表計算一筆書き？

【´･ω･`】:あ、言い忘れていた。ここでやっているように一つのセルに入力した

　　　　　数式を他のセルにコピペして図を描く遊びを「表計算一筆書き」と

　　　　　呼ぶことにしたい。よろぴく。

＊

＊

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

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

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

＊

＊

＊

＊

＊

＊

＊

＊

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

　今回はアスタリスク「*」の代わりに「■」を使っています。

　ただの気まぐれです。

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

＊

＊

＊

＊

＊

追記（10/4　午後１０：３０）

下はExcelです。式の文字数３５です。

もちろん、書式、名前定義は使っていません。（￣＾￣）

三四郎で手裏剣・・・【解答】(^^ゞ

問題はこちらを参照。

(●`ε´●):今回は何がなんだかわからなかったぞ！！

【´･ω･`】:問題が簡単すぎるって言うから・・・。

(●`ε´●):きちんとした法則があるんだろうな？！

【´･ω･`】:うん、今回のキーワードは調和平均だよ・・・。

(●`ε´●):調和平均？！

【´･ω･`】:「行きは時速６Kｍ、帰りは時速４Kmで走りました。

　　　　　　さて、平均時速は何Kmでしょう？」ってやつだよ。

(●`ε´●):時速５Kｍに決まってるだろ！！

【´･ω･`】:････････。

＊

＊

＊

＊

＊

【解答・三四郎】

A1に・・・

=If(IsOdd(Int(HarMean(Row(A1),12-Row(A1),12-Col(A1),Col(A1)))),"★")

【解答・Excel】

=LEFT("★",MOD(INT(HARMEAN(ROW(),12-ROW(),12-COLUMN(),COLUMN())),2))

三四郎で手裏剣・・・【問題】(^^ゞ

【´･ω･`】:お絵かきシリーズも「ピラミッド」「グルグル渦巻き」「ストライク」に

　　　　　　続きいよいよ第4弾だ！！今回のは「１分でできた」なんて言われることは

　　　　　　ないだろう。

(●`ε´●):こんなのできるのか？

【´･ω･`】:できない問題はださないから・・・。

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

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

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

＊

＊

＊

＊

＊

＊

＊

＊

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

　今回はアスタリスク「*」の代わりに「★」を使っています。

　ただの気まぐれです。

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

三四郎でストライク！！・・・【解答】

問題はこちらを参照

【解答・三四郎】

A1に・・・

=If((Row(A1)-6)^2<=(Col(A1)-6)^2,"*")

３７文字です。

【解答・Excel】

A1からK１１のうちの任意のセルに・・・

=LEFT("*",(ROW()-6)^2<=(COLUMN()-6)^2)

三四郎でストライク！！・・・【問題】

【´･ω･`】:この前の「グルグル渦巻き」の後では屁みたいな

　　　　　問題で気が引けるけど････････。

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

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

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

*

*

*

*

*

*

*

*

(●`ε´●):過去ログがかなりヒントになるな！！

※コメント即OK.

※数式の書き込みは９／２３(日）　午後８時までご遠慮を。

三四郎でグルグル渦巻き・・・【解答】

問題はこちらを参照。

【´･ω･`】:今回の問題・・・、気がついてみれば何でもないんだけど

　　　　　はじめは法則に気がつかずに苦労してしまったよ。

(●`ε´●):で、どんな法則があるんだ？

【´･ω･`】:いつもの解答はただ数式を示すのみだったのだが

　　　　　今回はROMしてくれている初心者さんたちのために

　　　　　ちょっと、解説を・・・。

　　　　　　「グルグル渦巻き」はアスタリスクのあるセルと無いセルの２種類で

　　　　描かれている。だから、もしも下図のようにアスタリスクのあるセルが１ならば

*

*

*

*

*

*

    1のところをアスタリスクに置き換えればよい。

(●`ε´●):でも問題はこんなに単純じゃないぜ。

【´･ω･`】:うん、でもよく見てみると・・・

*

*

*

*

*

*

*

*

(●`ε´●):な、なるほど！F6を中心に見るとアスタリスクを表示させるべきセルは

　　　　　　F6の１つ隣り、３つ隣り、５つ隣り・・・奇数分だけ隣のセルか！！

【´･ω･`】:うん、これに気づけば・・・。

【解答・三四郎】

F6に・・・

=If(Max(Abs(Row(F6)-6),Abs(Col(F6)-6)) MOD 2,"*")

・・・49字

【解答・Excel】

F６に・・・

=LEFT("*",ISODD(MAX(ABS(ROW()-6),ABS(COLUMN()-6))))

・・・５１字