Excel Maniacs

第１２６回 ジョーさんのランダム 解答例

こんかいも、、、完敗の予感です。　　　　　　　（ジョー３さん談）

Q126jをダウンロード

第１２６回 ジョーさんのランダム

１）緑のセルに式が入っている
２）それで、１～９がランダムに出てきます
３）勿論F9で緑の数字は変わります
４）問題：黄色のセルに１～９の数字を出す式は?
５）ただし緑の数字が変わったら、黄色の数字も変わってほしいのだ
６）そのうえ黄色の数字は、重複してはいけない（9種1回ずつ)
７）緑の数字が同じなら、黄色も同じでも良い、、、が、、、ちがっても良い
８）まあ、、F９のたびに黄色の１～９の順番が変われば、合格です
９）勿論作業セルは作ってはいけないのは、いつもの通り
１０）ん？？？緑のセル参照しない・・・それはそれで自由
＊＊＊まだ、、、回答例はつくっていないけど＊＊＊
＊＊＊短さも、うれしいが、、面白いのがあればさらにうれしい＊＊＊
　　　　　　　　　　　　　　　　　　　　　　　　　　　　（出題　ジョー３さん）

解凍用参考ファイル：Q126をダウンロード

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

尚、解答締め切りは０５／０５（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第１２５回 麻雀の相手 解答例

麻雀回答例です。

出題者回答例は、

４１ {=LARGE(IF(C$2:C13=C$3:C14,,B$3:B14),B3)}

うら問（からくちさん提案）は、

３８ =SMALL(OFFSET(L3:L6,(ROW()-3)*4.5,),1) でした。

（ジョー3さん談）

第１２５回 麻雀の相手

F3(赤い)セルの式は??? 
 
条件 
１） 麻雀の対戦相手を3人選びたい
２） 私とで4人で遊ぶのだ
３） 3人の内訳は男だけになったら駄目（殺風景）
４） 女だけも駄目（おいら、緊張するから）
５） F3に式を書いて
６） F4,F5にコピーする
７） 再計算で黄色のデータは変わる
８） 緑部分を使ったら駄目
９） 思いついたまんまで、、、やってない
１０） 火、水、木、、は、、、、10の位＋１の位で
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん出題）

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

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

尚、解答締め切りは０４／２８（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

 

教員のためのコンピュータ活用術 No.3 簡易数式作成

ワードで数式を書くのは面倒だと思う方へお奨めです。

複雑な数式を作ることはできませんが、下の例のようなレベルのものならば一発です！！

★使用法

１．範囲を選択する

２．簡易数式作成.VBSをダブルクリックする と下のように数式が整形される。

ちなみにフォントはTimes New Romanを使っています。

 

 

メモ：指数は１桁に限る。

VBS_NO_03（簡易数式作成）をダウンロード

 

 

第１２４回 五皿の苺 解答例

これは、くまぷーさんに、、すぐ解かれて、つまんない・・・・と、、、言われると思った。
出題して、解いてみたら、ポーカーの・・・3カードの変形じゃん・・・・・
途中までで、
{=SUM(COUNTIF(B4:F4,B4:F4))=11}
これでないのは、、、全部OK？？　　＋例外処理で、、
68文字、、
{=IF(SUM(COUNTIF(B4:F4,B4:F4),SUM(B4:F4)=MODE(B4:F4)*5)=11,"×","○")}
だが、、、気にくわない、、、もっとスマートなのが、、、絶対ある予感・・・・
出題者故の、、、思い込み、盲点に、、、はまったかの、、、感！！
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

★Q124　チェック用プログラム：Q124Checkerをダウンロード　（sakudaさん提供）

 

第１２４回 五皿の苺

5つのさらにイチゴが、ある。
母が一皿のイチゴを食べます
さて、、、
残った皿のイチゴを太郎と花子が
ふた皿ずつ食べたい・・・
ただし、同じ数のイチゴになるようにね
可能な場合は、判定欄に○、不可能は×
と、表示される式は?
注：
母はふた皿食べてはいけない
父に一皿残してもいけない
2人の子供は必ず２皿ずつ
・・父は・・・ビールがあるから良いのだ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん出題）

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

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

尚、解答締め切りは０４／２１（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

教員のためのコンピュータ活用術 No.2 セル結合解除

（●｀ε´●）：な、なんだと～！！セルを結合しているとソートできんから

もとにもどせだと～？！

【´･ω･`】:たんにセルを解除するだけだと結合セルの左上のセルにしか

テキストが残らないんで、それじゃ上手くソートできないから

空白になったセルにはテキストを入れておいて欲しいんだ。

（●｀ε´●）：ふ、ふざけんじゃね～よ！！

 

 

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

名称：セル結合解除

機能：セルの結合を解除して空白になったセルには、結合セルに表示されていたテキストを　　入力しておく。

簡単に言えばN0.1で紹介した「同一テキストセル結合」の逆戻しをするスクリプト。

使用法：範囲を選択して、ファイル「セル結合解除・vbs」をダブルクリックする。

 

【´･ω･`】:あ、言い忘れたけどNo.1もNo.2も対象となっているソフトはExcelだよ。

三四郎でやってもだめだからね。

VBS_No_02（セル結合解除）をダウンロード

 

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

