この単純版をもっと圧縮できないか、
というので作ったのが、単純四分割ミラー版
三四郎(106文字)
=Mid("******* * ***** * * * *** * * ",Abs(Row(A1)-1-10*(Row(A1)>6))*6+Abs(Col(A1)-12*(Col(A1)>6)),1)
Excel(145文字)
=LEFT("*",INDEX({1,1,1,1,1,1;1,0,0,0,0,0;1,0,1,1,1,1;1,0,1,0,0,0;1,0,1,0,1,1;1,0,1,0,1,0},ABS(ROW()-12*(ROW()>6)),ABS(COLUMN()-12*(COLUMN()>6))))
解答3だけで終わっていたら単なる
「ご苦労様」ですが、ここまでやれば
立派です。(^。^)
投稿情報: くまぷー | 2007/09/15 22:03