Excel Maniacs

表計算一筆書き・・・カレンダー【解答例】

くまぷーさん　こんにちは。

実力試験問題の調子はいかがですか？

お忙しいところだと思いますがよろしくお願いします。

【´･ω･`】:kirさん、お気遣い頂きありがとうございます。

　　　　　　あと、もう少しです。なにせ、仕事が遅いもんで・・・(^^ゞ

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

※A1:A3を選択して数式を入力し、Ctrl+Shift+Enterで確定。Ｋ列→11行の順でドラッグして完成
2008年9月限定
58：{=TEXT(39691+INT((ROW()-1)/3)*11+COLUMN(),{"d";"aaa";""})}
55：{=TEXT(39691+(ROW(A3)/3-1)*11+COLUMN(),{"d";"aaa";""})}
51：{=TEXT(39680+ROW(A3)/3*11+COLUMN(),{"d";"aaa";""})}
50：{=TEXT(39680+ROW(A3)*3.7+COLUMN(),{"d";"aaa";""})}
年月違うが図は同じ
48：{=TEXT(445+ROW(A3)*3.7+COLUMN(),{"d";"aaa";""})}
来月表示
64：{=TEXT(EOMONTH(NOW(),0)+ROW(A3)*3.7-11+COLUMN(),{"d";"aaa";""})}

【番外編】七曜カレンダー　基本形：DATE(年,月,1)-WEEKDAY(DATE(年,月,1))+7*(週-1)+曜日
来月：=TEXT(EOMONTH(NOW(),0)-WEEKDAY(EOMONTH(NOW(),0)+1)+7*ROW()+COLUMN()-13,REPT(IF(A11=0,"d","aaa"),E1<>0))
今月：=TEXT(NOW()-DAY(NOW())-WEEKDAY(NOW()-DAY(NOW())+1)+7*ROW()+COLUMN()-13,REPT(IF(B11=0,"d","aaa"),E1<>0))

表計算一筆書き・・・カレンダー【問題】

　今回が復活・表計算一筆書きの最終回！！

さあ、おおとりを飾るはkirさん！！

お題はカレンダー！！

それでは心ゆくまでお楽しみ下さい(^O^)

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

【問題】セルを利用して下のような図を描きたい。

一つのセルに入力した数式を他のセルにコピペすることで

図を描くにはどのセルにどのような数式を入力すればよいか？

＊

＊

*

*

*

*

*

*

*

*

一般の方にも興味を引きそうな問題にしてみました。

年月が表記されていませんが、2008年9月以降のイメージです。

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

*

*

表計算一筆書き・・・予告

次回の出題者はkirさん・・・・

お題は「カレンダー」・・・

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

　今回は解答者としては丸で駄目です。

あんまり晒したくない出題者解ですが^^;
-------------
今回は特に手段を隠しての出題ではなかったのですが、
出題後も全くこれと言ったアイデアはでず、ほとんど最初に考えた
解答のままでした。
土曜日の夜は観客として楽しませていただきますwww

顔１　83
=LEFT("●",OR(ROWS(1:$3)+ABS(COLUMN()-{3,9})=3,ISREF($K$11 (F6,E5:G5,E1:G1,H2,D2))))

顔２　83
=LEFT("●",OR(ROWS(1:$3)+COLUMNS(A:$I)=4,ISREF($K$11 (F6,E5:G5,E1:G1,H2,D2,G9:K9))))

ウインク　153
=LEFT("●",OR(ISREF($K$11 (F6,E5:G5,E1:G1,H2,D2)),ROWS(1:$3)+ABS(COLUMN()-{9,15}+6*MOD(SECOND(NOW()),2))=3,(COLUMN()<6)*(ROW()=3)*MOD(SECOND(NOW())-1,2)))

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

【´･ω･`】:y sakudaさん、引っ越しでお忙しい中、

　　　　　　本当にありがとうございました。

表計算一筆書き・・・顔 【問題】

　今回ははy sakudaさんの第4弾・・・

で・・・、（なんの脈絡もなく）y sakudaさんの過去問です。

１．皇帝

２．くまぷーさん

３．ロールシャッハテスト

・・・参考までに(^O^)

-------------------------------------------
先週はローテーションを守れないことになり、ご迷惑をおかけしましたm(＿＿)m
ｋ＠自転さんのチェッカーフラッグは極限の短縮を争うことになりましたので、今回は極端には短くならない
具象問題にしました。

顔らしき図形です。
物足りない方は、もう一つ右目をつぶった絵を作り、交互に入れ替えてウィンクさせて

ください。

両方の静止画もウインクも一応やってみましたが、結構長くなっちゃいました。
どうもあまりうまい手がなさそうな気もしますが、1文字刻みの短縮争いになればと思ってます＾＾
私も最初から解答者に回って参加させていただきまーーす。

そういう主旨ですので、字数は最初からオープンでよろしいかと思います。
---------------------------------------------------

【問題】セルを利用して下のような図を描きたい。

一つのセルに入力した数式を他のセルにコピペすることで

図を描くにはどのセルにどのような数式を入力すればよいか？

＊

＊

（顔１）

＊

*

*

*

*

*

*

*

*

*

*

*

*

*

ｃ

*

（顔２）

＊

＊

(O_o)WAO!!!

表計算一筆書きの次回出題者はy sakudaさん・・・

お題は「顔」・・・

これは、かなり・・・(O_o)WAO!!!

表計算一筆書き・・・チェッカーフラッグ【解答例・代理くまぷー】

　Kさんの到着がおくれているので・・・

＊

＊

【固定版１８文字】

A1からB2までを選択。

A1に・・・

={"■","";"","■"}

・・・と入力して、Shift＋Ctrl＋Enter。

マウスをB2の右下に合わせ、プラス形になったら

