表計算一筆書き・・・独裁者【解答】

問題はこちらを参照。

Excelでは７０文字がくまぷーの最短でした。

エンジン部分にはK方式（Kはかずさんの頭文字）を

使っています。ですから、まず間違いなく、かずさんの７０文字と

同じだと思われます。ということで７０文字は元祖かずさんにお譲りします・・・

・・・でくまぷーの解答はJ方式（A系改め、ジョー３さんのJです）で

７６文字です。

=LEFT("★",ISREF($K$10 (F5,E4,D3,G4,H3,G6,H7,E6,D7,E2,F1,I4,J5,G8,F9,C6,B5)))

ハイブリッドの７７も作りましたが、それは他の方に

お譲りします。

三四郎ではK方式の６３文字です。

=If(Find(Char(Col(A1)+Row(A1)*11+5,5),"M5AaWYeC9+!IUEQoy"),"★")

・・・さて、くまぷーはExcel-K方式で７０文字を切ることができませんでした。

６０台の解答はどこをどう減量したのだろう？興味津々です。(^O^)

Comments

[投稿情報: y sakuda]

今回はハイブリッドのExcel77（たぶん基本的には77の人は同じだと思いますが）
=LEFT("*",OR(SUMSQ(ROW()-6,COLUMN()-6)={0,2,8,16},ISREF($J$9 (D1,H3,B5,F7))))

しかできませんでした。
かずさん方式は私も70から全く進まず・・・

後長くてだめなんですが、別解としてハイブリッドのExcel92を出しておきます。
=LEFT("*",OR(ROW()+{1;-1}*COLUMN()-{12;0}={4,0,-4})*ISREF($K$11 (F4:H10,D4:J6,B6:E8,D2:F3)))

[投稿情報: ジョー３]

へーーー、、
63文字ですかーーー
すごいですーーーー

[投稿情報: ジョー３]

=LEFT("*",OR(ABS(ROW()-{4,6,6,8})+ABS(COLUMN()-{6,4,8,6})+AREAS(A1 (A1,$G$3,$C$5,$I$7,$E$9))=3))

あはは、、これは、、無理矢理の
９６だった。

素材で、、、終わっちゃった。
９４は、、、ちょっと短縮したが？？？どこへ行ったのか、、、

[投稿情報: minmax]

今回はぴんと来るものがなかった。
Sakudaさんのハイブリッド・・・そうやるんですね。
自分でやったときは、８４でかなり長くなりました。
Sakudaさんのもう一つのハイブリッドもよくわかりませんが、
苦労されていますねぇ。
（もう少し見てみます）

私のエクセル６８はK方式で
=LEFT("★",COUNT(FIND(CHAR(COLUMN()+1&ROW()-1),"G>5]@Th#Ks.BV9aXO")))
です。
これ以上短くする方法はみつかりませんでした。

[投稿情報: えくせるバカ]

ハイブリッドはy sakudaさんと
殆ど同じでした。
K方式で69文字は
=IF(ISERR(FIND(CHAR(ROW(A2)&COLUMN()-1),"ajs@#59,BDGKORTV]")),"","★")
でした。
minmaxさんが68文字宣言されたので
奮起し、思い切ってCHARを外して
=IF(ISERR(FIND(COLUMN()-1&ROW()-1,266446842&-33773.595515)),"","★")
67文字ができました。

[投稿情報: minmax]

くまぷーさんの三四郎のChar
Unicodeでやっているところが不思議ですね。

[投稿情報: かず]

くまぷーさん、ども～
で、期待通りの？
=IF(ISERR(FIND(CHAR(COLUMN()*11+ROW()+5),"!-59?ACIMQWY[aemy")),"","*")
です。

参照先を替えるまでは、思いつきませんでしたね。

[投稿情報: minmax]

えくせるバカさんの＆で数字をつなぐのいいですね～

参りました。

[投稿情報: えくせるバカ]

ジョー３さんのは力作ですねぇ～！

minmaxさんのCOUNTは面白い！！
こんな使い方があるとは・・・
また機会があればでやってみよっと

[投稿情報: minmax]

>こんな使い方があるとは・・・
COUNTは一筆書きで何度か使っていますよ(^o^)

「はじめ」でも使った式を提示したと思います。
えくせるバカさんはてっきりCOUNTを使っているものと思っていました。

[投稿情報: くまぷー]

くまぷーのハイブリッド７７は・・・

=LEFT("★",OR(SUMSQ(ROW()-6,COLUMN()-6)={0,2,8,16},ISREF($K$9 (C5,G7,I3,E1))))

・・・です。
やはり基本的にはsakudaさんと同じでした。

[投稿情報: くまぷー]

＞くまぷーさん、ども～

かずさん、どもです(^O^)

きまぷーのK式は・・・
=IF(ISERR(FIND(CHAR(COLUMN()+ROW()*11+5),"M5AaWYeC9+!IUEQoy")),"","@")

・・・でした。同じ・・・ですね。(^O^)

[投稿情報: y sakuda]

うーーん、ｋ方式で&でつなぐのは全く思いつかなかったし、IsErrの代わりにCountってのも考え付かなかったな・・・

[投稿情報: えくせるバカ]

＞「はじめ」でも使った式を提示したと思います。
ありました！
次の日も仕事だったのでこの時間には
寝てしまって見てませんでした。(*^^)＞

[投稿情報: くまぷー]

＞minmaxさんのCOUNTは面白い！！

×２

これ、気づきませんでした。
気づいていれば・・・
=IF(ISERR(FIND(CHAR(COLUMN()+ROW()*11+5),"M5AaWYeC9+!IUEQoy")),"","@")
・・・を
=LEFT("@",COUNT(FIND(CHAR(COLUMN()+ROW()*11+5),"M5AaWYeC9+!IUEQoy")))
・・・して１文字短縮か・・・φ(･_･)ﾒﾓﾒﾓ

[投稿情報: minmax]

countを使うと今回の場合１文字減るんですよね～
便利でしょ～

[投稿情報: くまぷー]

＞ｋ方式で&でつなぐのは全く思いつかなかった

×２

さすが！！

[投稿情報: えくせるバカ]

＞えくせるバカさんはてっきりCOUNTを使っているものと思っていました。
Count使ってたら６６文字でしたね・・・。

[投稿情報: くまぷー]

＞ジョー３さんのは力作ですねぇ～！

×２

はじめ見たとき・・・

AREAS(A1 (A1,$G$3,$C$5,$I$7,$E$9))

・・・どうしてA1が２つあるのかと思ったけど・・・
エラーを出さないためなのね～φ(･_･)ﾒﾓﾒﾓ

[投稿情報: くまぷー]

＞くまぷーさんの三四郎のChar
＞Unicodeでやっているところが不思議ですね。

そうなんです。(^^ゞ
Charの第２引数を５にしてUnicodeを
指定しないでデフォのシフトJISだと
エラーがでちゃうんですよね～(^^ゞ

[投稿情報: minmax]

＞エラーがでちゃうんですよね～(^^ゞ
それで三四郎でうまくいかなかったのかぁ～
やっと納得・・・
そこまで気づかなかった。

[投稿情報: とても名乗れないです（MoMAだとは・・・）]

最近開いていなかったですが
ちゃんとトライはしたとです・・・
258・・・のままですが(笑）

[投稿情報: くまぷー]

>ちゃんとトライはしたとです・・・

お～、有り難うございます。
それだけでうれぴこです！！(^O^)

あと２文字減量できりのよい２５６ですね！！