表計算一筆書き・・・動 【解答】

さあ、それではかずさん出題の「動」の回答例ファイルの

展示会を開きましょう。

★かずさんの作品

   １．動.zipをダウンロード

　 ２．移動.lzhをダウンロード

　 ３．Updown.lzhをダウンロード

★ジョー３さんの作品

　１．花火.lzhをダウンロード

★くまぷーの作品

　１．万華鏡.lzhをダウンロード

★えくせるバカさんの作品

　１．動.lzhをダウンロード

★きっちーさんの作品

　１．右折.lzhをダウンロード （三四郎）

★ｋｉｒさんの作品

　１．花火.lzhをダウンロード

★悪児さんの作品

　１．流星・ゴロゴロ.lzhをダウンロード （三四郎）

　２．流星・ゴロゴロ.lzhをダウンロード

※ExcelファイルはF9を押下し続けると、なんと図が動きます。

※三四郎ファイルはShift　＋　F2で図が動きます。

　　いやあ、みなさん、よくやりますねえ～(^^ゞ

　　あ、そう言えば、おいら、「動かす会」の会員だったけ・・・(^^ゞ

Comments

[投稿情報: ジョー３]

皆さんすごいですね、
万華鏡：早さを５倍ぐらいにして、遊んでみました。

かずさん、、人が走って見えました。

えくせるバカさん、、形の変形が、、、
面白いですーーー

[投稿情報: かず]

いやはや、ジョー３さんの花火も
面白いですね！！

（今夜はお客さんがあって、明日ゆっくり見させて頂きます）

[投稿情報: kir]

ツール→オプション→計算方法
　再計算にチェック・最大反復回数１
=IF(ROW()*OR(COLUMN()={1,2})=1,IF($K$11=0,"",IF(COLUMN()=1,IF(LEN($A$1)>8,"",REPT("　",LEN($A$1)+1)),IF($A$1="",REPT(" ",RAND()*5),A1))),
IF(LEN($A$1)<6,LEFT("*",AND(COLUMN()=3+LEN($B$1),ROW()+LEN($A$1)=11)),LEFT("*",ROWS(1:$6)+COLUMNS((A1:OFFSET($F:$F,0,LEN($B$1)-3)))-LEN($A$1)=-4)))
F9押すと動きます。一応花火です。
A1がカウンターでB1が発射位置の補正用です。
最大反復回数ふやすと連発するけど早すぎて分からん事にorz

・かずさんはさすがきれいに纏められてますね。
　走ってる人もおもしろいです！

・ジョー３さんとかぶっちゃいました。
　やっぱり最後は円のほうがいいですねえ。

・くまぷーさんの幾何学とか独特の模様が出来るんですね。

・いや～きれいです。ハートが見えました。

[投稿情報: きっちー]

遅れて送りました。

三四郎はnow関数は１秒ごとに更新されるんで早くならなぃ。

作業セルがないとドーモならんし。

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

kirさんのをジョー3さんとこに貼り付けて
並べて花火大会を楽しみました！

くまぷーさんのはホンとに万華鏡のようですねぇ～

かずさんの特に走るやつは、面白い！
研究してみよっと

[投稿情報: y sakuda]

仕掛けはまだ見てませんが・・・・
どれもこれも凄いです。
開いた口がふさがらない^^;

[投稿情報: くまぷー]

きっちーさん、どもです。
早速、展示しますね。(^O^)

[投稿情報: くまぷー]

きっちーさんのファイルをアップしました。
ご覧ください。

ｋｉｒさんのはこちらで作ってアップしますね(^O^)

[投稿情報: くまぷー]

ｋｉｒさんの作品をアップしました。
ご覧ください。

[投稿情報: minmax]

お久しぶりです。
皆さんすばらしいです。
どうなっているのか良く検証してませんが
えくせるバカさんがCount使っているのがちょっとうれしい
問題はやってません(^^;)

[投稿情報: くまぷー]

minmaxさん、どもです。(^O^)
お時間ができたら、参加してくださいd(^-^)ネ!

お待ちしていま～す　(^.^/~~~

[投稿情報: minmax]

＞お時間ができたら、参加してくださいd(^-^)ネ!

くまぷーさんありがとうございます。
しばらくは気力が出ないかも・・・
おまけにキーボードの「A」がいうことをきいてくれない(T_T)

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

おお～minmaxさん
どうしてましたか？
＞おまけにキーボードの「A」がいうことをきいてくれない(T_T)
ノートＰＣなら厄介ですねぇ～

次回には復帰してくださいよっ！

[投稿情報: 悪児]

ちょっと遅くなりましたが、帰りの電車で作ったので、アップします。
もっとも字数は詰められるのですが・・・(^^;(^^;

流星
三四郎89
=If(Len($K$11)=Row(A1) AND Row(A1)+Col(A1)=12,"☆","") & If(Len($K$11)>=11,"",$K$11 & " ")
Excel83
=IF(AND(LEN($K$11)=ROW(),ROW()+COLUMN()=12),"☆","")&IF(LEN($K$11)>=11,"",$K$11&" ")

ゴロゴロ
三四郎88
=If(SumSq(Len($K$11)-Col(A1),4-Row(A1)) DIV 4=2,"●") & If(Len($K$11)>=13,"",$K$11 & " ")
Excel 91
=IF(INT(SUMSQ(LEN($K$11)-COLUMN(),4-ROW())/4)=2,"●","") & IF(LEN($K$11)>=13,"",$K$11 & " ")

流星２
三四郎100
=If(SumSq(12-Len($K$11)-Col(A1),Len($K$11)-Row(A1)) DIV 2=0,"☆") & If(Len($K$11)>=13,"",$K$11 & " ")
Excel103
=IF(INT(SUMSQ(12-LEN($K$11)-COLUMN(),LEN($K$11)-ROW())/2)=0,"☆","") & IF(LEN($K$11)>=13,"",$K$11 & " ")

[投稿情報: くまぷー]

悪児さん、お早うございます。
作品を追加展示いたしました。

みなさん、ご覧ください。(^O^)

[投稿情報: y sakuda]

>あ、そう言えば、おいら、「動かす会」の会員だったけ・・・(^^ゞ

あれ、確か、入ったが最後絶対に抜けられないというオトロシイ組織ではｗ
Excelを遊びの道具として使うことに命を懸けてる不思議な集団^^

[投稿情報: くまぷー]

>入ったが最後絶対に抜けられないというオトロシイ組織ではｗ

はい(^^ゞ

「退会は存命中には認められない。」－会員規約より抜粋－

・・・です。(^^ゞ

[投稿情報: y sakuda]

>「退会は存命中には認められない。」－会員規約より抜粋－
そうか、死ねば抜けることは可能なのかｗ

うろ覚えですが、↑の規約見て入るのやめた覚えが^^;

[投稿情報: ジョー３]

>入ったが最後絶対に抜けられないというオトロシイ組織ではｗ

あはは、、、そんな恐ろしい組織なのに、、

一度、間違えて呼んじゃった。
そしたらね、叱られた＝そこの会員の方にね。

なんと呼んだか？　・・・・動く会。

[投稿情報: くまぷー]

>、↑の規約見て入るのやめた覚えが^^;

紙媒体で5000ページという伝説の
規約ですね(^^ゞ

＞あはは、、、そんな恐ろしい組織なのに、、

ジョー３さんがきっかけで入ったんですよ(^^ゞ

[投稿情報: y sakuda]

改めて会員名簿見ると、EWのメンバー覆いですねーー
ここに顔を出している方ではかずさんとくまぷーさんだけ見たい。
なんとジョー3会員じゃなかったんですね・・・意外ｗ

[投稿情報: ジョー３]

＞ジョー3会員じゃなかったんですね・・・意外ｗ
おら、うごけないから、、

[投稿情報: かず]

いや～、今回も楽しませて頂きました。

それにしても、皆さん良く色々思いつかれるものですね！！