下方向に１１行目までドラッグ。次に右方向にK列までドラッグ。

＊

＊

【固定版２２文字】

A1からB2までを選択。

A1に・・・

=LEFT("*",{1,0;0,1})

・・・と入力して、Shift＋Ctrl＋Enter。

マウスをB2の右下に合わせ、プラス形になったら

下方向に１１行目までドラッグ。次に右方向にK列までドラッグ。

＊

＊

【白黒反転版５３文字】

A1からB2までを選択。

A1に・・・

=MID({"* "," *";" *","* "},MOD(RIGHT(NOW(),3),2)+1,1)

・・・と入力して、Shift＋Ctrl＋Enter。

マウスをB2の右下に合わせ、プラス形になったら

下方向に１１行目までドラッグ。次に右方向にK列までドラッグ。

表計算一筆書き・・・チェッカーフラッグ【問題】

　今回の出題者はあのｋ＠自転さん。「カクテルグラス」に続く衝撃の第2弾！！

前売りは既に完売、当日売りを求めて劇場前には長蛇の列！！

今、話題の「チェッカーフラッグ」の幕が静かにあがる・・・

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

今回はちょ～～～～～初心者問題です＾＾/

多分、皆さんは物足りないな～～～とか思うかもしれません＾＾；

題目は「チェッカーフラッグ」

そう！ｗ

題名だけでわかるこの簡単さ＾＾；

今までROM専だった方も是非参加してください＾＾

あ、、、物足りないという方は、、、

是非、、、旗を揺らしてみてください！ｗ

・・・・ってそれは無理だよね～～～～＾＾；

てか、、、揺れるように見えたら面白いかも＾＾；

・・・やっぱり無理だよな～～～＾＾；

てことで、、、よろしくで～～す＾＾/

【問題】セルを利用して下のような図を描きたい。

　　　　一つのセルに入力した数式を他のセルにコピペすることで

　　　　図を描くにはどのセルにどのような数式を入力すればよいか？

*

*

*

*

*

*

*

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

お知らせ

明日の出題はｋ@自転さん！！

お題は「チェッカーフラッグ」

～で～す！！(^o^)

出題者順番変更

　次回(8/12)の出題者はy sakudaさんの予定でしたが

都合により、k@自転さんに変更いたします。

よろしくお願い致します。m(__)m

表計算一筆書き・・・フォー・リーヴス【解答例】

【´･ω･`】:今回は完全に観客モードでした・・・。

　　　　　みなさんの解答を見るのが楽しみです。

　　　　　下は、えくせるバカさんから頂いた解答例です。

解答例
【幸福】
３２文字
=LEFT("■",ISERR((F:F,4:4) $K$9))

【花占い】
９３文字
=LEFT("●",SUM((COLUMN()>{5,0})+(ROW()<7),ROW()=6)*ISERR((F:F,4:4)
$K$9)>MOD(SECOND(NOW()),5))

８７文字
=LEFT("●",AREAS((A:K,A:F,F:F,4:9,4:9) $K$9)*ISERR((F:F,4:4)
$K$9)>MOD(SECOND(NOW()),5))

表計算一筆書き・・・フォー・リーヴス【問題】

【´･ω･`】:暑い日が続いていますが、みなさん、お元気でしょうか？

　　　　　　さて、今回の出題はえくせるバカさんです。お題は「フォー・リーヴス」・・・

　　　　　このお題を聞いて、ああ、マグマ大使のマモルくんを思い出した方は

