Excel Maniacs

関数で出来ますか～？ 第１１問 かごめ 解答例

この問題、実は三四郎ならば楽勝です。

=Search(">''",B2:L12)　21文字ですね。

空文字はシングルクウォーテーションマーク２つで表しています。

　さてエクセルに戻ります。直接入力した文字列ならば

=PHONETIC(B2:L12)　で一発なんですが、この問題の場合は

B2:L12は参照なので、こんなに簡単にはできません。

やけくそでやるならばB2～L12までの全てのセルを&で連結するなんて

荒技も考えられますが、どうひいき目に見ても力づくで,スマートさに欠けます。

で・・・考えたのが下の式です。

{=CHAR(MAX(CODE(B2:L12&0)))}    

配列数式２８文字　（赤文字の部分を入力してCtrl,Shift,Enterの３つのキーを押下して確定します）

　まずCODE関数を使います。これは第6問「３人のニコちゃん」でも

使いましたが、配列数式として使うことが出来ます。ただ　CODE関数を

単純にCODE(B2:L12)として使うと空文字のコードを調べてしまうので

エラーになってしまいます。そこでCODE(B2:L12&0)のように一工夫します。

こうすれば鳥（アルファベット）以外は０のコード、４８を返すことになります。

鳥（アルファベット）のコードは65（Aのコード)以上なので、CODE(B2:L12&0)に

MAX関数をかぶせれば必ず鳥（アルファベット）のコードになります。

そして仕上げに鳥（アルファベット）のコードにChar関数をかぶせて

コードを文字列化して終了です。

　「かごめ」・・・如何だったでしょうか？

関数で出来ますか～？ 第11問 かごめ

か～ご～め、か～ご～め

　　　　　　　・

　　　　　　　・

夜明けの番人、ツルッと、カ～メが滑った・・・

【問題】下図のように茶色の柵の中にアルファベットがひとつ

　　　　　表示される。そのアルファベットを捕まえて

　　　　　セルP4に表示して欲しい。

*

*

*

*

*

*

*

*

ある者は正面から、またある者は後ろの正面から

攻めるかもしれない。道はひとつではない・・・

解答用シート：2009_Q11.lzhをダウンロード

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

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

関数で出来ますか～？

第１１回　お題　「かごめ」　３／２４出題　（くまぷー）

明日ですよん！!(^_^)b

関数で出来ますか～？ 第１０問解答例２ （お買い物）

それではジョー３さんの出題者解答・・・

=INT(ROUNDUP(B17/(1+B16),)*(1+B16))=B17

( ^_^)／□☆□＼(^_^ )カンパ-イ!

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

sakudaさんの

=(MOD(B17+1,B16+1)-0.505)^-2>4

=(MOD(B17+1,B16+1)-0.505)^2*4<1