[道場訓]
(1)面倒くさいと思ったらなるべくやらずに楽をする。
(2)汗を出すより知恵を出しできることなら楽をする。
(3)一々やらずにすむことは絶対やらずに楽をする。

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

 

 

第１２３回 ５つの田 ４世帯 解答例

＜５つの田 ４世帯 出題者解答例＞

1 ＯＲ ０ と言ったらやはり２進数、、、これを使わない手は無い
と言うことで、、、ここはDEC2BIN関数の出てもらいましょう
後はどう使うかだけ、、、の試行錯誤の繰り返し
こうしてエクセルを弄っている時が１番楽しい
ついつい時間を忘れるひと時
そして稀ですが面白い発見があるや無しや、、、それがたまらない。。。

：=MID(DEC2BIN(COLUMN()+MOD(ROW(A1),4)+2,5),5-INT(COUNT(B$2:B2)/3),1)*1

結論：エクセルとは試行錯誤、、、　　　　（からくちさん談）

 

第１２３回 ５つの田 ４世帯

ジョー３さん原案の「５つの田」最終問題です
よろしかったらお使いいただければと思います

 

【５つの田 ４世帯】
この問題にも慣れ過ぎてしまって易し過ぎると感じているのでは
そこで最終問題にしました
貯めていた案が4つありましたのでそれを全て１つの問題としてしまいました

B3に式を入れ、それをX17までコピーしてください
つまり式は（文字数）B3の１式です

慣れた問題もこれなら多少は気分（考え方）転換になるかも

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん出題）

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

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

尚、解答締め切りは０４／１４（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

教員のためのコンピュータ活用術 No.1 同一テキストセル結合

[道場訓]
(1)面倒くさいと思ったらなるべくやらずに楽をする。
(2)汗を出すより知恵を出しできることなら楽をする。
(3)一々やらずにすむことは絶対やらずに楽をする。

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

名称：同一テキストセル結合

機能：選択範囲内（行）で隣接しているセルのテキストが同じであれば結合する。

使用法：

１．セルを選択する。

２．ファイル「セル結合.VBS」をダブルクリックする。するとこんな感じになります。

VBS_No01（セル結合.VBS）をダウンロード

（●｀ε´●）：こんなこと一々手作業でなんかやってらんねーよ！！

 

第１２２回 鶴亀タコ問題 解答例

 

出題者解答です。



お世話になります。



解答者になってからの回答は、後にしますね、、



つる:　　１１　　：=C6-C10-C11



かめ：　１４　　：=C5/2-C11*3-C6



たこ：　　３６　：=MIN(RIGHT((C5-C6*2-{2,4,6})/6,2)*1)



計６１でした　　　　　　　　　　　　（ジョー3さん談）

第１２２回 鶴亀タコ問題

簡単過ぎかも、、、
でも、、、
またまた、、、
３式計の、、、、１の位＋１０の位だから、、、、ちょっとは、もつかも、、、

＊１ A,B,Cの式を考えてください    
＊２ 緑部分の数値から黄色部分を計算します（他の黄色部分参照はｏｋ）    
＊３ 灰色部分は、元となる数値です（勿論参照禁止）    
＊４ 答えは、色々あることが多いです（その一例のみの回答で可）    
＊５ A,B,C式の合計の短い方が勝ちです    
＊６ 火、水は、３式合計の1の位と、１０の位の合計のみ宣言・・・可　（またまた）    
＊７ 木曜以降は、ご自由に・・・・    
 

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（じょー３さん出題）

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

 

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

尚、解答締め切りは０４／０７（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第１２１回 ５つの田 Part２ 怪答例

＜５つの田PARTⅡ 出題者解答例＞

すみません、、、先ずは謝っておきます
それはこの問題、半分インチキ
何故って、、、始めに解答式ありきで作った問題

それに気付かれた方が要らしたら、、、拍手喝采！！！
（現在：３月２７日 午後７時））

２４文字：=LEFT(COUNT($A$3:A3,))*1
（からくちさん）

第１２１回 ５つの田 Part２

・ジョー３さんの問題のパクリと言うか勝手にPARTⅡです 
・数値の1にすれば条件付き書式で色が淡い黄色になります 
・下図と同様にしてください 
・ただし、ジョー３さんの問題との違い 
・B3に入れた式を、B3～D5、G3～I5、L3～N5、Q3～S5、V3～X5にコピーしてください 
・つまり全てを1つの式で行なってください 
・と言うことで文字数はB3の文字数です 
・易し過ぎてすみません 
　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん出題）

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

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

尚、解答締め切りは０３／３１（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第１２０回 紙を大切に 解答例

当初作成した74を出題者解答としておきます。

=TEXT(OFFSET(DB!A1,(ROW()>1)*INT(COLUMN()/4)*50,-FLOOR(COLUMN()-1,4)),"#")

りすさんのヒントで67にはなるのですが、私の解釈とりすさんの解釈が同じかどうか分かりませんのでりすさんにお任せします。
ただ、お二方が66、65とおっしゃってる訳でどこが違うのかちょっと楽しみです。

基本的にはこの問題Offset、Index、Indirectしかないはずでバリエーションは殆どないと思ってるんですが・・・・。（sakudaさん談）

第１２０回 紙を大切に

【問題】

DBシートに3列（顧客、品目コード、注文個数）の1000件のデータがあります。

これをそのまま印刷すると紙が無駄になりますから、50件づつで、

