表計算一筆書き・・・夜更け【解答】

問題を出した日に終了モードなんて、ツワモノ向けにはならないような気がした。

三四郎　ＲＣ万能系

９２文字

=If(IsOdd(Fold("00121030128616761088406410881088108840944094",4,Row(A1)) DIV 2^Col(A1)),"●")

あっさり破られていた。


きらきら星については鑑賞会でお楽しみ下さい。

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

きらきら星についてはファイルをメールにて

送付していただければ、順次展示させて

頂きます。よろしくお願いいたします。

　　　　　　　　　　　　　　　　　　　　　　くまぷー

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

★作品展示会

１．Excel_Bakasan_tukiyonohoshi.zipをダウンロード （えくせるばかさん）

    F9キーを押して下さい。星が瞬きます。

Comments

[投稿情報: y sakuda]

A系は78にしかなりませんでしたので、minmaxさんの待ってます^^
私はRC系は100を切れなかったです。
Excel130
=LEFT("○",OR(ROW()＞9,(COLUMN()={6,10})*(ROW()＞{4,1}),(ROW()=6)*(COLUMN()＞4),ROW()*11+COLUMN()={13,14,23,24,34,35,41,46,47,51,53}))

[投稿情報: くまぷー]

スミマセン、J式の７８しかやっていません(^^ゞ

=LEFT("*",ISREF($K$11 (1:2,B3:B10,F3:F7,A6:G6,E8,D9,C8,J9:K10,I11:J11,I8:J8)))

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

>A系は78にしかなりませんでしたので、minmaxさんの待ってます^^ ×2

Ａ系以外ではＲＣドットしか思い浮かばず８３文字
=REPT("●",COUNT(FIND(CHAR(ROW()+3&COLUMNS(A:$H)+(F8>0)),"{ =SH[^]\gq/0;:EDNM5?I")))

きらきら星はメールしまーす(^o^)／

[投稿情報: minmax]

私のはハイブリといっても完全なハイブリではありません。
まだ外出中ですので帰って検証してから書き込みます。

[投稿情報: きっちー]

三四郎でJ式は出来ないのです。

三四郎のRC万能系

７７文字

=If(Choose(Col(A1),6,15,9,,32,496,40,36,40,510,32)*2+3072 ANDB 2^Row(A1),"●")

８４文字

=If(Decimal(Fold("00c40650668c440fe0440440440ffeffe",3,Row(A1))) ANDB 2^Col(A1),"●")

[投稿情報: かず]

J式のみです。

=LEFT("●",ISREF($K$11 (1:2,I11:J11,J9:K10,I8:J8,A6:G6,B3:B10,F3:F7,C8,E8,D9)))&
LEFT("☆",ISREF($K$11 IF($D$8="",(I6,E10,H4),(G11,K4,G8))))

の138文字です。

[投稿情報: minmax]

y sakudaさん、えくせるバカさん、きっちーさんよく頭が混乱しないですね。
えくせるバカさんのように＆を使ったものも頭にあったのですが結論に至りませんでした。
COUNTとＦＩＮＤさらにF8>0・・・いいですね～

さて、わたしの７６文字
みなさんにくらべるとほんとたいしたものではないですが・・・
=LEFT("●",(A3=0)+ISREF($K$9 (B1:B8,A4:G4,D7,E6,F1:F5,I6:J6,J7:K8,I9:J9,C6)))
です。
当初からA3=0を使うという発想はあったのですが、
頭の中で長くなると思いこんでいて時間もなくやめていたものです。

ついでに、すごく単純にやった３５１文字も提示しようかなぁ

[投稿情報: くまぷー]

えくせるバカさん、ファイルの送付ありがとうございます。
早速展示させて頂きます。

・・・でも、なぜか２０００だとマクロの
警告が出ないのに２００７だと警告が・・・

[投稿情報: きっちー]

私のは混乱はしません。

ROW（）セルをビットに見立てて、２進演算をSUMで作成した物です。

８４文字は１６進、７７文字は１０進、
共通セルA10からA11の、２進上位２ビットを別に加算しました。

ビット式ですね。

[投稿情報: y sakuda]

>よく頭が混乱しないですね
A3=0の方がよほど・・・・・
そういえば、この前このテクニックつかわれてましたよね・・・・・
全く頭に浮かばなかった^^;
私の130なんかは単に線引けるところは普通にやって、月と屋根をプロットしただけです。

[投稿情報: minmax]

えくせるバカさん
GET.CELLですか～
うまく使えないけど・・・
さすがですね～

[投稿情報: minmax]

＞GET.CELLですか～
ん？
やっぱりどう使ってるのかわからん

[投稿情報:]

＞警告が出ないのに２００７だと警告が・・・

すいません
文字数を見る式表示に4.0マクロ関数つかってるのが原因だとおもいます。
２００７持ってないのでマクロ扱いになるのをしりませんでした。

＞（A3=0）+
なるほど、そうすればよかったんですかぁー
A系７８が一番短いと思ってましたので
このように使うのは考えませんでした^^;

ごらん頂いたように私のは、基本はかずさん方式で、minmaxさんのテクをプラスして
邪魔なF列表示を回避させました(^^)v

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

名無しはえくせるバカでしたm(__)m

[投稿情報: くまぷー]

>文字数を見る式表示に4.0マクロ関数つかってるのが原因だとおもいます。

ほう～、なるほど・・・

[投稿情報: y sakuda]

>文字数を見る式表示に4.0マクロ関数つかってるのが原因だとおもいます
確かに文字数と言う名前で使ってますが、この名前自体使ってないのでは？
私の勘違いかな？

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

仕事場のBOOKはこれで式表示してるのですが、
家で作ったのと仕事場で作ったのを
ひとつのBOOKにまとめて送りましたので
こんなことに・・・。

[投稿情報: きっちー]

三四郎７６文字　まで　打ち止め。

=If(Choose(Col(A1),6,15,9,,32,496,40,36,40,510,32)-512 ANDB 2^Row(A1)/2,"●")

いつもながら油断できない人たちだねぇ。(^^ゞ

[投稿情報: くまぷー]

>いつもながら油断できない人たちだねぇ。(^^ゞ

ほんと、ここの常連さんはすごい・・・(^O^)

[投稿情報: y sakuda]

かずさんとえくせるバカさんの動く方も観賞しました^^
ようやるは・・・・・

[投稿情報: y sakuda]

今週はローテの最終回ですねーー
minimaxさん忙しいって仰ってましたが、出題できるのかしら？

[投稿情報: くまぷー]

もうすでに問題を頂いております(^O^)

[投稿情報: y sakuda]

>もうすでに問題を頂いております(^O^)
楽しみにしてます^^

[投稿情報: ジョー3]

＞かずさんとえくせるバカさんの動く方も観賞しました^^
＞ようやるは・・・・・
×２