＼(`O´θ／エイキックじゃ！バキッ!!☆

税率0.111、9円がFalseになってしまいます。

=INT(INT((B17+1)/(1+B16))*(1+B16))=B17

＼(^-^)／バンザーイ、／（　）＼モヒトツ＼(^o^)／バンザーイ

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

つぎはくまぷー！！

=ROUNDUP(B17/(1+B16),0)+INT(ROUNDUP(B17/(1+B16),0)*B16)<=B17

お陰様でエラーがでませんでした。(^_^)v

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

つぎはますたあさん！！

=INT(ROUNDUP(B17/(1+B16),0)*(1+B16))=B17

おめでとうございます。( ^_^)／□☆□＼(^_^ )カンパ-イ!

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

さあ、minmaxさんの登場だ！！

=MOD(B17+1,1/B16+1)>99%

(;＞_＜;)ビェェン

税率0.111、10円がTrueになってしまいます。

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

つぎはむ印さん！！

=CEILING(B17,B16+1)<B17+1

通過です。　( ^_^)／□☆□＼(^_^ )カンパ-イ!

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

またまたジョー３さん・・・・

＞では、ついでに、、
＞=MOD(B17-9^-9,(1+B16))>B16と、1文字多い
＞=MOD(B17-9^-13,(1+B16))>B16で、お願い！！

では・・・
=MOD(B17-9^-9,(1+B16))>B16

＼(`O´θ／エイキックじゃ！バキッ!!☆

税率0.999999999で１円がFalseになります。

つぎは・・・

=MOD(B17-9^-13,(1+B16))>B16

これもキックじゃ＼(`O´θ／バキッ!!☆

税率0.999で１９９９円がFalseになります。

１０００円買えば１９９９円ですね。

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

そしてMFさん！！

49文字：=ROUNDUP(B17/(1+B16),)<>ROUNDUP((B17+1)/(1+B16),)

41文字：=INT(B17/-(1+B16))<>INT((B17+1)/-(1+B16))

36文字：=INT(INT(B17/-(1+B16))*-(1+B16))=B17

おめでとうございます。

第２部門では３種とも合格です。

＼(^-^)／バンザーイ、／（　）＼モヒトツ＼(^o^)／バンザーイ

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

しんがりはsupermabさん・・・

問２（小数用）=
=MOD(B17+1-1%^4,B16+1)<1

＼(`O´θ／エイキックじゃ！バキッ!!☆

税率0.999999999、１円がFalseになってしまいます。

関数で出来ますか～？ 第１０問解答例 （お買い物）

大変お世話になってます。

以前、私のところでこのようなことをしていましたが、

ネット操作が、へたくそなもんで、苦労しました。

で、くまぷーさんに、苦労かけてご免なさい。

特に今回は、短縮しようとすると、・・・・

正確な答えが出ないことがあるということで、

テストまでしなければならなくなったという・・・・

すんません。。

　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

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

いえいえ、ご心配なく。sakudaさんに作って頂いた

判定プログラムがあるので、さほどの手間はかかりません。

それではまずは第一部門のチェックをします。

税率　0.03, 0.05, 0.07, 0.09, 0.11, 0.13　の６種で１万円までです(^^ゞ

それではジョー３さんの・・・・

Q1：１５文字

=MOD(B7+1,21)>0

Q2：39文字

=INT(ROUNDUP(B17/(1+B16),)*(1+B16))=B17

・・・・・

おめでとうございます。

＼(^-^)／バンザーイ、／（　）＼モヒトツ＼(^o^)／バンザーイ

通過です！！

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

次はsakudaさん・・・

Q1：15文字

=MOD(B7+1,21)>0　これはジョー３さんと全く同じなのでテスト省略です(^^ゞ

Q2が3種類！！

30文字：=(MOD(B17+1,B16+1)-0.505)^-2>4

31文字：=(MOD(B17+1,B16+1)-0.505)^2*4<1

38文字：==INT(INT((B17+1)/(1+B16))*(1+B16))=B17

それでは行ってみましょーか！！

おめでとうございます。これも当然と言えば当然ですが

３種とも合格です。(^O^)

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

つぎはくまぷー！！

Q1は15文字。ジョー３さんと同じですので省略です。

Q2：６０文字。おそらく最長記録でしょうか？！

=ROUNDUP(B17/(1+B16),0)+INT(ROUNDUP(B17/(1+B16),0)*B16)<=B17

くまぷーのも一応、合格です　(o^^o)

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

つぎはますたあさん！！

Q1:32文字

=INT(ROUNDUP(B7/1.05,0)*1.05)=B7

Q2：40文字

=INT(ROUNDUP(B17/(1+B16),0)*(1+B16))=B17

おめでとうございます。

( ^_^)／□☆□＼(^_^ )カンパ-イ!

通過です！！　

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

さあ、minmaxさんの登場だ！！

Q1：１４文字

=MOD(B7,21)<20

Q2：２３文字

=MOD(B17+1,1/B16+1)>99%

やったのがminmaxさんならば、こんなところで

こけるはずがない！！

当然、合格です(^_^)v

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

つぎはむ印さん！！

Q1：14文字  minmaxさんの１４文字宣言をみて15文字から

差し替えての１４文字。

=MOD(B7,21)<20　

Q2：２５文字

=CEILING(B17,B16+1)<B17+1

うぉーっ、流石む印さん、CEILING・・・・

こんなのぜんぜん、浮かんでこなかった・・・

合格です！！

む印さんのやることに間違いはない！！

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

出題者ジョー３さんから解答者ジョー３さんに・・・・

＼(＼o-)ﾍﾝ～(-o／)ゝｼﾝｯ!!＼(｀O´)／ﾄｳ!!

くらえっ！！２８文字２種だ！！

=INT(CEILING(B17,1+B16))=B17

おおっ！！ジョー３さんもCEILINGだっ！！

えいっ！！そして返す刀でFLOOR！！

=INT(FLOOR(B17+1,1+B16))=B17

そして判定の結果は・・・・

おめでとうございます。

( ^_^)／□☆□＼(^_^ )カンパ-イ!

合格です！！

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

おー、つぎはMFさん。

まずは・・・

Q1:１５文字

=MOD(B7,21)<>20　これは合格です！！(^O^)

そして・・・

Q2が4種・・・

49文字：=ROUNDUP(B17/(1+B16),)<>ROUNDUP((B17+1)/(1+B16),)

41文字：=INT(B17/-(1+B16))<>INT((B17+1)/-(1+B16))

36文字：=INT(INT(B17/-(1+B16))*-(1+B16))=B17

ここまでは合格です！！

38文字：=B17/(1+B16)+INT(-(B17+1)/(1+B16))<=-1

おーっと残念！！ここでミスが出てしまいました。

税率１３％、113円がFalseになってしまいました！！

100円のお買い物をすれば消費税が13円なので

113円はTRUEのはずです！！

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

関数で出来ますか～？ 第１０問 （お買い物）

　今回の出題者はジョ－３さんです。お題は「お買い物」。

まずは、出題にいたったサイドストーリーから・・・

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

妻に買い物を頼まれた。

その店のレシートを見ると外税になっている。

途中で晩酌のために酒を買った。これもやはり外税になっている。

どちらも、端数は切り捨て。

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

依頼された店で　　買い物   7,258 円
  　　　　　　　　　　　消費税 　　362 円
  　　　　　　　　　　　　　　計 　7,620 円

酒屋でワイン   　　　　　　　　　362 円
  　　　　　　　　　　　　　消費税 18 円
  　　　　　　　　　　　　　　　計 380 円
   
  　　　　　　　　　　２店全計 8,000 円

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

家に帰ると全部でいくらだった？と聞かれ

ちょうど8,000円だったよと答えた。

即座に、酒屋にも寄ったのねと言われた。

なんで、分かったんだろう？計算してみた。

一つの店だけで買い物だと、外税、切り捨ての場合、

8,000円はあり得ないのだ！！

仮に・・・

７，６２０円分買い物をしたとすると消費税が３８１円となり、

合計が８，００１円になってしまう・・・

それではということで・・・

７、６１９円の買い物をすると消費税が３８０円になり

今度は７，９９９円になってしまう！

　つまり、ぴったり８，０００円になることはないのだ！！

妻がここまで計算したとは考えにくい。

どうしてわかったんだろう？！

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

問題１　（税率５％で固定）
買い物税込み金額に応じて、
あり得ない金額の時は　「False」　良いときは　「True」と表示する式は?
条件：消費税の税率　５％、外税、小数点以下切り捨て

※税込み金額（外税）をB7に入力すると、D7に判定結果が

　表示されるようにして欲しい。

問題２ （税率可変の場合）

　買い物合計金額、税率に応じて
あり得ない金額の時は　「False」　良いときは　「True」と表示する式は?
条件：消費税の税率　可変、外税、小数点以下切り捨て

※税率をB16,税込み金額（外税）をB17に入力すると、

　　D17に判定結果が表示されるようにして欲しい。

名前定義、表示形式、条件付き書式不可

※解答用サンプルシート

2009_Q10.lzhをダウンロード

※判定結果を表示させるセルなどを一応、指定はしていますが自分で

かっこいいレイアウトのシートを作る場合は指定を無視しても構いません。(^^ゞ

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

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

関数で出来ますか～？ （第９問解答例）

　東原→東国原の意味を一応、言っておきます。(^^ゞ

東原（第９問その１）だと日本人の名前は全て２文字以下

外人の名前は全て３文字以上なので「アルファベットの名前が外人である。」という

条件と関係無しに単純に「３文字以上の名前が外人である。」ということに

なってしまうんですね。(^^ゞ

ところが東国原（第９問その２）の場合はTomも３文字なので

名前の長さで外人・日本人の判定ができなくなります。(^^ゞ

　あともう一つのポイントは外人名のTomだけが全角で残りが

半角で入力されているということです。外人名が全て半角であるならば

（スペースも全角入力なので）Len関数とLenB関数を使って

処理することができます。

　半角はLen関数とLenB関数で同じ値になりますが、全角は

そうではないので=If(Len関数=LenB関数,外人,外人でない)ということになります。

　だけど、Tomがいるのでこの手は使えません。

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

第９問その１解答例

（１）｛=SUM((LEN(G3:J7)>2)*1)｝

配列数式　２４文字

第９問その２解答例

（２）｛=SUM(1-EXACT(LOWER(G3:J7),G3:J7))｝

配列数式　３５文字

これがくまぷーの考えた中で一番汎用的なものです。

配列数式を使わずに３９文字

（３）=COUNTIF(G3:J7,"<管")-COUNTIF(G3:J7,"　")

配列数式を使って３１文字

（４）｛=SUM((G3:J7<"管")*(G3:J7>"　"))｝

　（４）を無理矢理減量して２９文字（－３はC列のVader、Jack、Jonesを除外するためです）

（５）｛=SUM((3:7<"管")*(3:7>"　"))-3｝

関数で出来ますか～？ （第9問） 外国人を捜せ その２

　いや～、みなさんスミマセン。やっちゃいました。

「外国人を捜せ」の日本人の名前は適当に政治家のものから

選んでいたのですが、ミスっちゃいました。

「東国原」とするつもりが「東原」になっていました。

すみませんが「東原」を「東国原」に直したものを「外国人を捜せ　その２」として

出題させて頂きます。

申し訳ありません。m(__)m

2009_Q9__02.lzhをダウンロード

尚、これの答え合わせも３／１４(土)の８：００とさせて頂きます。m(__)m

関数で出来ますか～？ （第9問） 外国人を捜せ

【問題】下図のようにG3:J7に人名が現れ、F9を押すと切り替わる。

アルファベットの名前が外人である。G3:J7に何人、外人がいるかを

H11に表示して欲しい。尚、A～F列のデータを変更してはならない。

*

*

*

*

*

*

*

解答用シート

2009_Q9.lzhをダウンロード

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

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

関数で出来ますか～？ カレンダー （第８問解答例その２）

ジョー３さんに圧倒されちゃいました＾＾；

Q8_2009_mujirusi_san.lzhをダウンロード

（む印さん談）

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

くまぷーさん。こんばんは。ご無沙汰してます。

何パターンか書いてみましたので、メールします。
よろしくお願いします。
kirsan_2009Q8.lzhをダウンロード
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（kirさん談）

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

こんばんは～、くまぷーさん。

最近ちょっとバタバタしてまして・・・

減量不足ですけども、一応考えては見ましたので、お送りします。

2009Q8_kazusan.lzhをダウンロード

                    　　　　　　　　　　　　　　　　　　　　　　　　（かずさん談）

関数で出来ますか～？ カレンダー （第８問解答例）

　今回は初日からジョー３とむ印さんの攻勢にあい、全く太刀打ちできませんでした＾＾；

本音を言えば、条件付書式可としたのは、必要十分な罫線を出すためだけのつもりで、

末日以降を条件付書式で消す手法は全く考慮してませんでしたｗ

従って、本来の意味での回答はシートDの112のものなのですが

どうしても当月末日を計算する部分を2回使わなければならなくなり
短縮できませんでした。

出題時に作ってあったものからのダイエットはWeekDayをModに変えたのと、

Dateの引数が0の時、Nullにしたくらいで、本質的な改造は全くできませんでした。

出題者完敗の巻きです＾＾

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん談）

SakudaSan_2009_Q8.lzhをダウンロード

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

くまぷーです。正攻法ではかなわないので

反則に走りました。15文字と８文字です。(^^ゞ

kumapooh_2009Q8.lzhをダウンロード

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

さてさて、、、

2009_J3San_Q8.zipをダウンロード

（ジョー３さん談）

関数で出来ますか～？ カレンダー （第８問）

　今回の出題者は常連のsakudaさん、お題は「カレンダー」です。

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

以前一筆書きでカレンダーの問題が出ましたが、今回は一筆書きで例のような
本格的カレンダーを作成する問題です。
今回の関数でできるのか？と言う意味ではかなりずれてしまうかも知れませんが、
ご容赦下さい。（できるの分かりきってますからwww）

１．年と月を指定すると、曜日見出しの下にその月の本格的なカレンダーを作成する
２．準一筆書きとします。
     準とは次のように考えています。
     A．名前定義禁止
     B．式は一種類
     C．書式は条件付書式を含め使用自由（式を使う条件付き書式を含む）

私がやってみた所では、あまりコンパクトにできず、100文字は越えてます。
常連さんにかかると、100は割り込みそうな気がしますが・・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(sakudaさん談)

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

解答用サンプルシート：

2009q8_sakuda_san_02.lzhをダウンロード

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

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

解答ファイルは3/6(金)の8:00からメールにて受け付け

到着順に展示していきますのでよろしくお願いします。

関数で出来ますか～？ 順子 （第７問解答例）

　【解答例】三つの数、X>Y>Zが「順子」になるということは

X・Y・Zが公差１の等差数列であるということより・・・

　　　　　　　　　　　X－Y=１　かつY－Z＝１

よって基本解は・・・

=AND(MAX(B2:D2)-SMALL(B2:D2,2)=1,SMALL(B2:D2,2)-MIN(B2:D2)=1)

また、１１文字の解答例は・・・

=VAR(2:2)=1

いつも考えています・・・

　・・・と言ってもぜんぜん、艶っぽい話ではありません。

大それたこととは知りつつも「関数で出来ますか～？」なるコーナーを

始めてしまったので、この頃はいつもそのネタを考えています。

簡単に出来てしまうものではもちろんダメですし、面倒だから

簡単にはできないなんていうのも論外です。

　やはり、意外性があって解いた後に・・・

　　　　　　　　　　　　　　　★★(゜-゜)ウンッ★★

・・・という気分にさせたいものです。何とか５・６問は考えたのですが

なかなか、後が続きません。みなさんも何かいい案があったら

教えてくれませんか？

　次回はsakudaさん出題の予定です。お楽しみに・・・

関数で出来ますか～？ 順子 （第７問）

　今回のお題は「順子（シュンツ）」です。「ジュンコ」ではありません　(^^ゞ

【問】　F9を押すと、一萬～九萬の３枚の牌が切り替わります。順子になればTRUE、

そうでなければFALSEとセルE3に表示させてください。

*

*

*

*

*

*

※「順子」とは・・・長渕剛のヒット曲のタイトルではありません。(^^ゞ

　　　　　　　　　　　同種の数牌で数字が「2・3・4」「6・7・8」のように

　　　　　　　　　　　連続している3枚組です。「8・9･1」とか｢9・1・2」とかは「順子」にはなりません。

http://www.geocities.jp/zukuzuku123/less/04.html

解答用ファイル：2009_Q7.xlsをダウンロード

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

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

関数で出来ますか～？（第６問解答例）

　それでは、まずは基本解から・・・

=AND(B2<>C2,C2<>D2,D2<>B2)  26文字

久々にmode関数を使って・・・

{=ISNA(MODE(CODE(B2:D2)))}　　26文字

そして最小公倍数を使って・・・

{=LCM(CODE(B2:D2))%%>1}　　　23文字

・・・21文字は次回の問題で使うので

日を改めてということで・・・m(__)m

関数で出来ますか～？ （第６問）

　お題は「３人のニコちゃん」です。

F９キーを押すと下図のような３種のマークが切り替わります。

同じマークがなければセルE2に「TRUE」と、そうでなければ「FALSE」と

表示させて下さい。

  *

*

*

*

*

※解答用参考ブック

Slot_Q6.xlsをダウンロード  （エクセル版）

※今回のルール（と言いましょうか・・・）

この問題はエクセルコンテストで言えば「腕自慢」ではなくて

「腕試し」というべきものです。今まで何らかの形でこのブログに参加して

頂いた方、特に常連さんはその辺りをご配慮下さい。m(__)m

尚、答え合わせは2/21（土）の8:00ということで・・・

関数で出来ますか～？（第５問解答例）

　お題はスロットマシーン。問題はこちら。

解答はいろいろ、あると思います。

まずは一番オーソドックスなやつ。

=AND(D4=F4,F4=H4)　17文字

これが基本ですね。

ちょっと気取って・・・

=COUNTIF(D3:H3,D3)=COUNTA(D3:H3)　32文字

これは右辺を弄れば・・・

=COUNTIF(D3:H3,D3)=3　　　20文字

最後に相加平均≧相乗平均の関係で・・・

*

*

*

*

等号の成立する場合はx=y=zの場合でしたね・・・

=AVERAGE(CODE(D3),CODE(F3),CODE(H3))=GEOMEAN(CODE(D3),CODE(F3),CODE(H3))

12文字のやつは一番先に言ったminmaxさんにお任せします。

質問掲示板巡り

　勢いだけで、いつものように後先も考えずに「関数で出来ますか～？」なるコーナーを

でっち上げてしまいましたが、問題を考えるのに四苦八苦しています。

意外性や、解いた後の爽快感・達成感のある問題が、そう簡単に

見つかるわけがありません。なんとかいいネタはないものかと

質問掲示板を巡回してみました。わかったことは、問題を難解に

しているのは多くの場合、問題の本質的なことではなく

質問者の問の発っし方に、あるということでした。

　ヘンな思い込み、条件の後出し、必要の情報の勝手な

省略・・・説明下手・・・、うーん　((・・;ユ。。。((;^^)

ま、上手く尋ねられる実力があればハナから質問掲示板の

お世話になる必要はほとんど無いのですが・・・

　でも、宝物が埋もれているかもしれないから

もう一巡りしてみるか・・・

　あ、そうそう、苦しむくまぷーを見かねて、あのsakudaさんが

救いの手を差し伸べてくださいました。出題のお手伝いを

して頂けるそうです。

　百万の援軍を得たような心強さです。　☆☆(゜-゜)ウンッ☆☆

関数で出来ますか～？（第５問）

　お題は「スロットマシーン」です。

F９キー（三四郎はShiftを押しながらF2）を押すと下図のような３種のマークが切り替わります。

当たりならばセルJ3に「TRUE」と、ハズレならば「FALSE」と

表示させて下さい。

*

*

*

*

*

※解答用参考ブック

Slot_Q5.xlsをダウンロード （エクセル版）

Slot_Q5.jsdをダウンロード （三四郎版）

※今回のルール（と言いましょうか・・・）

この問題はエクセルコンテストで言えば「腕自慢」ではなくて

「腕試し」というべきものです。今まで何らかの形でこのブログに参加して

頂いた方、特に常連さんはその辺りをご配慮下さい。m(__)m

尚、答え合わせは2/18（水）の7:00ということで・・・

関数で出来ますか～？

　「表計算一筆書き」に続き、「関数で出来ますか～？」という

コーナーを作りたいと思います。

No	お題		日付
1	第１問・・・【問題	三四郎・エクセルで方程式	2008/12/13
2	第１問・・・【解答例】		2008/12/15
3	第２問・・・【問題】	ごじらをばらばらに	2008/12/20
4	第２問・・・【解答例】		2008/12/21
5	第３問・・・【問題】	１０枚の領収書	2009/01/31
6	第３問・・・【解答例】		2009/02/01
7	第４問・・・【問題】	ランダム得点入力	2009/02/05
8	第４問・・・【解答例１】		2009/02/11
9	第４問・・・【解答例２】		2009/02/11
10	第４問・・・【解答例３】		2009/02/11
11	第４問・・・【解答例４】		2009/02/13

　

今日、第５回目を発表します。ある程度の質を維持しての

シリーズ化はかなり難しいと思いますが

よろしくお付き合い下さい。m(__)m

　　　

関数で解けますか？ （ランダム得点入力解答例 その4）

【´･ω･`】:さて、どん尻に控えしは～！！ 誰あろう、minmaxさ～ん！！

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

仕事の飲み会から帰ってきて・・・
無線を止めてルーター直結で無理矢理つなげたらとりあえずつ
ながりました。
みなさんのはよく見てませんが、
次はつながるか分からないのでつまらないずるですが思い切っ
て送ります。

以下は、昨日送ろうとしたときに書いたものです。
－－－－－－－－－－－－－－－
くまぷーさんお世話になっております。
今回は、参加しないと心に決めていたのですが、
みなさんが頑張っておられるので、ちょっとやってみました。
何の工夫も飾り気もありませんが、一応送ります。

２日ぶりにパソコンを開いてエクセルをさわっていたら、
ネットワークにつながらなくなり、
２度もブルースクリーンになってしまいました。
起動に５分以上かかるし、超遅いし、
このパソコンも寿命のようです。
それともウイルスかな。
エクセルの方は殴り書きの検証不足のものですのがよろしくお
願いします。
念のためウイルスチェックはよろしくお願いします。

minmax_san_2009_Q5.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（minmaxさん談）

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

>念のためウイルスチェックはよろしくお願いします。

一応、ソースネクストのやつでチェックしました。

陰性でした。（念のため）　(^^ゞ

関数で解けますか？ （ランダム得点入力解答例 その３）

★MFさん

くまぷー　さん

お世話になっています。

修正出来ましたので、差し替えお願いします。
ファイル名は同じにしてあります。

よろしくお願いします

mf_2009_Q5.lzhをダウンロード
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ＭＦさん談）

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

★sakudaさん、循環参照版

時間切れで大した物は思いつきませんでした。

循環参照バージョンです。
sakuda89.lzhをダウンロード

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

★くまぷー、循環参照版

sakudaさんに刺激されて作ってみました。(^^ゞ

2009_Q5_kumapooh_Jyunkan01.lzhをダウンロード

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

★かめぷーさん

ちょっと過ぎちゃったぁ！
ごめんなさい！
とりあえず送ります。

kamepooh_san_2009_Q5.lzhをダウンロード

関数で解けますか？ （ランダム得点入力解答例 その２）

★かずさん

こんばんは、くまぷーさん。

ここんとこちょっと忙しくて…
それに、最近思考回路がすっかり旧式になってしまって…

とりあえず、関数での参加をお願いします。
要求される回答にはなっているとは思います。

まだ締め切りには間に合いますよね。

では、よろしくお願いします。

KazuSan_2009_Q5.lzhをダウンロード

                    （かずさん談）

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

★ジョー３さん

親切にと思って、操作の所に色を付けたら

・・・・・

ズル版に影響が出るのだ。

先頭がタイトルと理解されて

Aｚでは、うまく行かないのだった。

まあ、皆さんは分かって下さると思うが、、、

説明が　作品に影響　そんなことはあるよねーー

J3San_2009_Q5.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

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

★kirさん

くまぷーさん　こんばんわ。ご無沙汰してました。

いまさらながらですが、Ｑ４のminmaxさんの式を参考にしたものと、Ｑ５を２ファイル送ります。
「2009_Q5-2」はオプション弄ってますのでファイルを分けました。よろしくお願いします。

kir_san_2009_Q5.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（kirさん談）

関数で解けますか？ （ランダム得点入力解答例 その１）

★くまぷー

　入力は出席番号２桁+得点としています。

　例）出席番号１番+63点→0163

　　　出席番号20番+63点→2063

　　　出席番号20番+1点→201

　　　出席番号20番+100点→20100

つまり、上2桁が出席番号を示し、残りが得点を示しています。

こうすることにより、ユーザは最小のストロークで成績処理を

行うことが出来ます。

　・関数版

　　=--MID(VLOOKUP(B2 & "*",A$2:A$46,1,0),3,9)　　42文字

　　エラーを隠して

　　=IFERROR(--MID(VLOOKUP(B2 & "*",A$2:A$46,1,0),3,9),"")　54文字

2009_Q5_kumapooh_Func.lzhをダウンロード

　・マクロ版

　ワークシートのチェンジイベントを使うことで1行マクロにしました。

　尚、文字数を稼ぐためにデフォルトの引き数名を弄っています。

Private Sub Worksheet_Change(ByVal T As Range)
       'On Error Resume Next  '有効にすればデータを消去したさいの
                               'エラーを回避（無視）できます。(^^ゞ
       If T.Column > 2 Then Cells(Left(T, 2) + 1, 2) = Mid(T, 3)
End Sub

2009_Q5_kumaPooh_Macro.xlsをダウンロード

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

★y sakudaさん

　1行マクロ2作、配列数式1作の計3作です。

　sakuda_san_2009_Q6.lzhをダウンロード

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

★む印さん

少しだけコンテスト風にアレンジしてみましたｄ
よろしくお願いしま～す！

2009_Q5_Mujirushi_san.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん　談）

お知らせ ランダム得点入力作品展示会

２／１１日、今夜

８：００　くまぷー、sakudaさん、む印さん

２／１２日

８：００　ジョー３さん、かずさん、kirさん

２／１３日

８：００　MFさん、　sakudaさん（循環参照版）、くまぷー（循環参照版）

・・・というスケジュールで如何でしょうか？

当初、一度に公開！と考えていたのですが

ちょっと、もったいないかな～と思いまして・・・(^^ゞ

関数で解けますか？(その2)

　前回の「10枚の領収書」は如何だったでしょうか？

今回のお題は「ランダム得点入力」です。(^O^)

このブログは「教員のためのPC活用術」というタイトルなのですが

この頃はぜんぜん教員を意識した記事がありません。たまには・・・

ということで上記のお題にしてみました。

　さて、業界人（教員）以外の方にお題の背景を説明しますと・・・

この業界では中間試験・期末試験からちょっとした小テストまで

年がら年中試験をやっています。中間試験・期末試験等の定期試験では

生徒が出席番号順に着席しています。ですから答案回収時に答案が出席番号順に

なるので、採点結果を名簿に記入（入力）する時に不便はないのですが

定期試験以外の小テスト等になると、生徒が出席番号順に着席していないので

回収した答案は当然、バラバラです。

　このような答案の採点結果を記入（入力）する時は視線を動かし

入力するセルを探し、そのセルにカーソルを移動し入力しなければ

ならないので、たいへん面倒です。(T.T)

★名簿は下のようになっています。

*

*

*

*

*

*

*

*

*

そこでなるべくラクができるように入力欄に出席番号と得点を入力すれば

得点欄に得点が表示されるようなシートを作って欲しいのです。(^O^)

★シートの例

*

*

*

*

*

*

*

*

★仕様

１．生徒数は４５名まで。得点は０～１００までの整数。

２．A列２行目からが入力欄。B列はどう使おうと自由。C列は得点表示欄。

　ただし、2行目が出席番号１の者の得点、3行目が出席番号２の者の得点、・・・・・・となる。

すみません、２の縛りは無しにします。本家のエクセルコンテスト同様

解答用サンプルシートのレイアウトはあくまでも参考ということで・・・

途中で仕様を変えてスミマセンm(__)m

★解答用サンプルシート

2009_Q5.xlsをダウンロード

★くまぷーの解答公開2/11午後8時（答え合わせ）

　直接、解答に関わるような書き込みは2/11午後8時までご遠慮下さい。

　参加して頂ける方は、メールにファイルを添付して送って下さい。m(__)m

minmaxさんのDec2Bin

エクセルには１０進数を２進数に変換するDec2Binという関数が

あります。これはエクセル２００７ならば標準装備なのですが

古いエクセルではアドインの「分析ツール」を組み込まなければ

使えません。ちょっと不便です。それに変換できる１０進数の

上限が５１１までという制限があります。あまり、使い勝手が

よくありません。

　ところが、このブログの常連のminmaxさんが１０進数の１０２３まで

対応する関数を作ってくれました。「関数で解けますか？・・・

ナップサック問題解答例」のコメントの中にその関数があるのですが

このままでは埋もれてしまいそうです。そうなったら、あまりにも

もったいないので改めてここに紹介させて頂きます。

=TEXT(SUM(INT(MOD(十進数,2^ROW($1:$10))/2^(ROW($1:$10)-1))*10^(ROW($1:$10)-1)),"0000000000")

２進数に変換する１０進数を上式の赤文字の十進数のところに

入れて、Ctrl+Alt+Enterを同時に押します。配列数式です。

便利ですよ！！　(^O^)

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

minmaxさんのDec2Binを使って「10枚の領収書」の問題を解いてみました。

すっきりと出来ました。(^O^)

Q4_2009_with_MinMaxSan_DIc2Bin.lzhをダウンロード

関数で解けますか？・・・ナップサック問題解答例

　当初は総当たりの解答しか、用意していなかったんですが

ジョー３さんから、芸がないとのお叱りを受け急遽、別解を

用意しました。三四郎版は当初予定していたものと同じです。

エクセル版は循環参照を利用していますので

他のファイルを開かないで下さい。

三四郎版は圧縮しないと７７４KBですが、エクセル版は１６KBです。

receipt_sanshiro.lzhをダウンロード

Q4_kumapooh_Kaitei.lzhをダウンロード （Excel２００７　改訂版）

Q4_kumapooh_Kaitei_xls.lzhをダウンロード （Excel２０００－２００３改訂版）

※エクセル版はDec2Bin関数を使っています。Excel２００７ならば

そのまま動きますがExcel2000等ではアドイン「分析ツール」を

組み込む必要があります。

　「Excel２０００－２００３」用はエクセル２００７で保存し直しただけで

動作の検証はしていません(^^ゞ

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

エクセルの改訂版をアップしました。（2009/02/02）

関数で解けますか？

あるSNSで出された問題のパクリなんですが・・・

【問題】
ある電器屋では7777円以上のレシートを持って行くと
景品として、幻のVB for MS-DOSのFDをくれる。
次の10枚のレシートから選んで7777円 に近くなるような
組合せを１つ見つけて欲しい。

　1922　1766　1598　1246　1153　1000　961　869　593　267

ちなみに下のぷーさんが持っているのが
幻のVB for MS-DOSのFDだ！！

＊

＊

*

*

*

*

*

*

*

*

★解答用のエクセル・三四郎のファイルを用意しました。

ダウンロードしてお使い下さい。

Q4_2009.lzhをダウンロード

変なんです・・・！？

・・・というタイトルのメールをむ印さんから頂きました。

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

くまぷーさま、お久しぶりです！

早速ですが、添付のシートが変なんです・・・。

実は今日、自分の一筆書き解答ＢＯＯＫの「チェッカーフラッグ」を開いて
例の白黒反転２０文字「=LEFT("■",A2&B1>A1)」でＦ9で動かして遊んだあと、
冗談で白黒固定19文字「=LEFT("■",A2&B1="")」でＦ9を押してみたら・・・動いた、、へっ・・・？
　（excel2000,2002）
「そんな筈は無い」と色々調べてみたのですが、他のシートで「=LEFT("■",A2&B1="")」を
入力してF9を押しても、当然ですが動きません。このシートだけのようなんです、、、、、
ウイルスにでもやられているのかとスキャンしても問題はなく、少し気味が悪くなったので
くまぷーさんにご相談・・・というか、ご報告させていただいた次第です。

添付のシートは空白にしておきましたので、「=LEFT("■",A2&B1="")」を入力してご確認いただけたらと思います。

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

下がむ印さんから頂いたエクセルファイルを圧縮したものです。

ウィルスなんて言葉が出ているので気味が悪いと思う方が

いるかもしれないので、くまぷーが圧縮しました。

一応、ソースネクストのウィルスセキュリティでは陰性です。(^^ゞ

MUJIRUSI_SAN_NAZO_FILE.lzhをダウンロード

せっかく、む印さんがくれたオモチャを独り占めに

する手はありません。さあ、みなさん、いっしょに遊びましょう！！

★「表計算一筆書き」を知らない方のために

※表計算一筆書きとは？

※表計算一筆書き既出問題

※チェッカーフラッグとは？

※む印さんの疑問とは？

　=LEFT("■",A2&B1="")をA1に入力し、それをK11まで

コピペする。そしてF9を押してエクセルに再計算させる。

すると、む印さんのシートでは、チェッカーの白黒が反転する。

しかし、新規のシートに同じことをしても、白黒が反転しない。

エクセルコンテスト２００９（８）

　エクセルコンテストの解答例が発表されました。

日経PC21の編集部によるものです。

http://pc.nikkeibp.co.jp/article/knowhow/20090121/1011519/

どれもシンプルでわかりやすいです。

くまぷーが気に入ったのは、ヘンに「名前」付けを

していないところです。エクセルコンテストでは

セル範囲などに名前を付ければ「式の可読性を高め」られる

ということが言われているので、矢鱈に名前を付ける方が

いるようです。（なんて言っていますが、くまぷーも応募作品には

必要以上に名前を付けています。(^^ゞ）

　ところが、当たり前のことですが名前を付ければ、

式の可読性が常に高まるというわけでは

ありません。名前を付ければ、セル番地が隠れてしまうので

パット見で、どこを参照しているのかが

わからなくなってしまうからです。

編集部の解答例であれば、ヘンに名前をつけずに

セル番地のままで正解だと思います。(^O^)

エクセルコンテスト２００９（７） 三四郎版Q2

　Q2に関しては三四郎の方が有利です。

なぜならばエクセルのRank関数は

=Rank（数値、範囲、モード）

という形式なのですが、順位を求めたい数値を持つセルが

範囲内に入っていなければエラーになってしまうのですが

三四郎のRank関数はエラーになりません！！

従ってフツウに・・・

=Rank(C3,G4:G13)

・・・で順位が求められます。(^O^)

あ、第３引数は省略しています。(^^ゞ

Q2_2009_JSD.lzhをダウンロード

エクセルコンテスト２００９（６） 三四郎版Q1

　応募作品展示会も一段落したようなので

三四郎を使って考えてみました。エクセルでやれば

Q1なんて（答えをだすだけならば）屁みたいなものなのですが

三四郎をつかってやろうとすると、一筋縄ではいきませんでした。

その理由はエクセルのMATCH関数にあたるものが三四郎では

見つからなかったからです。

・・・で無理矢理やったのがこれです。

★Q1_2009_JSD.lzhをダウンロード

見栄えがしないのですが、晒しちゃいます　(^^ゞ

三四郎にはエクセルのMATCH関数に相当するものが

あるんでしょうかねぇ？

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

結局、MATCH関数にあたるものが見つからないので

Col関数を使って代用してみました。(^^ゞ

★Q1_2009_02_JSD.lzhをダウンロード

エクセルコンテスト２００９作品展示会（３）

★★★エクセル好きのみなさん、下のアドレスに作品を添付して送って頂ければ

順次、展示していきますのでよろしくお願いします。m(__)m

[email protected]

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

★redstarさんの作品です。ご覧下さい。

こんばんは。以前女王陛下でご一緒させていただいた、redstarです。

皆さんの技巧に満ちた力作を見ていると自分の何の工夫もない作品をさらすことは

恥をさらすようで躊躇していましたが、友人でもありまた目標でもあるむ印さんの

勧めもあり、勇気をだして公開します。

最初に言いますが、何の特徴もありません。小技系は一切シャットアウト、「とにか

くシンプルで分かりやすい」だけをモットーにしました。笑ってやってください。

redstar_san_2009.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（redstarさん談）

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

★かめぷーさんの作品です。ご覧下さい。

こんにちわ、お久しぶりです。

コンテストの発表会はどこでするのかなぁ・・

とおもっていたら、ここだったのですね。＾＾

みなさん、力作揃いでさらすのやめようかと

思いましたが、最後なので。

Kamepooh_san_Q3_2009.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（かめぷーさん談）

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

★呑　保世さんの作品です。ご覧下さい。

昨日からずーっと仕事をしてます。

今回は忙しく　ちょっと中途半端に終わってしまった。

Don_san_2009.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（呑　保世さん談）

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

★くまぷーの出さなかったQ3ファイルです。ご覧下さい、

　　なんて言えるような代物ではありませんが・・・

　　Frequency関数を使って該当誕生日がどの区間（星座）に

　　当たるかを調べています。該当星座は頻度が１になることを

　　利用しています。

　　　あ、ちなみに何の装飾もしていません。(^^ゞ

kuma_pooh_Q3_2.lzhをダウンロード

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

★ゴエモンさんからの作品です。ご覧下さい。

はじめまして。ゴエモンといいます。

む印さんのお誘いでこちらにお邪魔しました。

関数などに強い方が多く楽しいサイトですね！

みなさんの作品見させていただきましたが、

みなさん凝っていて力作揃いですね～(^^)

今回の私の応募作品はシンプルなので、

見てもあまり面白さはないかと思いますが…^^;

１つ公開させていただきます。

では宜しくお願いいたします。

goemon_san_Q3_2009.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ゴエモンさん談）

エクセルコンテスト２００９作品展示会（２）

★★★エクセル好きのみなさん、下のアドレスに作品を添付して送って頂ければ

順次、展示していきますのでよろしくお願いします。m(__)m

[email protected]

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

★む印さんの作品です。ご覧下さい。

締め切りが済んですぐに友人とメールで答え合わせし合ったのですが
その友人R氏の作品は3作とも、非常に手が込んでいて
一見しても分からないほどスゴいもので、その作品から発せられる
彼の、今大会への強烈な情熱がこちらにも伝わり、
私は冷水を浴びせられたような気持ちになりました。

今回わたしは「最終回」ショックで、やる気を損ない
頭では「ああすればいいなぁー」と思ってることもせず
かなり手を抜いた情けない作品ばかりで
公開を躊躇してたのですが、その友人に励まされたことと
その友人R氏の作品をくまぷーさんのところで、どうしても公開させたくて
恥をしのんで自分の作品をまず公開させていただきたく、
よろしくお願い致します。

MuIN_san_2009.zipをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん談）

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

★匿名希望のminmaxさんの作品です。

ほんとは、そんなに価値がない物なので出さずにおこうかなと
も思ったのですが、最後だし恥ずかしながらＱ１だけ送ります。

数式は大したものではないし、綺麗な式でも無し。
検証不足かもしれないので、何か不具合があるのではないかと
不安。
エクセル２０００ではワードアートにセル参照を出来ないよう
な感じだったので、２０００を使っている方にはどうなるのか
わかりません。
コンタクトを買う場合、個数を決めて購入するほかに予算で購
入個数を決める方法、使用期間で購入個数を決める方法もある
と思って作ったものです。ま、不完全ですが。
最後にむ印さんのお友達のRさんすごい方みたいですね。

ということでよろしくお願いします。

Mr_X_Q1_2009.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（匿名希望のminmaxさん談）

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

★とどぺこさんの作品です。ご覧下さい。

くまぷー さんへ

よろしかったらわたしのも晒していただけますか

もちろん入賞狙いです(違うか

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（とどぺこさん談）

todopeko_2009.lzhをダウンロード

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

★MFさんの作品です。ご覧下さい。

初めまして、ＭＦと申します。
皆さまの作品をROMって感動しています！
初心者なので大変勉強になりますが、難しくて理解できない作品も多いです。

チョット恥ずかしい出来ですが、私も参加させて下さい。
コンテストには初めて応募しました。最終回なので。
目標は、「エラーを出さない」です。

MF_San_2009.lzhをダウンロード

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(MFさん談）

エクセルコンテスト２００９作品展示会（１）

　それでは締め切りが過ぎたので、まずはくまぷーから

晒します。

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

★くまぷー

Q1:MATCH,INDEX,MIN関数で解きました。

使った関数も基本的、考え方もありふれたもので

わかりやすさが唯一のウリです。(^^ゞ

Q1.xlsをダウンロード

Q2: Rank関数を使いました。第２引数を括弧でくくることにより、

複数の範囲を指定しています。「括弧くくり複数範囲指定」が

はっきり判るように敢えて引数に名前をつけていません。

この問題は当たり前にRank関数を使えばできてしまうので

どこが「腕自慢」なのか理解に苦しみます。

Q2.xlsをダウンロード

Q3:いろいろやってみようと意気込んではみたものの

結局、中途半端なものになってしまいました。(^^ゞ

ウリは・・・ありません。(T.T)

KUMA_POOH_Q3_2009.zipをダウンロード

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

★y sakudaさんの作品です。出品ありがとうございます。

sakuda.lzhをダウンロード

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

★ジョー３さんの作品です。出品ありがとうございます。

J3.lzhをダウンロード

ジョー３さんの掲示板もごらんください。

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

★かずさんの作品です。出品ありがとうございます。

Kazu_San_2009.lzhをダウンロード

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

★kirさんの作品です。出品ありがとうございます。

Kir_san_2009.lzhをダウンロード

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

★くまぷーのQ3(xlsx)を(xls)にコンバートしたものです。オリジナルと

　ちょっと色合いが違いますが・・・ご覧下さい。m(__)m

Q3.xlsをダウンロード

エクセルコンテスト２００９（５）

　締め切りが近づいてきたのだが、たいしたものは

できていません。「ガチ」でやるなんて意気込んでいたのに

本当に情けない限りです。やっぱり、こういうコンテストは

おいらには向いていないなあ・・・

三四郎２００９と一太郎２００９に対する期待の違い

　「謹賀新年２００９」のコメント欄の続きになってしまうが

くまぷーの日常の使い方であれば一太郎１０があれば

それ以降のバージョンはなくても構わない。ぜんぜん、困らないのだ。

極端なことを言えば一太郎６．３でもいいくらいだ。

ところが、三四郎では現時点の２００８でもまだ機能的な不満がある。

例えば・・・

１．セル内改行

２．複数回のアンドゥー

３．条件付き書式

この３つの機能が三四郎２００９では実装されるという。

この3点が三四郎２００９では改善されるというので

三四郎２００９は欲しいが一太郎２００９は無くても構わないのだ。

三四郎の新機能はエクセルには既にどれも実装されているので

いまさら、という気もするのだが、エクセルは条件付き書式で

斜線を引くことができないので、

もしもこれが可能になれば

エクセルよりも使い勝手の良い条件付き書式と言えよう。

はてさて、どうなるか・・・

※OpenOfficeのCalcは条件付き書式で斜線を引くことが出来る

謹賀新年２００９

　みなさんには旧年中、本当にお世話になりました。

今年もよろしくお願い申し上げます。m(__)m

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　くまぷー

エクセルコンテスト２００９（４）

　Q1,Q2・・・ぜんぜん、アイディアがでない・・・

いったい、これをどうやってふくらませたらいいんだ！！

Q3・・・表をそのまま使うか、作っちゃうか・・・

　　それが問題だ・・・

　　

循環参照で動かすか？でも実用的でないということで

１秒でゴミ箱か・・・

K-20〈TWENTY〉 怪人二十面相・伝

　今日は誕生日ということで近くのシネコンで

「K-20〈TWENTY〉 怪人二十面相・伝」を見てきました。

　舞台は太平洋戦争を回避した架空の帝都東京です。

金城武のアクションも見栄えがよく、娯楽作品としての出来は

上々だと思います。

・・・後はJustSystemのモニター募集に応募した。

Just　Suite　2009が当たるといいな(^O^)

平仮名を半角カタカナに（エクセル関数編）

　「平仮名を半角カタカナに」というキーワードでここを訪れる方が

かなりいらっしゃるようだ。

その時はVBAのStrConvを使う方法だったのでVBAを使わない

方法を紹介したい。

（例）A1に「くまぷー」とあるとして、B1に「ｸﾏﾌﾟｰ」と表示させる。

手順

１．B1に=PHONETIC(A1)

２．A1を選択して「書式」「ふりがな」「設定」

３．「ふりがなの設定」ダイアログボックスの「ふりがな」タブから

　　「種類」を「半角カタカナ」にして「OK」

三四郎と違ってエクセルには平仮名-カタカナ変換の関数が無いので

けっこうエクセルに詳しい方でもこの辺りをご存じない方もいらっしゃるようだ。

実はこの盲点を狙って出題したのが「ごじらをばらばらに（エクセル編）」でした。(^^ゞ

エクセルコンテスト２００９（３）

　昨日、有楽町まで行って宝塚・宙組の「パラダイスプリンス」を

見てきました。その中で主人公のスチュワートが、恋人のキャサリンに

向かって言います。キャサリンは芸術家になるのが夢で、

美術コンテストに向けて描いた絵を主人公に見せて批評を求める

場面です。

「・・・この絵にはためらいが見える・・・君は自分の好きなものを

描こうとしているのではない・・・審査員に媚びている」というような

ことを言います。

　しかし、がちで入賞を狙うなら、そのコンテストで何が高評価を

得るかというのを考えるのは当然です。エクセルコンテストでは

ワンセルかつ長大な数式は絶対に没です。

　さて、どうしよう・・・オロオロ (・_・ )( ・_・) オロオロ

エクセルコンテスト２００９（２）

　表計算腕自慢大会は今回が最後ということなので

ワードや一太郎は封印します。エクセルで勝負です。

最後は「ガチ」で勝負だ！！

＼(`O´θ／エイキックじゃ！

（●｀ε´●）：くまぷー、おまえ、「がち」なんて言ったって弱いじゃん。

【´･ω･`】:それはそうなんだけど、気合いだけでも・・・

※がちの意味はこちら

エクセル・コンテスト２００９

　いよいよ、今年もやってきました。年末恒例表計算腕自慢大会です。

くまぷーはこの3年間、連続でワードで応募してきました。中には

一太郎で応募した年もありましたっけ・・・(^^ゞ

下は２００８年の腕自慢Q1応募作のキャプチャー画面です。

＊

＊

*

*

*

*＊

＊

＊

ワ－ド作品はこちら

一太郎はこちら

*

*

ごじらの逆襲

（●｀ε´●）：なんだ、みんな、ごじらをばらばらにするのに

　　　　　　　100文字を越えているのか？！おいらなんか

　　　　　　　たったの22文字だよ！！（￣＾￣）

＊

*

*

*

*

【´･ω･`】:べべちゃん、「ゴジラ」のゴジラと「ゴジラの逆襲」の

　　　　　ゴジラは・・・

ごじらをばらばらに・・・エクセル編【解答例】

問題はこちら

さて、この問題のポイントは、濁点・半濁点を親文字から分離するのですから

親文字である平仮名を如何に半角カタカナに変換するかです。

ところが、エクセルには全角半角変換の関数はあるが

平仮名カタカナ変換の関数が用意されていません。VBAを使うなら

Strconvでも使えばいいんですが、ルールでVBAは禁じ手です。

さて・・・そこでどうするかが頭の使いどころです。

minmaxさんの「地球防衛軍」にも対応していますよ、という言葉・・・

それは、タネは全てお見通しですよ、と言う宣言ですね(^^ゞ

だって「地球防衛軍」という漢字が平仮名に変わるんだもん、フリガナ関数（phonetic）を

使っているのはバレバレですよね・・・(^^ゞ

phoneticによるフリガナはデフォルトで全角カタカナになりますので

これを利用します。

手順（基本的な考え）

１．phoneticで平仮名を全角カタカナに

２．Ascで全角カタカナを半角カタカナに

３．midでばらばらにして１文字ずつ切り出す

４．jisで全角カタカナに

５．codeで文字コードを取り出す

６．文字コードから２５６を減じて全角カタカナのコードから

　　全角平仮名のコードに修正

７．charで全角平仮名のコードを文字に

【解答例】

=IFERROR(CHAR(CODE(JIS(MID(ASC(PHONETIC($A2)),COLUMN()-1,1)))-256),MID(ASC(PHONETIC($A2)),COLUMN()-1,1))

（エクセル２００７　１０４文字）

ごじらをばらばらに・・・エクセル編

【´･ω･`】：A1に「ごじら」とあったら

　　　　　　　　　　B1に「こ」

　　　　　　　　　　C1に「゛」

　　　　　　　　　　D1に「し」

　　　　　　　　　　E1に「゛」

　　　　　　　　　　F1に「ら」

　　　　　　・・・といったふうにバラバラに表示させたいんだ。

　　　　　　どうやったらできるかなぁ・・・？　(^。^)

★今回のルール

１．三四郎厳禁　(^^ゞ

２．VBA禁止

３．B1の式をF１までコピペして答えを作る。

関連：「ごじらをばらばらに」（三四郎編）

http://www.geocities.jp/kuma_pooh1958/Blog/sns_Codzilla_Index.html

エクセル・三四郎で方程式【解答例】

　この問題はエクセルに対しては三四郎絶対に有利です。

なぜならば三四郎では下図のように・・・

＊

＊

＊

＊

Ａ列に価格、Ｂ列に個数、Ｃ列に価格としてＡ列×Ｂ列と

するとエラーにならずに計算できちゃうんです　(゜ロ)ギョェ

つまり、「数字（半角・全角問わず）　＆　文字」に四則演算を

すると数字の部分だけを取り出して計算するんです。

ですからＡ１に2x-3=5としてB１に＝A1*1とやるとxの係数2が

求められちゃうんです　(゜ロ)ギョェ

何という荒技でしょう？！

でも、こういうことができると唯一の解説本である「三四郎９のすべて」には

書いていないんですよね。いや～、もったいない　( ´－｀)

解答例　（スミマセン、下はメチャクチャ解答でした。常連さんの

解答を参考にして下さい。くまぷー12/16追記）

Excel２００７　１６２文字

=(RIGHT(A2,LEN(A2)-FIND("=",A2))-COUNT(MID(A2,FIND("x",A2)+1,FIND("=",A2)-FIND("x",A2)-1)))/IFERROR(FIND("-x",A2)*-1,IF(FIND("x",A2)=1,1,LEFT(A2,FIND("x",A2)-1)))

三四郎　１２２文字

=(RIGHT(A2,LEN(A2)-FIND("=",A2))-COUNT(MID(A2,FIND("x",A2)+1,FIND("=",A2)-FIND("x",A2)-1)))/IFERROR(FIND("-x",A2)*-1,IF(FIND("x",A2)=1,1,LEFT(A2,FIND("x",A2)-1)))