表計算一筆書き・・・侵入者【解答例・代理くまぷー】

かず師匠の到着が遅れているので

代理のくまぷーの解答です。(^^ゞ

★三四郎（６０字）

=If(Right(Now(),3) MOD 121+1=Row(A1)+(Col(A1)-1)*11,"白","黒")

ちなみに三四郎の再計算はShift＋F2です。(^^ゞ

上式をA1からK１１にコピーしてShiftを押したままF2を

押して下さい。

★Excel（６０字）

=IF(MOD(RIGHT(NOW(),3),121)+1=ROW()+(COLUMN()-1)*11,"黒","白")

Excelの再計算はF9です。

上式をA1からK１１にコピーしてF9を押して下さい。

Comments

[投稿情報: くまぷー]

今、体育館から帰って来ました。
頭の中はゆだっていて、とても
ものを考えられる状態ではありません。
食事・風呂・しばらくは休憩　(-。-)y-゜゜

[投稿情報: minmax]

kirさんの式を見る前に投稿しようと思っていたものは、
えくせるバカさんのまねで文字数気にせず
ちょいずるでいこうと思ったものです。
kirさんのをちらっと見たときに
何かちょっと似ているなと思ったのですが、
その後で「REPT("　",RAND()*121」を見たとき
やられたと思いました。
ちょっとだけ考え方は似ていますが、
完成度は雲泥の差・・・
=IF(ROW()*COLUMN()=1,IF(RAND()*121<1,"■"&REPT(" ",9)&0.119,"□"&REPT(" ",9)&RAND()),IF(MOD(MID($A$1,13,3),120)+13+(LEFT($A$1)="■")=ROW()*11+COLUMN(),"■","□"))
もう１年くらい考える時間があれば、kirさんのような式になったかも。
REPTも使っていけど気づかなかった・・・

あと、基本的に文字数長いもの好きなので、
私も、Ｙ・Ｔ さんの577文字楽しみ。

[投稿情報: ジョー３]

now() の手法が、たくさん出て、
rand()　の手法が、少し出て、

ま、ま、まさか、

rand()　　も、
now()　　も、
使わないのが、出てきたりして、

なんか、どこかで、・・・・・忘れたけど、

[投稿情報: minmax]

ちょっと気になって・・・
=IF(ISREF($A$1 A1),IF(RAND()*121<1,"臼","白"&REPT("　",RAND()*120)),IF(LEN($A$1)=ROW()*11+COLUMN()-11,"臼","白"))
のkirさんの式
セルK11が臼にならないような気がする。
気のせい？？
でどこを直せば良いのか分からない？？

[投稿情報: Ｙ・Ｔ]

ただいまです～。

掲載する前にkirさんがすごい式を
出してきました・・・。

これでまた、恥ずかしくなったけど掲載します、怒濤の577文字をｗｗ

=IF(ADDRESS(ROW(),COLUMN(),4)="A1",MID("白臼",(INT(RAND()*121+1)=ROW()+(COLUMN()-1)*11)+1,1),
IF(ADDRESS(ROW(),COLUMN(),4)="K11",IF(COUNTIF($A$1:$K$10,"臼")+COUNTIF($A$11:$J$11,"臼"),"白","臼"),
IF(ROW()=1,
IF(COUNTIF(OFFSET($A$1,,,11,COLUMN()-1),"臼"),"白",MID("白臼",(INT(RAND()*121+1)=ROW()+(COLUMN()-1)*11)+1,1)),
IF(COLUMN()=1,
IF(COUNTIF(OFFSET($A$1,,,ROW()-1),"臼"),"白",MID("白臼",(INT(RAND()*121+1)=ROW()+(COLUMN()-1)*11)+1,1)),
IF(COUNTIF(OFFSET($A$1,,,11,COLUMN()-1),"臼")+COUNTIF(OFFSET($A$1,,,ROW()-1,COLUMN()),"臼"),"白",MID("白臼",(INT(RAND()*121+1)=ROW()+(COLUMN()-1)*11)+1,1))))))

ぷぷっ(T_T)
はじめに考えた式なので
余計なものばかりついているｗｗｗ

[投稿情報: ジョー３]

＞掲載する前にkirさんがすごい式を
それはそうだけど、

＞怒濤の577文字をｗｗ
こんなに長いのに、よく思考が続く・・・
って、ことで、すごいことです。

[投稿情報: minmax]

すごい！！
見ただけで感動した！！
さっぱりわからん
これからエクセル君に移植してみます。

[投稿情報: かず]

うぉぉっ、出掛けてたら凄い事に！！

[投稿情報: minmax]

>うぉぉっ、出掛けてたら凄い事に！！
そう、コメント数は１００を超えているし。
解答に対するコメントで１００を超えるのって
珍しいことじゃなかったでしたっけ？

[投稿情報: y sakuda]

YTさんの仕掛けはさっぱり分からないけど確かに動く。すばらしい。

全部つなげてみたら577じゃなくて572になってますが、どこかコピーミスしたかな？
F9押し続けるとなぜか分からないけどK11が好きみたいですねーーｗ
それにしても、こんなに長くてちゃんと動く式作る人のExcelの腕って、それだけで表彰ものだとオモフ・・・・
少なくともσ(^^)はこんな長いの正しくコーディングする根性ないです^^;

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

うへー、見慣れた関数しか使われてないのに、さっぱり理解できない・・・(>_<)
Ｙ・Ｔさん、、凄すぎです！！
どうしてＦ9で動くんでしょうか＼(◎o◎)／？？

[投稿情報: くまぷー]

お早うございます。昨日は疲れて早く寝てしまいました。
いつもよりも、睡眠時間は多いのですが
歳のせいか、ぜんぜん疲れが取れません。
今日は８：２０から、某高校と練習試合です・・・。
その間に抜け出して、夏期補習もやります。
世間では「先生は夏休みがあっていいですね」なんて気楽なことを言う人がおおいけれど・・・(>_<)

さて・・・掲示板ですが

＞うぉぉっ、出掛けてたら凄い事に！！

た、確かに・・・
kirさんの式も、Y・Tさんの式もものすごい！！

くまぷーの理解力のはるか彼方にあります！！(O_o)WAO!!!

参りました◇＼(o・Ｑ・o)／◇

[投稿情報: Ｙ・Ｔ]

>全部つなげてみたら577じゃなくて
>572になってますが、・・・
あ、もしかして式に改行を入れて
いたのでそれでプラスされたのかも
しれません＾＾；；

>F9押し続けるとなぜか分からないけど>K11が好きみたいですねーーｗ
そうなんですょｗ
K11が自分の家みたいですｗｗｗ

>どうしてＦ9で動くんでしょうか
ふふふｗ　それはエクセルの仕様
だからですｗｗ

>くまぷーの理解力のはるか彼方にあります
それは、今回見せていただいた
式で勉強になりましたし、私から
みなさんにも言えることです＾＾

すごく楽しませていただきました。
また、参加させてくださいｗｗ

P・S
一筆書きじゃないけど
最後にちょいとお遊び版をｗｗ
・A1:K11を選択して、Ctrl+Shift+Enter

=IF(RANDBETWEEN(1,121)*(ROW(1:11)+COLUMN(A:K))^0=ROW()*11+COLUMN()-11,"臼","白")

ぷぷぷｗ

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

>最後にちょいとお遊び版をｗｗ
お遊び版てもんじゃない、、
今までで一番の完全版じゃないですかぁー
参りましたm(__)m

[投稿情報: ジョー３]

あはは、、、

あるもんだねーーー

まだ、仕掛けは分かってないけど、、
きちんと動いてますよね。

お昼にまた見てみます。

[投稿情報: kir]

>でどこを直せば良いのか分からない？？
あっ、臼が存在しない可能性も・・・
RAND()*120の後に+1が必要ですね。
御指摘ありがとうございます！

>=IF(RANDBETWEEN(1,121)*(ROW(1:11)+COLUMN(A:K))^0=ROW()*11+COLUMN()-11,"臼","白")
RANDで配列数式だと全セル別々だったけど、
RANDBETWEENだとＯＫなんですね！気付かなかった。

[投稿情報: kir]

それからＹ・Ｔさんの短縮版
{=IF(RANDBETWEEN(1,121)*(L1:V11+1)=ROW()*11+COLUMN()-11,"臼","白")}
65文字

[投稿情報: Ｙ・Ｔ]

今読み返せば、minmaxさんが
一番はじめに閃いた式と酷似して
いました＾＾；；；

>あるもんだねーーー
まだ誰かが隠し式をもってるかもｗ

>一番の完全版じゃないですかぁー
いや、一番のインチキ版ですｗ

>kirさん
すばらしい～ｗ　
その発想はなかったです＾＾；

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

私の検証では
{=IF(RANDBETWEEN(1,121)=ROW()*11+COLUMN()-11,"臼","白")}
これでも十分でした・・・
(Excel2000)

[投稿情報:]

>RANDで配列数式だと全セル別々だったけど、
>RANDBETWEENだとＯＫなんですね！気付かなかった。
どっちも、同じって、やらないで判断・・・・
しないって、すごいことですね。

＞これでも十分でした・・・
そか、now が　RANDBETWEEN
に、変わって、配列になると、・・・
そんな雰囲気でいいのね。

えーーー、とここまで書いて、
=now() を同様に配列では？？
もしかして、！！
押し入れに隠れたり、分身の術は
使えなくなるのかなと思って、
ちょっとやってみた。
でも、時間がないから1分ぐらいだけね、
その間、分身の術とかはなかった。

[投稿情報: ジョー3]

↑　　でした。

[投稿情報: ジョー3]

65536行　
now()
で、確認しました。
・・・・知りませんでした。

[投稿情報: kir]

>これでも十分でした・・・
えくせるバカさんの仰るとおりですね・・・orz
さらにちょこっと変更
{=IF(RANDBETWEEN(12,132)=ROW()*11+COLUMN(),"臼","白")}
52文字

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

・・・てことは
minmaxさんはCtrl+Shift+Enterさえすればよかったのかぁー、

[投稿情報: くまぷー]

・・・ところで、今日は火曜日。
新しい「お題」を発表する日。

またまた凄いぞ！！

[投稿情報: y sakuda]

土曜日の段階ではNow方式くらいしか無いと思ってたんですが、ｋｉｒさんＹＴさん登場から飛んでもない展開になっちゃいましたねーー
本当に面白かった・・・・・
でも、ＹＴさんの長大版いまだに理解できないですｗｗｗ

[投稿情報: minmax]

もう終わってるけど、、
RANDBETWEENに気づいた方は大勢いると思うけど、
勇気を出して書き込んだ自分が偉いと思った。
(式は間違っていたけど)
配列数式をやったあなたはもっと偉いと思った。
その発想がおらには足りない(T_T)

[投稿情報: ジョー3]

>その発想がおらには足りない(T_T)
いやー・・・もちょっとでしたねーー
もちょっと飲んでたら、
3っつのキーを同時に押してたかも。