Excel Maniacs

第３３問 あいうえおテトリス （その２）

【問題】

　D2の文章に含まれる「あ」「い」「う」「え」「お」の数を

調べて視覚化する。

　前回のQ2では下図のようになった。

*

*

*

*

*

*

*

*

*

それを今度は横に「■」が揃ったら、その横列の「■」を消去して

その列の分、表の中の「■」を下方にずらしたい。

*

*

*

*

*

*

*

*

*

D6に入力した式をH15までコピペして完成させるには

D6にどのような式を入力すればよいか？

解答用参考ファイル：Q33_2009.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん出題）

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

尚、解答発表は９／５（土）の８：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

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

ノンマクロでテトリスを・・・

　エクセル界の奇人（？）、あのジョー３さんから
ノンマクロでテトリスを作るというお題が出された。
VBAを使って作るのならば誰も驚かないと思うが
ノンマクロ・・・
　これは「動かす会」への挑戦か？！

　初めはくまぷーもそんなの、無理・無理・無理・・・
と思ったが・・・

果たしてVBAを使わずにどこまで
テトリスに迫れるのか？！

果たしてジョー３さん以外に参加者はいるのか？！(^O^)

第32問 あいうえおテトリス 解答例

一応、

出題者案を送りますね、

Q1：４４：=REPT("■",LEN($D1)-LEN(SUBSTITUTE($D1,D2,)))
Q2：２８：=IF(LEN(D$3)+ROW()＞9,"■","")
Q2は、他に２９，２７もありましたが、、
言われるまで気付かなかった。・・・・２０はね、、、

　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

---------------------------------------------------------------------------------------------------

今、映画館にいて投稿できないので、この場を借りて・・・

Q1：４４：=REPT("■",LEN($D6)-LEN(SUBSTITUTE($D6,D7,)))

これはジョー３さんとセル番地が違うだけですね　(^^ゞ

Q2：２０：=MID(D$8,20-ROW(),1)

Q1なしのQ2：５６:=LEFT("■",19-ROW()<LEN($D$6)-LEN(SUBSTITUTE($D$6,D$7,)))

さて、４７というのはどういうんだろう？

　　　　　　　　　　　　　　　　　　　　　　　　　　　　（くまぷー）