どこに出しても恥ずかしくない立派なおじさんです。(^^ゞ

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

＜コメント＞
今回は皆さんに習って動くやつも考えました^^;
お題は「フォーリーブス」で2問あります。
1問目：【幸福】は初心者向けの固定版です。

常連の皆さんには1問目は、余りに簡単すぎますのでお次を・・・

2問目：【花占い】は、文字の色を変え花に見立てていますが
基本は【幸福】と同じ形。
F9を押すと花びらが一枚づつ無くなっていくというものです。

文字数は最初からオープンでいいと思いますｄ＾＾

【問題】セルを利用して下のような図を描きたい。

　　　　一つのセルに入力した数式を他のセルにコピペすることで

　　　　図を描くにはどのセルにどのような数式を入力すればよいか？

（１問目）

*

*

*

*

*

*

*

（2問目）画像をダブルクリックすると・・・・

*

*

*

*

*

*

*

*

*

*

*

*

（追加図）

表計算一筆書き・・・ダイヤモンドＸ（バッテン）【解答例】

解答（平成２０年７月２９日作成）

ダイヤモンド・バッテン
おもて問の解答
基本１：７２文字
=LEFT("◆",OR((ROWS(1:$6)+COLUMNS(A:$F))=6,(ROWS(1:$6)-COLUMNS(A:$F))=0))
基本２：６８文字
=LEFT("◆",SUMSQ(SIN(ROWS(1:$6)*PI()/6),COS(COLUMNS(A:$F)*PI()/6))=1)
最短：５４文字
=LEFT("◆",OR((ROWS(1:$6)+COLUMNS(A:$F)*{1,-1})={6,0}))

うら問の解答
基本：６６文字
=LEFT("◆",SUMSQ(SIN(ROWS(1:$6)*PI()/6),COS(COLUMNS(A:$F)*PI()/6)))
最短：５１
=LEFT("◆",SIN(ROWS(1:$6)/2)+COS(COLUMNS(A:$F)/2)^2)

ということで、最短を比較すると、うら問の方が３文字少ないという結果でした。

おまけで作ったサンプルの解答（文字数はあまり気にしてません）
Sample１（ダイヤ爆発）
=LEFT("◆",OR((ROWS(1:$6)+COLUMNS(A:$F)*{1,-1})=MOD(SECOND(NOW()*10),12)*{1,0}))
Sample２（色塗り入替）
=LEFT("◆",(SUMSQ(SIN(ROWS(1:$6)*PI()/6),COS(COLUMNS(A:$F)*PI()/6))-MOD(SECOND(NOW()*5),2)*2)^2)
ついでに・・・、目の錯覚だと思いますが、
サンプル版の中心をじっと見つめていると動いていない部分は色が薄くなります。
ちょっと不思議

表計算一筆書き・・・ダイヤモンドＸ（バッテン）【問題】

【´･ω･`】:今回の出題は、いつも何かやってくれる切れ者の

　　　　　　あのminmaxさんだ。各々方、ご油断召されるな！！

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

ダイヤモンドシリーズ第３弾？
再開されてから難しい問題が続いていますね。
今回は初めての方でも参加しやすい？問題とし
表計算一筆書きの原点を振り返って作成しました。

お題
ダイヤモンドＸ（バッテン）

「おもて問」と「うら問」で出題です。
おもて問は初めての方でも簡単に出来ると思います。
うら問はおもて問の発展系で
一部分を塗りつぶしたものです。
うら問は自分でも難しいのか簡単なのかよく分かりません。

【おもて問】

*

*

*

*

*

*

*

*

*

*

【うら問】

*

*

*

*

*

*

*

*

*

*

＜今回のルールはこんな感じでお願いします＞
火曜２０時～木曜２０時
　（おもて問）
　１．80未満の文字数そのものは、書かないでください。
　２．80未満を達成した方は、80未満達成（２種）、という感じで、報告を上げて下さい。
　３．80以上については、現在92文字、という感じで、文字数を上げて下さって結構です。
　（うら問）
　１．文字数そのものは、書かないでください。
　２．おもて問で８０未満を達成している方はおもて問との差１５という感じで、報告を上げて下さい。
　３．うら問しか出来ていない方は８０未満達成（２種）、８０以上（２腫）という感じで、報告をあげてください。
木曜２０時以降。
　１．自由に文字数を報告して下さい。
　２．式そのものや、式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、ご遠慮下さい。

さて、おもて問とうら問ではどっちが短いのかな～？

※物足りない方は、再計算を利用してダイヤモンドの大きさを変えるとか
いろいろアレンジしてもらっても結構です。あくまでも問題ではありませんが。

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

【´･ω･`】:これが真のうら問だ。画像をダブルクリックすると・・・・

【おもて問・うら】

*

*

*

*

*

*

*

*

*

*

【うら問・うら】

*

*

*

*

*

*

*

*

表計算一筆書き・・・お知らせ

　次回の出題者はminmaxさんです。

ご本人曰く・・・・・・・・・・

「 今回は初めての方でも参加しやすい？問題として

表計算一筆書きの原点を振り返って作成しました。」

とのことです。

タイトルは・・・

ダイアモンドX・・・

Coming　Soon!!

表計算一筆書き・・・回転する炎の剣【解答例・代理くまぷー】

【´･ω･`】:前回のかず師匠に続き、ジョー３師匠の到着も

　　　　　　遅れています。しかたがないので前座のくまぷーが

　　　　　　師匠の到着まで場つなぎをさせて頂きます。

【解答例・固定】

=MID(" ■炎■",AREAS($K$9 (I2:I6,A4:I4,4:4,A:K)),1)

(４８文字）

=IF(ISREF($K$9 (I2:I6,I4:K4)),"■",LEFT("炎",ROW()=6))

（５２文字）

【解答例・回転】

=CHOOSE(MOD(SECOND(NOW()),4)+1,IF(ISREF($K$9 (I2:I6,I4:K4)),"■",LEFT("炎",ROW()=6)),IF(ISREF($K$11 (D9:H9,F9:F11)),"■",LEFT("炎",COLUMN()=6)),IF(ISREF($K$9 (C2:C6,A4:C4)),"■",LEFT("炎",ROW()=6)),IF(ISREF($K$11 (D3:H3,F1:F3)),"■",LEFT("炎",COLUMN()=6)))

（２４８文字）

４８文字を発見したのが、７：１５くらいだったから

回転版を考える時間がもう少し欲しかった・・・。

表計算一筆書き・・・回転する炎の剣 【問題】

【´･ω･`】:前回の流れをくんだまたまた動きのある問題です。

　　　　　　しかし、この問題が送られてきたのは、「侵入者」の

　　　　　　発表以前ですので、偶然動きのある問題が重なった

　　　　　　というわけです。あ、申し遅れました。出題はジョー３さんです。(^O^)

【問題】

なんか、マンガっぽくなっちゃいました。ごめん、             
恒例のようにセルＡ１の式をコピーで下記の形を作る。             
物足りない方は、回転させる。             
回転はＦ９押し続けて回ること、他方法は自由。

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

*

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

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

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

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

★三四郎（６０字）

=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を押して下さい。

表計算一筆書き・・・侵入者【問題】

【´･ω･`】:いよいよ、復活第二弾！かずさんの登場だ！！

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

梅雨が明けて、蒸し暑い日々が続きますね。
またまた、熱がでそうですね。
σ(＾＾)は夏の定期修理のまっさ中で、熱中症になる寸前ですよｗ

ところで、くまぷーさんのお題で、エネルギーを使い果たす前に、
お次のお題をお送りしておきます。

お題は「侵入者」、１１×１１マスに漢字を一文字記述して、
一セルだけ、よく似た漢字にして頂くものです。

サンプルは、白と臼を入れてみました。
再計算毎に一セルだけが変わるようにして下さい。

また、見分けが付きにくい文字を探して、白と臼の代わりに
して頂いてもいいです。

                                                    かず
********************************************************

【´･ω･`】:かずさんから頂いた図柄は下の通りだ。

＊

*

*

*

*

*

*

【´･ω･`】:しかし、正直なところ老眼・・・の方も多いと

　　　　　　思う。これでは何が何だかわからないという

　　　　　　文句がでそうなので・・・・「臼」の字を赤にしたのが

　　　　　　下図だ。

＊

*

*

*

*

*

*

【´･ω･`】:この図ではD７が「臼」だということがわかるだろうか？

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

＜今回のルール＞
　コメント（文字数を含む）、質問即OK。ただし、式そのものや、

式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、

ご遠慮下さい。

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

　　　　　　

表計算一筆書き・・・予告

明日の出題者は Excel_Oyaji こと、かずさんです。

お題は「侵入者」・・・・

果たしてどういうことになるのやら・・・

	出題者氏名	お題	出題予定日	備考
1	くまぷー	学舎	7/8(火)	最短はkirさん、えくせるバカさんの７８文字でした。
2	かずさん	侵入者	7/15(火)
3	ジョー３さん	回る火の剣	7/22(火)
4	minmaxさん	ダイヤモンドX	7/29(火)
5	えくせるバカさん	未定	8/5(火)
6	y sakudaさん	未定	8/12(火)
7	K@自転さん	未定	8/19(火)
8	kirさん	未定	8/26(火)

みなさん、乞うご期待！！

表計算一筆書き・・・学舎【解答例】

結局80文字から、短くすることができませんでした。(^^ゞ

完敗です。(^^ゞ

【解答例】

=LEFT("★",OR(SUMSQ(ROW()-6,COLUMN()-6)={0,2,8,20,25,26},ISREF($K$9 (E6:G6,F7))))

今、劇団新感線の「五右衛門ロック」を新宿コマに観に行って

いるのでレスができませんがよろしくお願いいたします。m(__)m

表計算一筆書き・・・学舎【問題】

【´･ω･`】:いよいよ、「表計算一筆書き」の復活第一弾だ！！

　　　　　　「表計算一筆書き」は初めてという方は以下を参考に

　　　　　　してほしい。既出の問題と、その解答が書いてある。

　　　　　　http://kumapooh2007.hp.infoseek.co.jp/

　　　　　　さて、問題だ。

＊

＊

【問題】セルを利用して下のような図を描きたい。

　　　　一つのセルに入力した数式を他のセルにコピペすることで

　　　　図を描くにはどのセルにどのような数式を入力すればよいか？

＊

＊

*

*

*

*

*

*

*

*

（●｀ε´●）：なんだ地図の記号か？！

【´･ω･`】:うん、minmaxさんの「進入禁止」から連想したんだ・・・

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

＜今回のルール＞
火曜２０時～木曜２０時
　１．90未満の文字数そのものは、書かないで下さい。
　２．90未満を達成した方は、90未満達成（２種）、という感じで、
　　報告を上げて下さい。
　３．90以上については、現在92文字、という感じで、
　　文字数を上げて下さって結構です。
　＊

＊

木曜２０時以降。
　１．自由に文字数を報告して下さい。
　２．式そのものや、式の内容が分かるような表現は、答え合わせ（土曜２０時）まで、ご遠慮下さい。

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

	出題者氏名	お題	出題予定日	備考
1	くまぷー	学舎	7/8(火)
2	かずさん	侵入者	7/15(火)	OK確認済み
3	ジョー３さん	回る火の剣	7/22(火)	OK確認済み
4	minmaxさん	未定	7/29(火)	OK確認済み
5	えくせるバカさん	未定	8/5(火)	OK確認済み
6	y sakudaさん	未定	8/12(火)	OK確認済み
7	K@自転さん	未定	8/19(火)	OK確認済み
8	kirさん	未定	8/26(火)	OK確認済み

表計算一筆書き・・・第二部

いよいよ明日再開なんだけど・・・

人があつまるかなぁ・・・

ちょっと心配・・・o(^-^)o

マグマ大使（Space Giant）より

邦題は「マグマ大使」。マグマ大使の名前はGoldar、

奥さんのモルはSilver、ガムはGumでそのまんま。

下はNicol？（マモル少年）にマグマ達を呼ぶ笛を渡す時の台詞。

Nicol, I want you to take this whistle.

Use it to call us whenever there's any trouble.

Now you must pay every close attention to these instructions.

BLow it once if you want Gum.

BLow it twice if you want Silver.

BLow it three times if you want me.

Do you understand?

Three times for me, twice for silver, once forn Gum.

それにしても江木俊夫が若い！！

フォー・リーヴスなんて今の子は知らんだろうな・・・(>_<)

・・・ところでleafの複数形のleavesは［li:vz］だから

フォー・リーヴスではなくてフォー・リーヴズかな・・・・

YouTube: The Space Giants, Chpt 1: Goldar's Family

「表計算一筆書き」第２回出題ローテ（案）

　みなさんのコメントによると後の方が良いという方が

多いので再開の期日を1週間遅らせて7/8（火）にして

日程を組んでみました。どんなもんでしょうか？

ご意見を頂ければ幸いです。m(__)m

	出題者氏名	お題	出題予定日	備考
1	くまぷー	学舎	7/8(火)
2	かずさん	侵入者	7/15(火)	OK確認済み
3	ジョー３さん	回る火の剣	7/22(火)	OK確認済み
4	minmaxさん	未定	7/29(火)	OK確認済み
5	えくせるバカさん	未定	8/5(火)	OK確認済み
6	y sakudaさん	未定	8/12(火)	OK確認済み
7	K@自転さん	未定	8/19(火)	OK確認済み
8	kirさん	未定	8/26(火)	OK確認済み

表計算一筆書き・・・Returns!!

　いよいよ、再開の時（７／１）が近づいてきました。

・・・ということで、２度目の出題ローテに加わって頂ける方の

ご都合を伺いたいと思います。いつ頃がよいか、または

いつ頃はダメなのかをお知らせ願えたらと思います。

よろしくお願いいたします。m(__)m

※日付の入っていない方の順番は仮のものです。

※赤字は決定

	出題者氏名	お題	出題予定日
1	くまぷー	学舎	7/1(火)
2	えくせるバカさん	未定	未定
3	ジョー３さん	未定	7/22(火)
4	y sakudaさん	未定	未定
5	minmaxさん	未定	未定
6	kirさん	未定	未定
7	かずさん	未定	未定
8	K@自転さん	未定	未定

８マンより

　原作・平井和正／作画・桑田次郎の８マンと言えば

少年誌に連載されていたとは思えないくらい洗練されていました。

くまぷーも夢中になって見ていたものです。さて最近、その８マンの

英語版を見つけてしまいました。しかし、それは見なけりゃ良かったと

思うような酷いもでした。東探偵の顔はエラがはっていて

ディック・トレーシーみたいです。東探偵というよりも

悪役ロボット００７号とコンビを組んでいたマックみたいな顔です・・・(>_<)

　そして絶対に許せないのはエイトマンの動きです。

マイティハーキュリーのように空を飛んでいます......＼(><)シぎょぇぇぇ

エイトマンの動きではありません(｀ヘ´) プンプン。

*

YouTube: Tobor The 8th Man Opening Theme Song

*

*

そうそう、英語の話がぜんぜんでてきませんでしたので・・・

エイトマンは「８番目の男」なので当然「8th　man」ですね。

では頭についている「Tobor」とは何でしょう？

これは「Robot」をひっくりかえしたものですね(^.^/~~~

Star Trekより

　スタートレックのこのオープニングの台詞、いいですねぇ(^^ゞ

短くきれいにまとまっているので暗唱用例文に使いたいものです。

Space...the final frontier.

These are the voyages of the Starship Enterprise.

Its five year mission to explore strange new worlds,

to seek out new life and new civilizations,

to boldly go where no man has gone before.

*

カーク船長やスポック・・・思い出すと泣けてきます。(・_・、)

to boldly go where no man has gone before.

男のロマンですね～。(・_・、)

*

昔、スタートレックの字幕ビデオを借りてきて

何度も見ているうちに自然と耳が鍛えられてきましたっけ・・・。

YouTube: Star Trek Original Series Intro (HQ)

Thunderbirds より

　サンダーバードという人形劇？が一世を風靡したのだが、

実を言うと恥ずかしながらリアルタイムでは見ていなかった。

しかし、それでもオープニングの「サンダ～バ～ド、青く光る広～い

宇宙に行け、風を巻いて～」という歌詞くらいは社会常識として

知っている。・・・で英語版はどのような歌詞だったのかと

気になり調べてみると・・・

YouTube: Thunderbirds Are Go!!!

＊

・・・５・４・３・２・１・・・Thunderbirds are go!!

*

というだけで特に歌詞は無かったのね(^^ゞ

*

・・・で歌詞が無いので無理矢理、話題を英語に

*

振ってみると・・・

*

どうでしょう？

*

Thunderbirds are go!!という表現は不気味に感じますか？

*

Thunderbirds are going!!かThunderbirds are gone!!の

*

間違いではないかと思った方はいませんか？(^O^)

*

でもThunderbirds are go!!で正しいんです。

*

確かに高校生の教科書レベル、あるいは大学生の

*

一般教養レベルでは動詞のgoしか出てこない（と思う）ので

*

違和感を抱いたとしても不思議はありません。

*

しかし、goには名詞もあれば形容詞もあるんですね(^O^)

*

形容詞のgoには異常なし、とか出発進行というような

*

意味があります。映像を見ると出発した後の台詞なので

*

訳例）サンダーバード、異常なし！！

*

・・・でしょうか(^^ゞ

The Mighty Hercules より

　マイティハーキュリーと言えば7時ちょっと前に

1話5分完結で放映されていたような・・・

確か飛んで着地した後に明治かどこかの

牛乳を一気飲みするんでしたよね(^^ゞ

Hercules, hero of song and story!

Hercules, winner of ancient glory!

Fighting for the right!

Fighting with his might!

With the strength of ten ordinary men!

Hercules, people are safe when near him!

Hercules, only the evil fear him!

Softness in his eyes!

Iron in his thighs!

Virtue in his heart!

Fire in every part of the Mighty Hercules!

日本語の歌詞はこんなんでしたっけ？！

ハーキュリー、力も強く

ハーキュリー、正義のために

風のように空を飛んで暴れ回る

ああ、マイティハーキュリー

YouTube: マイティ・ハーキュリー/1963年(昭和38年)

日本語版の映像も探したけど見つからなかった・・・(T.T)

Adventure of Supermanより

これはもう、おそらく誰でも一度は聞いたことのある

台詞だと思います。そう、スーパーマンのオープニングです。

Faster than a speeding bullet

More powerful than a locomotive

Able to leap tall buildings at a single bound

Look! Up in the sky! It's a bird! It's a plane!

It's Superman! Yes, It's Superman!

弾丸よりも速く

機関車よりも強く

高いビルなど一っ飛び

空を見ろ！鳥だ！飛行機だ！スーパーマンだ！

そうです。スーパーマンです(^^ゞ

YouTube: Superman

Groovy Goolies（幽霊城のドボチョン一家）より part2

　今回は英語版の歌詞を扱います。一部聞き取りに

自信の持てない箇所もあるのですが、だいたい下のように

なると思います。(^^ゞ

One, two, three!

There's a game that you all know and it's called Hide and Seek.

But never play with ghouls and ghost because they always peek,

they walk through the doors and come up through floors

and always find you out to let you see just what I mean

Just listen to them count one, two, three!

You can't hide from me !

One, two, three! Just you wait and see!

One, two, three! You can't hide from me !

No matter what you do, I'm gonna find you!

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

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

They get help from other ghosts

One step 'nd you can see they'll sit back and point you out

you know how the ghost can be.

They can make you laugh or scream just when you don't want to

they'll make you step

they'll make you trip

How tricky they've got you!

One, two, three! You can't hide from me !

One, two, three! Just you wait and see!

One, two, three! You can't hide from me !

No matter what you do, I'm gonna find you!

YouTube: Groovie Goolies 123

Groovy Goolies（幽霊城のドボチョン一家）より

　Groovy Gooliesの邦題は「幽霊城のドボチョン一家」です。

「ドボチョン、ドロドロ、ドボチョン、ドロドロ出てこいよ。

世界中のお化け達よ、遊ぼうぜ！！」という

ノリがいいんだか、悪いんだかわからないようなイントロが

印象的でした。

　さてタイトルのGroovy Gooliesですが、Groovyは一昔前に

流行った言葉で「かっこいい」とか「イカした」（死語）という意味でしたが

今ではcoolに取って代わられてしまったようです。

流行り言葉の宿命で廃れてしまえば陳腐になってしまいますので

「ダサイ」という意味にもなります。

Gooliesのgoolyはあまり辞書には載っていないかもしれません。

語彙数では他の追随を許さない英辞郎にも載っていませんでした（2008/06/09現在）。

意味は・・・

　１．testicle　（き○たま）　・・・ですから通例、複数形で使われます(^^ゞ

　２．Unapologetically Pathetic Looser ・・・looserは敗者というよりも

　　　鈍くさいやつというくらいの意味でしょうか。

また、goolyはghoulとpan（だじゃれ）になっているのでしょう。

そうだとすれば「Groovy Goolies」というタイトルは「鈍くさくてイカした

お化けちゃんたち」とでもなるのでしょうか(^^ゞ

下は日本語版のドボチョン一家です。

次回は英語版を扱います。

エクセルでゲームを･･･

　表計算ソフトExcelでゲームを作りました。

今回はマクロを使っていますので

かなりラクに作ることができました。(^^ゞ

＊

＊

＊

＊

＊

＊

＊

＊

遊び方と紹介

http://www.geocities.jp/kuma_pooh1958/poker_complex.htm

POKER_COMPLEX.zipをダウンロード

ノンマクロPC対戦型ゲーム「Excel PokerⅡ」

*

*

*

*

*

*

　エクセルで作ったコンピュータ対戦型ポーカーゲームです。

売りはVBAを使っていないということです。COMの強さを

３つのレベルから選べます。

EXCEL_POKER06.lzhをダウンロード

ノンマクロPC対戦型ゲーム「B.J.Excel」

*

*

*

*

*

*

*

Excelで作ったノンマクロPC対戦型のブラックジャックです。

売りはなんと言ってもVBAを使わずにPC対戦型の

ゲームに仕上げたところです。(^^ゞ

EXCEL_BJ01.zipをダウンロード

ポーカースロット

*

*

*

*

*

*

*

Excelで作りました。売りはVBAを使っていないところです。

ノンマクロだけど画面が動きます。

Excel２００７では動きがよくないようですけど

２００３以前ならばけっこう、きれいに動くようです。

循環参照を使っているので

他のExcelブックを開かずに遊んで下さい(^^ゞ

EXCEL_POKER03.xlsをダウンロード

※循環参照とは・・・

http://www.geocities.jp/kuma_pooh1958/jyunkan/REF_INDEX.htm

整序問題作成マクロ

前回の「括弧穴埋め問題作成マクロ」に続き、今回は

「整序問題作成マクロ」です。(^^ゞ

使い方は下を参考にしてくらはい。

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
免責　このマクロの使用によっていかなる損害が生じようと、
　　　一切責任は負いません。あらかじめご承知の上ご使用下さい。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

マクロ名　「整序問題作成」

機能　　英文など半角スペースで区切られた語句を選択すると、その語句の頭に記号を付けてをランダムに並べ替える。

実行法　
１．マクロを作用させたい範囲を選択
２． 「ツール」「マクロ」「マクロ」「Shuffle_Write」を実行

例）　下のような英文を用意する。

＊

＊

１．範囲選択をする。

＊

＊

＊

２．メニューをツール、マクロ、マクロと辿りダイアログボックスを出しShuffle_Writeを実行すると以下のようになる。

＊

＊

＊

http://www.geocities.jp/kuma_pooh1958/word004.htm

あ、言い忘れました。Word VBAです。(^^ゞ

括弧穴埋め問題作成システム

ワードマクロで作ってみました。

ワードマクロのサンプルはあまり公開されていない（と思う）ので

晒します。

　mougのワードマクロ掲示板で活躍されている方も

このブログの常連さんですのでちょっと怖いのですが・・・

・・・ところでこの「括弧穴埋め問題作成システム」ですが

某県の某情報系専門学校でサンプルとして使われている

そうです。たれ込みがありますた。一言、断ってくれれば

いいのですが・・・、無断です・・・。(｀ヘ´) プンプン。

括弧穴埋め問題作成システム…の巻

★機能　　問題文の中（）で囲まれた語句を順に（　丸数字など　）に置換し、解答をランダムに並べ、全角カタカナなどをつけて文末に挿入する。 ★使い方 　　１．括弧穴埋め問題作成.docを開く。 　　２．対象となる文を用意し、抜き出したい語句を全角（）等で囲む。そしてマクロを作用させたい部分の文章を選択しておく。使える括弧は下記の4種類。 　　　　　1．（　　　　）全角 　　　　　2．＜　　　　＞全角 　　　　　３．｛　　　　　｝全角 　　　　　４．「　　　　　」 （例）

３．「Ctrl」、「Shift」、「Alt」キーを押しながら「m」キーを押し、メニューを呼び出す。

４．実行ボタンをクリック。例文が下のようになる。

ここまでで終わりにしてもいいが、さらにメニューを呼び出し、下のように＜　＞を設定し…

再び、メニューを呼び出し実行すると下のようになる。

メモ 　　１）選択肢は選択範囲の最後の段落記号（改行マーク）の前に挿入される。 　　２）「残業」「サービス残業」など共通の語句を含むことはできない。 　　３）下図のようにツールバーにマクロを登録したりすると便利である。尚、括弧穴埋め問題作成Ⅱの「Ctrl」、[Alt」、「Shift」+「m」はMacro1を呼び出している。

★括弧穴埋め問題作成ダウンロード： Kakko_anaume2をダウンロード 　お使いの方は掲示板にでもご感想・ご意見でも書き込んで頂ければうれしいです。

 

 

一太郎でゲームを・・・

作ってみました。題材は１５パズルです。

ま、15パズルなんてどこにでもあるようなもんで

ぜんぜん、珍しいものではないのですが

一太郎マクロで作ったということで

ご勘弁を・・・(^^ゞ

*

*

*

*

*

*

*

*

TaroPuzzle.zipをダウンロード

★一太郎マクロ関連

一太郎マクロ初心者奮戦記

一太郎マクロ初心者奮戦記Ⅱ

表計算一筆書き・・・勇者を求む

2周目の出題ローテに加わってくれる方を

求めたら、即座にジョー３さんとえくせるバカさんが

名乗りを上げてくれました。

自薦・他薦よろしくお願いいたします。m(__)m

	出題者氏名	お題
1	くまぷー	学舎
2	ジョー３さん	未定
3	えくせるバカさん	未定
4	y sakudaさん	未定
5	minmaxさん	未定
6	kirさん	未定
7	かずさん	未定

表計算一筆書き・・・感想戦

今帰ってきました。(^O^)

バドミントンの関東大会の地区予選が今週末なので

部活三昧です。(^^ゞ

＞どこかで反省検討会しまひょ

＞くまぷーさんから休止のお知らせスレッドを

＞作ってもらってそこで話せばいいくらいかな。

・・・ということなのでスレを立てました。

よろしくお願いいたします。m(__)m

※えくせるバカさんのご意見により

　　ちょっとタイトルを変えてみました。(^^ゞ

　　　　　　　　　　　　　　　　　　　　　　　　　　（4/20　18:10)

　　

表計算一筆書き・・・ダンジョン【解答】

ダンジョンの解答
今回は大変お騒がせ致しました。
私がやった最短の文字数は１４です。
その次が１６です。

１４は三四郎で
=If(B2=D4,"」")
１６はエクセルで
=LEFT("」",B2=D4)
です。

お題をダンジョンにした理由は・・・
えくせるバカさんのおっしゃるとおりで今さらって感じですが、
参照セルB2とD4をちょっとずらすだけで同じ文字数でも
図形ががらっと変わってしまうこと、
範囲外の所にちょっと何かを入力しただけでも
同様の現象が見られることです。
まさに、ロールプレイングゲームのダンジョンのように
地下１階、２階と風景が変わるみたいです。
さらに、数式の入力範囲を広げるだけで
図形が変わるところも面白い所です。
例えば、
=LEFT("」",D3=H7)
とA1に入力した場合
それを、
K11までコピーした場合と
V22までコピーして４倍に広げた場合では
違ったものに見えてしまうのです。

文字数１６文字の式でどんなユニークな図形ができるか
コンテストでも開けそうなくらい・・・。
（それは無理か～）

ところで、
答えをどなたも求めることが出来なかったら
どうしようと思っていましたが、
えくせるバカさんを始め何人かが達成出来てほっとしています。
えくせるバカさんの御陰かも・・・。

普通に関数を使った数式は様子を見て公開します。
・・・やっぱり、つまらんもんですが１個だけ公開しようかな～
{=T({"」","」",0,"」",0,0,0,"」","」",0,"」";"」","」",0,"」",0,0,0,"」","」",0,"」";0,0,0,"」",0,0,0,"」","」",0,"」";"」","」","」","」",0,0,0,"」","」",0,"」";0,0,0,0,0,0,0,"」","」",0,"」";0,0,0,0,0,0,0,"」","」",0,"」";0,0,0,0,0,0,0,"」","」",0,"」";"」","」","」","」","」","」","」","」","」",0,"」";"」","」","」","」","」","」","」","」","」",0,"」";0,0,0,0,0,0,0,0,0,0,"」";"」","」","」","」","」","」","」","」","」","」","」"})}
で377文字です。

皆さんローテーションお疲れ様でした～。

表計算一筆書き・・・ダンジョン【問題】

お題～ダンジョン

転勤による新しい仕事で考えるゆとりもなく、
パソコンの調子も悪かったので
単純図形にさせていただきました。
解答するのは簡単だと思います。
いろいろな方法を追求してみてください。
お題を「ダンジョン」にした理由は後ほど・・・。

※ローテーションの最後でもあり、使用している関数を一部公開でやってみたいと思います。
　純粋に最短文字数を追求するのも良し。
　長い文字数を追求するのも良し。
　他の解答者の使用している関数を見て、何とか別の方法を探すのも良し。
　他の解答者の使用している関数と文字数を見て、その関数を使ってもっと短く出来る方法を探求するのも良し
ってことで・・・。

で、今回のルールは次のとおりでお願いしたいと思います。
★火曜２０時～木曜２０時
　１．文字数は最初から公開してもらって結構です。

　２．式の内容が分かるような表現はご遠慮ください。

★木曜２０時以降。

　１．使用している関数のうちポイントとなる１つ以上の関数と文字数を報告して下さい。
　　　（例「VLOOKUPを使って564文字です。」）

　２．式そのものは、答え合わせ（土曜２０時）まで、ご遠慮下さい。

【問題】セルを利用して下のような図を描きたい。

　　一つのセルに入力した数式を他のセルにコピペすることで
　　図を描くにはどのセルにどのような数式を入力すればよいか？

表計算一筆書き・・・お知らせ2008_04_14

さあ、今度のminmaxさんが表計算一筆書き-問題競作シリーズの

最後の出題者になります。

そのお題は・・・

ダンジョン

・・・さて、どんなモンスターが潜んでいるのか・・・・

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

★出題予定表

順番	担当者	出題予定日	お　題
1	くまぷー	2/12	独裁者
2	えくせるバカさん	2/19	{UP}
3	悪児さん	2/26	シリーズ　（中禅寺湖シリーズ第3弾）
4	K@自転さん	3/4	カクテルグラス
5	かずさん	3/11	動
6	y sakudaさん	3/18	ロールシャッハテスト
7	ジョー３さん	3/25	風林火山
8	kirさん	4/1	流星
9	きっちーさん	4/8	夜更け
10	minmaxさん	4/15	ダンジョン

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

★表計算一筆書き・・・既出問題と解答

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

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

三四郎　ＲＣ万能系

９２文字

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

あっさり破られていた。


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

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

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

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

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

　　　　　　　　　　　　　　　　　　　　　　くまぷー

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

★作品展示会

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

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

表計算一筆書き・・・夜更け【問題】

こんにちは(?)・・・(^^)

第９番、表計算一筆書きの問題です。
お絵かきしました。

回答する義務が発生するのかあ。ショーがないなぁ。
大層な回答が出来るかどうかわからないので、その辺はゴメンして。(* *)ゞ



*********************************************************************************************
タイトル：夜更け

コメント：図形ではなくお絵かきになってます。

　　　　　絵を描いて・・・何にも考えていません (^^;;;

　　　　　どちらかと言えば、Ａ系でしょうか。

　　　　　さて、こんなパターンはどういう展開になるのか。

【問題】セルを利用して下のような図を描きたい。

　　一つのセルに入力した数式を他のセルにコピペすることで
　　図を描くにはどのセルにどのような数式を入力すればよいか？
＊

＊

*

*

*

*

*

*

*

*

　おまけ（お遊びです）
　　さらに、いくつか星を追加し、再計算でちらつかせてみてください。
　　星の数や種類は問いません。


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

★火曜２０時～木曜２０時
　１．Ａ系は100字未満の文字数そのものは、書かないで下さい。
　　　それ以外は200未満の文字数そのものは、書かないで下さい。

　２．Ａ系100字未満、Ａ系以外200未満を達成した方は、
　　100(200)字未満達成（２種）、という感じで、
　　報告を上げて下さい。

　３．100(200)字以上については、現在155(255)文字、という感じで、
　　文字数を上げて下さって結構です。

★木曜２０時以降。いきなり文字数解禁。

　１．自由に文字数を報告して下さい。

　２．式そのものや、式の内容が分かるような表現は、

　答え合わせ（土曜２０時）まで、ご遠慮下さい。

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

表計算一筆書き・・・お知らせ2008_04_07

きっちーさんから頂いたお題・・・

・・・「夜更け」・・・

ぱっと見、くまぷーの実力で200文字かかるか

300文字かかるか・・・

あな恐ろしや・・・((ﾟﾟ;)ﾌﾟﾙﾌﾟﾙ(;ﾟﾟ))

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

★出題予定表

順番	担当者	出題予定日	お　題
1	くまぷー	2/12	独裁者
2	えくせるバカさん	2/19	{UP}
3	悪児さん	2/26	シリーズ　（中禅寺湖シリーズ第3弾）
4	K@自転さん	3/4	カクテルグラス
5	かずさん	3/11	動
6	y sakudaさん	3/18	ロールシャッハテスト
7	ジョー３さん	3/25	風林火山
8	kirさん	4/1	流星
9	きっちーさん	4/8	夜更け
10	minmaxさん	4/15

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

★表計算一筆書き・・・既出問題と解答

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

風林火山の呪いが続いていたようで、やっと解放されました。

41には追いつけましたが、どなたか隠しだまはあるのでしょうか？

=MID("　・★",AREAS($K$9 ($K$9,I1,I1,G3,F4,E5,D6,C7)),1)
53
=MID("　　　・・・・・　★",ROW()*(ROW()+COLUMN()=12)+1,1)
48
=MID("　　・・・・・　★",MODE(ROW(),12-COLUMN(),1,1),1)
47
=MID("　　・・・・・　★",ROW(),ROW()+COLUMN()=12)
41

表計算一筆書き・・・流星【問題】

タイトル：流れ星

コメント：図形はシンプルですが、一箇所だけ★になっています。

　　　　　私もまだ解いていませんので何文字くらいになるか

　　　　　分かりません。

　　　　　皆さんがどんな手法で来るか楽しみにしています。

【問題】セルを利用して下のような図を描きたい。

一つのセルに入力した数式を他のセルにコピペすることで

図を描くにはどのセルにどのような数式を入力すればよいか？

*

*

*

*

*

*

*

*

*

*

*

*

★火曜２０時～木曜２０時
　１．50字未満の文字数そのものは、書かないで下さい。

　２．50字未満を達成した方は、50字未満達成（２種）、という感じで、
　　報告を上げて下さい。

　３．50字以上については、現在55文字、という感じで、
　　文字数を上げて下さって結構です。

★木曜２０時以降。

　１．自由に文字数を報告して下さい。

　２．式そのものや、式の内容が分かるような表現は、

　答え合わせ（土曜２０時）まで、ご遠慮下さい。

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

★表計算一筆書き・・・既出問題と解答

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