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

問題はこちらを参照。

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

【解答】

三四郎：６０文字

きっちーさんより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関数あたりのお世話にならざるを

　　　　　得ないかな・・・

Comments

[投稿情報: y sakuda]

私のアルゴリズムはこちらにはあまり上手く適用できないので、さらっとやってみただけで

=MID(" ■■■●",SUM(((6-ROW())*(COLUMN()-6)/{-2;-2;-2;-2;1;2;4;6}={1,1.5,4,6})+0)+1,1)

Excel８３文字です。
えくせるバカさんの60までは分かったけど、もっと縮まってるみたいで楽しみ^^

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

Ⅱの
６０はⅠのを数字の並び替えて
=MID(" ■●●",FIND(MID((COLUMN()-6)*(ROW()-6)/5,3,1),2.468),1)
５９はちょっといじって
=MID("● ■",ABS(5-(0&MID((COLUMN()-6)*(ROW()-6)/5,3,2))),1)
です！
尚、Ⅱをやってる時に
Ⅰの５７が、できてしまったので
Ⅰの解答に追加しておきました。

[投稿情報: y sakuda]

なんか、↑の５８おかしいけど？？

[投稿情報: ジョー３]

>尚、Ⅱをやってる時に
>Ⅰの５７が、できてしまったので
あなたもホント、すごいのねーー
尊敬、尊敬、、、の一手、・・・・

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

"●(スペース×2）■"ですが
貼り付けるとスペースが一つに
なったようですね(>_<)

[投稿情報: minmax]

えくせるバカさんすばらしいです。
０＆とか１＆とかはいろいろ検討しましたが結論には至りませんでした。
結局６０以下にはなりませんでした。
大したものではありませんが
ほかに６０になったものだけ提示します。
=MID("■●",6/FIND(MID((COLUMN()-6)*(ROW()-6)/5,3,1),28.64),1)
そうそう、chooseを使った式もありました。
とりあえずで作ったものですが・・・
=CHOOSE(FIND(MID((COLUMN()-6)*(ROW()-6)/5,3,1),28.64),"","","■","●","●")

[投稿情報: y sakuda]

>"●(スペース×2）■"ですが
見事になりました！^^

えくせるバカさんの流用ですが、minmaxさんのとちょっと違う60です。

=MID(" ●■●",FIND(MID((COLUMN()-6)*(ROW()-6)/5,3,1),24.68),1)

[投稿情報: くまぷー]

うーん、こんどはえくせるバカさんの
独壇場か？！
しかし、よくいろいろなことを考えるもんだ・・・

[投稿情報: 悪児]

三四郎50です。（一応）

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

[投稿情報: くまぷー]

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

やっぱ、これだよね～

◇＼(o・Ｑ・o)／◇ 降参

[投稿情報: y sakuda]

ほとんど観客状態だったけど、えくせるバカさんの面白かった^^

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

>面白かった^^
ありがとうございます
私にとって最高の褒め言葉です！

ところで余談ですが
メンテ中のＥｘｃｅｌWorldですが
携帯サイトは入れました！

[投稿情報: y sakuda]

>携帯サイトは入れました！
日曜から入れるみたいですよ。
私携帯持ってないから試せませんけど^^

[投稿情報: きっちー]

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

どうせならこっちの方が。
５７文字。

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

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

Fold も使いましょうか。
５９文字。

=Fold("■ ● ",1,4-((6-Col(A1))*(6-Row(A1)) MOD 5 ANDB 10)/3)

[投稿情報: ジョー３]

■●
■●●
■■●
●■■
■■■●
・・・・・
！！！

[投稿情報: ジョー３]

↑　これだと、スパムかい？？
と、判断されてしまった。