「星のまたたき」悪児解答

表計算一筆書き「星のまたたき」

http://kumapooh.justblog.jp/blog/2007/10/post_f659.html

悪児解答

三四郎ズル３つ＆Excelズル無し＆お遊び

（ろくなものないです。(^^;)(^^;)）

三四郎

１．循環＆カスタマイズ

=If($F$6=1,--(SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5),--(Rows(A1:A$6)+Cols(A1:$F6)<=5))

（ズル：F6の表示形式を　[E;=1]"";[E;=0]"*"　にカスタマイズ）

２．循環＆作業セル

=If(If($L$1,SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

（ズル：L1に　=L2 MOD 2　L2に　=L1+1）

３．Now利用：必ず変わるわけではない

=If(If(IsOdd(Second(Now())),SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

Excel

１．ズル無し（循環小数）

=IF(IF($H$11="",INT(SUMSQ(ROW()-6,COLUMN()-6)/5)=5,ROWS(A1:A$6)+COLUMNS(A1:$F6)<=5),IF(INT(RAND()*2),"★","☆"),"")

２．お遊び（F9を押し続けると、瞬きます：Now利用：形不正確）

=MID("　★☆ ☆ ★☆     ",(MID(NOW()&REPT("0",15),13,1)+SUMSQ(ROW()-6,COLUMN()-6))/4+1,1)

Comments

[投稿情報: くまぷー]

ズル無し（循環小数）は傑作だと思います。
式も図形もキレイです(^。^)

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

＞ズル無し（循環小数）は傑作だと思います。
ほんとにきれいだ！
F9押し続けると良くわかりますね。
★と☆がブリンクしながら
入れ替わるとは・・・