列を変え1ページに何組か印刷したいと思っています。なにか良い手段はないでしょうか？

なお、やはり見出しがないと分かりずらいので1行目には見出しを入れ、

各組の間には空白の列を入れたいと思っています。　

簡単なことだと思うのですがうまく行きませんできるだけ簡単な方法を教えてくださいm(__)m

【影の声ｗ】

印刷シートのA1に式を入れ、これをA1:CA51にコピーして実現してください。
（データはDBシートのものを使ってください）

それほど難しいとは思いませんが、無茶苦茶長くなるだけですかね？

なお、私が試作したものは100を超えてます。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん出題）

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

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

尚、解答締め切りは０３／２４（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１１９回 ５つの田 解答例

 

いやはや、、、

皆、同じ・・・・・は、、、苦しい。



Aから順に

=1-N1

=1-N2

=N2-F3

=1-M2

=1-M1

計26文字



その後の、解答者になってからの・・・

２５

２４

２３

２２

は、、、お任せです。　　　　　　（ジョー3さん談）

第１１９回 ５つの田

下の田の形4個には条件付き書式が設定、　１　が入力された時だけ　黄色になります             
B2  に式を書いて、　B2:C3　にコピーして　下記の形になるようにしてください。             
E2  H2  K2  N2　も同様です。　　　             
注意：＊＊＊（A)の結果を（B）で利用等・・・参照すべてOK＊＊＊（循環はダメ）             
黄色いところに　１　が入る式ってわけで、青は、、なんでも（0,2,3,4・・・マイナスでも、、）かまいません             
競争点：5か所の文字数の、総合計の少ない方が勝ち。             
火、水　＝５つの合計の・・・10の位と1の位の合計　可・・・・・・・５２なら７、　　４８なら１２             
 　＝5つの合計の・・・10の位と１の位の差も　可・・・・・・・５２なら３、　　４８なら　４            
木以降は、好きなことを発表・・・・・・・・             （ジョー３さん出題）

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

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

尚、解答締め切りは０３／１７（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第１１８回 ◯月☓日＝◯ヶ月☓ 解答例

今回の問題、わたしの主旨はみなさんの回答を見たい
と言う興味本位、、、誠にもって身勝手な出題

日時は苦手意識が強い故、何のアイデアも出ないであろう
短縮は好きでは無い故、式を短くなど考えもしない

と、、、その前にこの問題、他の方の出題なら
式を書くことすらしないであろう
と言うことで、、、「出題者解答例」ならぬ
『関数式とは、、、何なのだろう』

当たり前に（常識的に）考えるなら

{=TEXT(B3-MATCH(1,0/(DATEDIF(B3-ROW(1:200),B3,"m")*100+DATEDIF(B3-ROW(1:200),B3,"md")=TEXT(B3-ROW(1:200),"mdd")*1)),"m月dd日")}

値だけを考えるなら

=TEXT(TEXT(B3,"mdd")/2-MOD(MONTH(B3),2)*35,"0月00日")

問題の意図を全く無視しているが
返る値は一見同様、、、

関数式とは・・・
何が良くて、何が良く無い、、、難しい。。。

ここは始めの主旨通り
皆さんの回答を拝見することに徹しよう　　　　　　　　　　　（からくちさん談）

第１１８回 ◯月☓日＝◯ヶ月☓

何故だろう、、、
思い浮かぶ問題は、その殆んどがわたしが苦手としている問題ばかり

無意識の内に問題を作り、無意識の内に解いている
しかし無意識では解けない問題も有る
それが無意識の領海から意識内にやって来るのだろう
故に苦手な問題ばかり、、、

今回の問題、、、易しいか難しいか、、、
それより、、、苦手故か、、、面倒
出題者解答例を作りたく無い程に
ただみなさんの回答を見たいだけ、、、

【問 題】

E3の日付とE6の何ヶ月と何日が全く同じ数字になるように
E3に式を入れてください（書式は標準で）

ただし、開催日（B3）の日付によってはE3とE6が同数にならない場合があります
その場合はエラーでも何でも構いません

尚、B3は =開催日 と致しますとF9で日付が変わります

（からくちさん出題）

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

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

尚、解答締め切りは０３／１０（土）０３の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

教員のためのVBA本 「エクセルVBAプログラム「通知表」＆「所見」作成ガイド」

昨春、書類の電子化に伴いコンピュータ（エクセル）で通知表を作成したいということで、習志野市内のある小学校から協力を求められました。

どうせ、やるならばできるだけ優れたものを作ろうということで教務主任のＨ先生はじめ 大勢の担任の先生方のご意見を参考にして「通知表メーカー」を作りました。そのご意見の中にはExcelの「関数」だけでは実現できない機能もあったので、その機能を実装するためにVBA（マクロ）を使いました。

VBAだ、マクロだというと、とても敷居が高く感じられるかもしれませんが、校務で使うだけなら、VBAのごく一部が使えれば十分です。それは「関数」の場合と同じです。校務で使うだけなら何百もあるエクセルの「関数」を全て覚える必要はありません。数種類で十分です。VBAでも全く同じなのです。VBAのほんの一部が使えれば、「関数」だけでは作れない実用的なシステムを作ることができます。

