問題はこちらを参照。
(●`ε´●)：おれもやってみたよ。田の字を作るためには１行目、６行目、１１行目、
１列目、６列目、１１列目にアスタリスクを表示すればいいわけだから・・・
=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),,"*")
とすればよい。
(●`ε´●):わかったよ。おもしろいな。
【´･ω･`】:さて、みなさんの回答は如何に？答が見つからなかった人も
気楽にコメントしてくれるとうれしいです。(^｡^)
それでは、みなさん、ぼちぼち感想戦をはじめましょうか。
＞２日ぐらいは、７０字切り程度で抑えておいた方が、いろいろな方の
＞解答が出るのではないでしょうか？
・・・というご意見を頂戴している。その通りかもしれない。
初日は文字数に関するコメントは一切禁止で、参加表明に
止めておいた方がいいのかもしれない。この辺りのことを
どうするかは解答を作るよりもはるかに難しい。
幸い、次回の出題者は悪児さんなので、コメントに関する
ルール（次回用）も提示していただけるとありがたい。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と違い、エラーが赤で表示されるので
セルの背景を赤にして誤魔化したというわけだ。