「通知表メーカー」を作るに当たってはＨ先生と何度も打ち合わせをしました。その中でまずわかったことは通知表に記載する評価の観点の文言や項目数が学年によって変わるのは当たり前として、学期によっても変わるということでした。

ですから「通知表メーカー」は帳票画面（印刷画面）を固定してしまうわけにはいきませんでした。もしも固定式にしてしまったならば、責任者のＨ先生は学期ごとに６学年分を一々作り直さなければならず、大変な負担になってしまうからです。それに、そもそも固定式でいいのならばH先生の実力があれば私に相談する必要もなかったでしょう。

そこで「通知表メーカー」では自動作表システムをとりいれることにしました。教科の種類や数、また評価項目の数や文言などを変更すれば、それに応じて適切にセルが結合・解除され罫線が引き直される仕組みになっています。もちろん作表と同時に入力用のシートも自動的に作成されます。

本書ではExcelで通知表を作成する「通知表メーカー」の作り方を通して、「使い勝手のよいプログラムとは？」「なぜそのように作るべきか」に重点を置き、ほんとうに「使える」システムの作り方について詳説しました。

校務には必要ないと思われる部分は思い切って割愛していますが、本書の内容だけで通知表だけではなく大学・高校用の調査書などあらゆる帳票を作成することができます。強くお勧めします。

 

著者より

<もくじ>
序章　「通知表メーカー」の使い方
0-01　メニューを呼び出す
0-02　初期設定入力
0-03　教科の目標入力
0-04　行動の目標入力
0-05　教科別評価の入力
0-06 行動の評価入力
0-07　出欠状況の入力
0-08　所見の入力
0-09　通知表の印刷

1章 簡易版「通知表メーカー」の作成
1-01　コードウィンドウを表示させる
1-02　コードを書く準備をする
1-03　初めてのプログラミング
1-04　特定のセルに入力があった時にメッセージボックスを表示させる
1-05　特定のセルに文字列を表示させる
1-05-01 RANGEを使ってセルを指定する
1-05-02 CELLSを使ってセルを指定する
1-05-03 「RANGE」と「CELLS」について
1-06　変数を使う
1-07　コードにコメントをつける
1-08　個人成績表を作る
1-09　評価記号の表示位置が変わる個人成績表をつくる
1-10　簡易版「通知表メーカー」 （ SAMPLE01.XLS ）の説明

2章　簡易版「通知表メーカー」の改造
2-01　別シートのデータを利用して個人成績表を作る
2-02　別シートにデータを転写する
2-03　数値を記号に変換して個人成績表を作る
2-04　 FORループで繰り返し処理をする
2-05　 マクロで連続印刷する
2-06　 コマンドボタンにマクロを登録する
2-07　「通知表メーカー」を改造する
2-07-01データ入力シートを分割する
2-07-01-01　コードの追加
2-07-07-02　コードの変更
2-07-02　コードの冗長性を解消する
2-07-03　数値を記号に変換して表示する
2-07-04　連続印刷機能を実装する

3章　校務で使うマクロの機能
3-01　セル空欄時に斜線を引く
3-02　選択肢に○をつける
3-03　空欄時にセルを横切って斜線を引く
3-04　セルの結合・解除をする
3-04-01　セルの結合
3-04-02　セルの結合解除
3-05　 PHONETIC関数ではフリガナを表示できない文字列にフリガナを設定する
3-06　 マクロの中でSUMやAVERAGEなどのワークシート関数を使う
3-07　セルに「コメント」をつける

4章　作表に必要なアルゴリズム
4-01　合計の求め方
4-02　受験者数の求め方
4-03　平均の求め方
4-04　最大値の求め方
4-05　順位の求め方
4-06　下請け用のプロシージャ---サブ・ルーチンを利用する
4-06-01　サブ・ルーチンとは
4-06-02　計算結果を返すサブ・ルーチン------FUNCTION
4-07　DOループで繰り返し処理をする
4-08　配列変数でまとめて処理をする

5章　使いやすいメニューの作成
5-01　ユーザーフォームを挿入して名前とキャプションを変更する
5-02　ユーザーフォームにリストボックスを配置して児童名を1名表示させる
5-03　リストボックスに生徒名を1クラス分表示させる
5-04　チェックボックス付きのリストボックスにする
5-05　その他の有用なリストボックスのプロパティ
5-05-01　LISTINDEXプロパティ
5-05-02　SELECTEDプロパティ
5-06　リストボックスで選択した児童の個人成績表を表示させる
5-07　リストボックスで選択した児童の個人成績表を印刷する　　　 　　　　
5-08　オプションボタンを使う　　　　　　　　　　　　　　　　　　　　　　　

6章　実用版「通知表メーカー」の仕組み
使いやすいシステムを作るには
6-01　初期設定シートを作る
6-02　教科の目標シートを作る
6-03　行動の目標シートを作る
6-04　教科別評価シートを作る
6-05　行動の評価シートを作る
6-06　出欠状況シートを作る
6-07　所見シートを作る
6-08　メニューを作る
6-09　メニューリストに児童名を表示する
6-10　目的にあったワークシートを表示する
6-11　印刷機能を実装する
6-12　「CTRL」+「M」でメニューを呼び出す

7章 「所見作成サポーター」の使い方
7-01「所見サポーター」を起動する
7-02　児童情報の事前登録 　　　　　　　　　　　　　　　　　　　　　
7-03　コンピューターが所見を作成する（児童情報の事前登録済み）
7-04　コンピューター所見の修正
7-05　コンピューターが所見を作成する（児童情報の事前登録なし）　　
7-06　人間の手で所見を仕上げる
7-07　所見仕上げの流れ
7-08　完成した所見を保存する
7-09　通知表や指導要録との連携―他のソフトでデータを活用する 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
付録　外字の作成 　　　　　　　　　　　　　　
AD-01　外字エディターの起動
AD-02　外字 「つちよし」を作る
AD-03　作成した外字をWORDで使う　---　文字コード表を起動する　
AD-04　作成した外字を「単語登録」する
AD-04-01　ATOKの場合
AD-04-02　MS-IMEの場合

あ、言い忘れました。タイトルは「エクセルVBAプログラム「通知表」＆「所見」作成ガイド」です(^^ゞ

第１１７回 近代５種 解答例

お世話になっております。

５，（４，３），１，２　　です。



５：３７文字：=MODE(MID(REPT(N3,40),ROW(1:99),1)*1)

４：４１文字：=MID(K3,MIN(FIND({1,3,5,7,9},K3&PI())),1)

３：４１文字：=MID(H3,MIN(FIND({2,4,6,8,0},H3&1/17)),1)

１：４２文字：=SUBSTITUTE(B3,MODE(MID(B3,{1,2,3},1)*1),)

２：６５文字：{=IF(SUM(MID(E3*10^7,ROW($1:$10),1)*10^ROW($2:$11))%=E3,"○","×")}



合計は、２２６でした。





もう、何も出てこないかも知れません、、

・・・・・・・・・・・・・・・・　（ジョー3さん談）

第１１７回 近代５種

（ジョー３さん出題）

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

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

尚、解答締め切りは０２／２５０３／０３（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１１６回 組合せ 解答例

出題しておいて、なんなんですが、最初にできたものを整理した後、他にアイデアが出ず、

129どまりでした。
D6に↓を貼り付け、それを表全体にコピーしてください。
=IF(OR(COLUMN()>$E$4+3,$D6>6-$E$4),"",IF(D6,IF(IF(COLUMN()>$E$4+5,9,E6)>3-$E$4+COLUMN(),IF(D6>2-$E$4+COLUMN(),C7,D6)+1,D6),C7+1))

（sakudaさん談）

第１１６回 組合せ

1～6の数字から、M個抜き出す組み合わせをC7の式をC7：H26にコピーして

作成してください。

 

要するに　6Cm　(m=1～6）の実現値を表示していただくわけです。

表示される行数は　=COMBIN(6,D4) で計算できます。

 

どうやっても長い式になりそうで、出題時点では150前後になってます^^;

なお、シートが少し変わると式も違ってきますので、このシートの構成に

基づいて回答ねがいます。

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん出題）

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

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

尚、解答締め切りは０２／１８ （土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

第１１５回 数値区切り 解答例

どうやらジョー３さんは、私が出題する問題とは相性がいいようで
独走されて息が切れました、、

解答例 109文字
｛=MID(VLOOKUP(",*",REPT(SUBSTITUTE(A1,LEFT(A1,ROW(A:A)),)&","&
LEFT(A1,ROW(A:A)),LEN(A1)/ROW(A:A)),1,),2,9^9)｝

一応７６も見つけたという証拠に・・・
関数F△◎◇（A1,A1＆A1,2）が活躍します。よねっｄ＾＾

配列で二桁も非常にたのしみです！
（む印さん談）

第１１５回 数値区切り

最近はあまりパソコン自体に触れる機会が少ないのですが偶に触れると

調子に乗って問題までつくってしまいました、、

この問題は、以前、コメントで見かけた ｙ　sakudaさんの

循環小数の話とからくちさんの第109回問題をヒントにして作成しました。

 あまり顔を出せなくなりましたが、よろしくお願いします^^;

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（む印さん談）

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

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

尚、解答締め切りは０１／２８ （土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

 

 

第１１４回 出られますか？ 解答例

いやー何人かのかたが65？
出題者としては想像もつかないです。またまた完敗ですねーー

本当は空いているセルをたどるような手法がかっこいいのですが、断念しました。
で、これは、障害物の位置で通路が開くパターンをあらかじめ用意して置くという
ある意味ズルの手法でやりました。
75です。
{=IF(OR(SUM((B5:D7>0)*{2,3,4}*{1;6;36})={49,103,112,187,196,210}),"○","×")}

この6の冪というのは本来１０の冪なんですが、6,7,9の冪では誤判定が起こらないことが
確認できましたので使いました。
５の冪が使えれば、二けたで表示できるパターンが二つ発生しもっと減るのですが、
残念ながら重複が発生してダメでした。　　（sakudaさん談）

第１１４回 出られますか？

迷路と言うには簡単すぎますが・・・・・     
人は縦横にしか動けません。（斜めはダメ）     
また、＊の入っている舛には入れないものとします。     
左上から入った場合、右下へ抜けられるかどうか     
判定してください。     
     
なお、手動で問題を設定しても問題ありません。     
また、シートをコピーすればボタンもコピーされ、     
マクロも機能します。   　（y sakudaさん出題）

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

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

尚、解答締め切りは０１／２８ （土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

sakudaさんから頂いたチェック用ファイル：Checker_for_Q114をダウンロード

第１１３回 経過年数 解答例

今回の問題は何が正しいのかが、、、分からない
何時から何時までは何年なのか、、、分からない
これでは答えようが無い

けど、、、、出題者故、答えなくてはならない
と言う事で、式を書いてみました、、、
しかし上記故、、、不正解の可能性、、、９９％

＜考え方＞
最大54321を得ている故
紀元前・後共に1900年1月1日～2048年9月20日
の日付のみしか出てこない
そこで紀元前2048年9月20日をシリアル値１としてDATEDIFで、、、

{=ABS(DATEDIF(ABS(REPLACE(B5,1,MATCH(0,0/MID(B5,ROW($1:$4),1),)-1,MID("mtsh",FIND(LEFT(B5),"明大昭平"&B5),1))+IF(LEFT(B5)="紀",-54322,54321)),REPLACE(B7,1,MATCH(0,0/MID(B7,ROW($1:$4),1),)-1,MID("mtsh",FIND(LEFT(B7),"明大昭平"&B7),1))+IF(LEFT(B7)="紀",1406648,1515291),"y")+(COUNTIF(B5:B7,"紀*")=1)*3800-4000)}

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん談）

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

※角田さんから頂いた検証用シートです。ご利用下さい。

Q113_checkをダウンロード

http://www.h3.dion.ne.jp/~sakatsu/index.htm

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

1. minさんの解答例　Q113_min_sanをダウンロード

2. 角田さんの解答例　Q113_Tsunoda_sanをダウンロード

3. ジョー3さんの解答例：４０４手（文字）
{=MAX(DATEDIF(MIN(IF(B5:B7="","",IF(LEFT(B5:B7)="紀",(6000-MID(B5:B7,4,4)&MID(B5:B7,8,6))*1,2191455+IF(LEFT(B5:B7)<"3",B5:B7,SUBSTITUTE(SUBSTITUTE(B5:B7,".","年",1),".","月")&"日")*1)))+{1,0},MAX(IF(B5:B7="","",IF(LEFT(B5:B7)="紀",(6000-MID(B5:B7,4,4)&MID(B5:B7,8,6))*1,2191455+IF(LEFT(B5:B7)<"3",B5:B7,SUBSTITUTE(SUBSTITUTE(B5:B7,".","年",1),".","月")&"日")*1)))+{1,0},"Y")-(((LEFT(B5)="紀")+(LEFT(B7)="紀"))=1))}
 

 

第１１３回 経過年数

【問 題】
B5・B7の日付で小さい日付から大きい日付までの経過年数をB11に
【例】
2011/5/5～2012/5/4 では０年
2011/5/5～2012/5/5 なら１年

ただし、現在の暦が人類誕生期から使われているものと致します。

 

当然ですが以下を禁止と致します
※ 作業列の使用
※ 関数以外のエクセル機能を使うこと
※ セルの書式等の変更　　　　　　　　　　　　　　　　　　（からくちさん出題）

解答用参考ファイル：Q113をダウンロード**********************************************************************************

尚、解答締め切りは０１／１４ ２１（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１１２回 計算問題 解答例

それではご覧下さい。

１：J3_Q112をダウンロード（ジョー３さん）

２：KUMA_POOH_Q112をダウンロード（くまぷー）

３：Min3_Q112をダウンロード(minさん)

４：Karakuchi3_Q112_1をダウンロード（からくちさん）

５：Karakuchi3_Q112_3をダウンロード（からくちさん）

６：J3_Q112_2をダウンロード（ジョー３さん）

７：Mu_q112をダウンロード（む印さん）2012/01/07　NEW

第１１２回 計算問題

【問題】

１） マクロなしで

２） 反復計算なし、計算方法を手動もだめ。

３） 作業セルは使って良い

４） Ｂ３，Ｄ３セルに式を入れる

５） そのデータは必要なとき、ワンタッチで変わってほしい

６） ３問目ぐらいまではなるべき簡単な問題だと、うれしい

 

＊＊B3:B12、D3:D12に直接ランダム関数等だと、問題がどんどん変わる １０問解答を入力までは変わると困る。で、その回避の方法を皆さんに、 教えて頂きたいと思ってます。 ジョー３は一つの方法しか思いつかないのだ。

 

いきさつ： 近くの小学校の校長先生から、教室見学の依頼がありました。 見学者が２年生なので、エクセルで足し算ゲームを作ることにいたしました。 １０問解いたら点数が出て、その後、ワンタッチで問題が変わるようにしたい。 ３問目までは１桁の数字の確率を、４問以降は２桁になる確率を高くしたい。 （細かいところはどうでも良いが）

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

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

尚、解答締め切りは１２／３１（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

 

 

第１１１回 「カネゴン」を逆さまに・・・ 解答例

=IF(A1="","",MID(A1,LEN(B1)+1,1) & B1)

３８文字です。上式をB１に入力して下さい。循環参照になるので

反復計算をオンにしてください。F9を押すとA1の文字列が逆順になって表示されます。

A1をクリアーするとリセットされます。これはもともとはきっちーさんが何年か前に

当ブログでやっていた「三四郎秘伝・奥義の書」に投稿して頂いたものを元にしています。

ちなみに６番の「ごじらを逆さまに」が元ネタです。

 

 

minさんの仰っていた・・・

＞循環参照では、
＞ず、元の文字が入っていない状態で式を入れる。
＞その後に元の文字を入れる。
＞その後元の文字は変更しない。
＞で良ければ35でした。

 

=MID(A1,LEN(B1)+1,1) &T( B1)

２８文字でした。

Karakuchi_San_Q111をダウンロード（からくちさん）

くまぷーファイル（F9を押さなくても一発変換！！）

Kuma_Pooh_Q111をダウンロード

第１１１回 「カネゴン」を逆さまに・・・

前回の「逆さまなんです」の文字列版です。

工事現場のヒゲオヤジが逆立ちするとカネゴンが

元の金男少年に戻れると言われています。

http://ultraq.onasake.com/vol15.html

Ａ１に文字列を入力するとＢ１にstrReverseを使ったように

逆順に表示するにはどうしたらいいでしょうか？

（例）

カネゴン→ンゴネカ

くまぷー→ーぷまく

※文字数は７文字まで

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

尚、解答締め切りは１２／２４（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１１０回 逆さまなんです 解答例

いやあ、みなさん、すごいですね。ついていけません。

{=TEXT(SUM(MID(A1,ROW(INDIRECT("1:" &LEN(A1))),1)*10^(ROW(INDIRECT("1:" &LEN(A1)))-1)),REPT(0,LEN(A1)))}

１０４です　(^^ゞ　（くまぷー）

第１１０回 逆さまなんです

【問】　A1に１５桁までの数字が表示されます。B1にその数字を

逆さまに表示させて下さい。VBAならばstrReverseを使えば

一発なんですが・・・(^^ゞ

あ、B1の数式を答えて下さいね。

例）

12345→54321

1230→0321

質問掲示板から見つけました。

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

http://www.excel.studio-kazu.jp/kw/20040623162354.html

http://oshiete.goo.ne.jp/qa/3197571.html

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

尚、解答締め切りは１２／１７（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０９回 最大値は？ 解答例

余り選択肢の無い問題ですみませんでした

言い訳としては、、、
皆さんが凄過ぎて行き着く処まで到達してしまっている
故にみな同じ結果になってしまうのでは
こんな言い訳、、、認めない、、、なんて言わないでください

{=MAX(*****式*****)}-----80文字
を予定していましたが、、、

{=LOOKUP(9^9,FIND(SMALL(REPT(ROW(1:9),COLUMN(A:O))*1,ROW(1:135)),A1),
SMALL(REPT(ROW(1:9),COLUMN(A:O))*1,ROW(1:135)))}

ROW(1:135) は ROW(A:A) にしてもＯＫですが、、、
今更４文字減らして極端に重くしたくない

それにしても、わたしはLOOKUPを多用するな・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん談）

第１０９回 最大値は？

A1の数字の最大値を求めてください

A1が 11333333338888 とあった場合 11と33333333と8888の3つの数値として
その最大値である 33333333 を求めてください

同じ数字の連続を1つの数値とみなしてください

ただし、求める値が最大値（数値）なので15桁をこえる数字がA1にあった場合
答えはエラーでも違う数値でも構いません
つまり、その場合は無視してください

A1の文字数は50～８００位と思います（F9）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん出題）

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

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

尚、解答締め切りは１２／１０（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０８回 バイクの免許 解答例

出題者解答としましては
68文字
{="要"&IF(SUM(ISNUMBER(FIND(ROW($401:$1300),A3))*1)>0,"大","中")&"型免許"}

これで完敗宣言させていただきたく。

皆さんの解答を楽しみにしています。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（春さん談）

第１０８回 バイクの免許

Q.　バイクの車名にも、排気量が入っているヤツって結構ありますよね。

車名をA列に入力してあるので、B列に排気量から必要な免許を

表示してあげて欲しいのです。

注）　車名内400は、400ccで実際は400cc未満の排気量を指すものです。

バイクの免許は、400cc以上の排気量で大型免許が必要となります。

バイクの車名は　A列にあるものだけとします。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（春さん出題）

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

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

尚、解答締め切りは１２／０３（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０７回 東洋の魔女 裏問 解答例

やってみましたが、結構難しいと思いました。特に短くとなると、、

 80=IF(B7=$B7,OR(MAX(D$7,D$8)&C7={"",1}&0)*1,C11+IF(C$7&C$8=D$7&D$8,C11=B11,D7-C7))

とりあえずこれを解答例といたします。（ minさん談）

 

第１０７回 東洋の魔女 裏問

今は昔、東洋に黄金の国ジパングという国があったそうな。

その国には魔女が何人か住んでいたとか。ある時、北の国から戦いを

挑む女戦士が攻め込んできて、ジパングの国の王は魔女たちを戦線に送り出したという。

戦いはある一定のきまりで行われた。戦いでは、双方の間に網を張って

片方から玉を打ってそれを地面につかずに相手側に打ち返すというものであった。

北の女戦士は、魔女たちに容赦なく玉を打ちこんできたという。

しかし、魔女たちは地面寸前で玉を拾い相手の陣地に返し、

ついには北の女戦士を打ち負かしてしまった。

それ以来、ジパングの魔女たちは「東洋の魔女」と呼ばれるようになったそうな。。

 

そこで[裏問]

下段の表に中段の表を基に、ラリーポイント制の得点に戻してもらいたい。

裏門では、上段の表を参照することは禁止とする。

D11とD12に入れる数式は？（D11及びD12の数式は右にコピーするものとする）

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

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

尚、解答締め切りは１１／２６（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０６回 東洋の魔女 表問 解答例

表問意外と悩みました。

もう少し考えると思いますが、
とりあえず、これを解答例としておきます。
31=C7+(B3&D3&C3=$B3&10)+(D3-2=B3)

裏問はどうなる事やら。　　　　（minさん談）

第１０６回 東洋の魔女 表問

東京オリンピックで、東洋の魔女と呼ばれた女子バレーボールチームが金メダルを取ったのは記憶に新しく、今でも伝説となっている。
当時はサーブ権を持っていないと得点にならないというサイドアウト制であった。
しかし、今では、試合時間が極端に長くならず、放送時間に都合がよいなどということで、ラリーポイント制が採用されている。

一番上の表は日本対ソ連がラリーポイント制で戦った場合をイメージして作成した表である。
「最初のサーブ権」と書かれた列に０が入っている国が最初のサーブ権を持っている。
それ以降右に1球目、２球目・・・の勝負が終わった時の得点が記入されている。
（長くなるので15球目までの結果しか記入されていないが）
たとえば、1球目は日本が勝ったので１－０、2球目はソ連が勝ったので１－１といった具合に。

そこで、
[表問]
下の表に上の表を基に、サイドアウト制だとしたら何点になるのか、数式を用いてD7～R8に表示してもらいたい。
D7に入れる数式は？（D7の数式をE7からR7及びD8からR8にコピーするものとする）

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

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

尚、解答締め切りは１１／１９（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０５回 １／１７ 解答例

なんか、小難しいしおもしろくなかったですねーー
すみません。

65です。
=SUM(N(MMULT(-ISERR(FIND(COLUMN(A:I),1/ROW(1:100))),ROW(1:9))=0))

別のエンジンとしてはSubstituteも考えたのですが、短くなりませんでした。
83どまりでした。
=SUM(N(MMULT(N(SUBSTITUTE(1/ROW(1:100),COLUMN(A:I),0)*1=1/ROW(1:100)),ROW(1:9))=0))

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん談）

第１０５回 １／１７

問題　1/17       
        
Q104でジョー3が１～９が出現する数列に1/17を使っておられました。  
こういうので数字が全部そろうというアイデアは素晴らしいと思いました。  
        
1/n　（ｎ＝１～１００）をExcelで計算した場合、その結果に１～９の数字が含まれているもの 
はいくつあるでしょうか？なお、式の中で分数で１～９の文字列を作ることは禁止します。 
（1/17等分数形で作った１～９の数列は求める答えの一部とみなすという意味です） 
        
        
        
ｎを指定して、その分数に１～９が含まれているか？でも良いかもしれませんが、ここでは 
問題にもならないかと思いちょっとひねってみました。    
なお、私の計算が正しければ、１７が最少で１～１００で１１個あるようです。  
        
注.        
説明するまでもありませんが　1/17=0.0588235294117647には１～9がすべて含まれています。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん出題）

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

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

尚、解答締め切りは１１／５（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

第１０４回 孫の積み木 評価発表

>ジョー３さん、第１０４回の総合評価をお願いしま～す。
>私のところには来たメールは全て転送しているので・・・
はーーい、、、
ん、、、でも、、、私の今までの、ノートパソコン・・・
・・・・・・・・・・・・・・・
壊れました。
メール、、、、チェック、、、、・・・・あわわ、、、がんばります。

 

で、、、

sakudaさんの評価は、、頂きました。

くまぷーさん・・・・のを、、、（他も）・・・・

・・・・・・・・・・・

待ってましたが、、、

私の評価、、、

minさん

niさん

かなり良かったが、、銅賞？ぐらい？？

・・・・・、以前の賞は何でしたっけ

忘れました。

銅賞まだなら、、、それも良いと思います。

で、、、

春さんは、

１歩下がって、、、・・・・鉄賞（そんなのなかった？）

まあ、、、そばにいるから桃川１．８Ｌ・・・・でもいいけど、、、、

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 （ジョー３さん談）

第１０４回 孫の積み木 解答例

G1　＝５１
=MID(652369856987458&741254123654258,RAND()*28+1,3)
A1　＝４７
=LEFT("■",FIND(ROW()*3+COLUMN()-3,$G$1&1/17)<4)
解法図はエクセルファイルで画像があります

ジョー３さん：Q104_JYO3をダウンロード

 

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

Ｑ１０４の解答をお送りします。

Ａ１　４５=LEFT("■",MOD($G$1/2^(ROW()-4+COLUMN()*3),2))Ｇ１

５９=MOD(CODE(MID("倶玖愚空遇隅呼糊股誇檎公軌偽砧究去皇腔峡蕎衿",RAND()*22+1,1)),449)

合計　１０４文字です。 セル1つを2進数とみなして、２２パターンを数値化、

1パターンを1文字にするため全角文字に変換連続した文字が無いので、

ＣＯＤＥをＭＯＤで表すと比較的いろいろなパターンができた。

セルのアドレスから、Ｇ１のパターンの自分のビットを取り出して、表示非表示切り替えです。

Ｑ１０３のＡ列使わない　の延長ですね。　（ｎｉさん）

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

sakudaさん：Q104_sakuda_sanをダウンロード