関数で解けますか？(その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

Comments

[投稿情報: くまぷー]

常連さんにはちょっと物足りないと思うけど
ちょうど日経PCのエクセルコンテストくらいの
レベルではないかと思ふ・・・

[投稿情報: くまぷー]

あ、「名簿」と解答用シートは特に
関係ありません。解答用シートの得点を
「名簿」にコピペすればいいので・・・

[投稿情報: ジョー３]

１案：実際的で、でも、題意からはズル
　　　で、満足度８０％

２案：頑張ってみた、でも年齢より多い文字数
　　　で、満足度５０％

そのうち、良いアイデアでないかなーーー

[投稿情報: くまぷー]

ジョー３さん、さっそくのご参加ありがとうございます。

＞でも年齢より多い文字数

今回は日経のエクセルコンテストを
意識した出題ですので
文字数よりもなるべく入力が楽な方が嬉しいです(^O^)

[投稿情報: Kojiro-sm]

入力シートと表示・印刷シートに分けるのはどうでしょうかね．あまり細かくは考えてはいませんが．

[投稿情報: ゴエモン]

自分の名前が…(^^)

面白そうですね！
もしかしたら参加させてもらいます。

[投稿情報: む印]

A列の入力ルールはありますか？

シート例に従ったとき
45番が100点とか、1番が0点の時などは
どのように入力するのでしょう？

[投稿情報: くまぷー]

Kojiro-smさん、どもです。

>入力シートと表示・印刷シートに分けるのはどうでしょうかね．

エクセルコンテスト同様、その当たりは
作成者のアイデァ次第です　(^^ゞ

[投稿情報: くまぷー]

ゴエモンさん、どもです。

＞もしかしたら参加させてもらいます。

是非参加して下さい。
お待ちしています。(^O^)

[投稿情報: くまぷー]

＞A列の入力ルールはありますか？

特に決まっていません。
答案は出席番号順に並んでいません。
バラバラです。
　
A列に入力するデータも
固定長の文字列にするか
出席番号と得点の間に区切り文字を入れるか
あるいは他の手を考えるか、全く自由です。(^^ゞ

何か、質問がありましたら
気軽にどうぞ。解法に係わることでなければ・・・(^^ゞ

[投稿情報: Kojiro-sm]

参加すれば，自分の名前を入れたいな．

[投稿情報: くまぷー]

>参加すれば，自分の名前を入れたいな．

入れても構わないのですが
解答用サンプルシートには
名前が入っていません。
どうしてかというと、高校・中学校では
教科担任制なので、1人の教員が
通常、３～６クラスを受け持っています。
家庭科の教員になると１０クラス以上受け持っていることも珍しくありません。

ですから、今回はランダム得点入力シートで出席番号順に
並んだ得点を名簿専用シートにコピペすることを
想定しています。

　ですが、確かにKojiro-smの仰るように
名前があった方が、便利ですね。
名前があったほうが、「こいつがこんな点のはずがない」なんて入力ミスに気づきやすいし・・・(^^ゞ

えーい、みなさん、エクセルコンテストと同じです。
解答用サンプルシートは気にせずに
自由にレイアウトして下さい。m(__)m
A列が入力欄、C列に得点表示なんて
縛りは無しにします。m(__)m

[投稿情報: y sakuda]

なぜか、この手の問題は意欲が沸かないんですよね・・・・・・
VBAでやった方が確実って言う感覚なんですかね？
と言うことでパスです。

[投稿情報: くまぷー]

＞VBAでやった方が確実って言う感覚なんですかね？

確かにVBAならば・・・
Sub　○○○（）

End Sub

・・・を除いて３行で済んじゃうんですけどね・・・

＞と言うことでパスです。

残念です。(>_<)

あ、答え合わせの時についでにVBAのコードも
晒しますのでよかったら、どうぞ(^^ゞ

[投稿情報: y sakuda]

どうもExcelコンテストも意欲がわかないと同じらしいです。

[投稿情報: くまぷー]

>どうもExcelコンテストも意欲がわかないと同じらしいです。

はははは　(^^ゞ

[投稿情報:]

>どうもExcelコンテストも意欲がわかないと同じらしいです。

私の回答の
１案：（ちょいズル版）
ｓａｋｕｄａさんに喜んで頂けると思います。

Excelコンテストは回答が１個だけですね。
２個か、３個回答できて嬉しいかもです。

[投稿情報: y sakuda]

少なくとも私は意欲の問題だけではなく、これと言った手を思いつきません^^;
作業列使ってバラせば当然できるわけですけど面白くもなんともない・・・・・・

[投稿情報: ジョー3]

＞面白くもなんともない・・・・・・
あはは、、、
では、、

辛くて良いですから、・・・・
審査員ってことで、、頑張って下さい。

[投稿情報: くまぷー]

>バラせば当然できるわけですけど

バラしてもいいし、バラさんでもいいし・・・
一筆書きでもいいし・・・
特別参加の３行（以下）マクロでもいいし・・・

おいらは３行未満マクロ・・・

＞審査員ってことで、、頑張って下さい。

×２

[投稿情報: ＭＦ]

あら？名簿に載ってるｗ

簡単そうに見えたけど、実用に耐える仕様にするのは難しいですね。

作業列つかいまくって作成中です。

[投稿情報: くまぷー]

MFさん、どもです　(^^ゞ

＞あら？名簿に載ってるｗ

この前のエクセルコンテスト作品展示会に
参加して下さった方の名簿です　(^O^)

＞作業列つかいまくって作成中です。

いろいろ、工夫して下さっているようで
ありがとうございます。m(__)m

[投稿情報: くまぷー]

MFさんから、関数ファイルとマクロファイルを
頂きました。ありがとうございます。m(__)m

[投稿情報: ジョー3]

1案：ズルで、12文字
2案：ごり押しで64文字
いずれも作業列なし

[投稿情報:]

どちらも、
入力は、
問題の通り、
０３７８
１０２６
０５８８
・・・・
と、します。

[投稿情報: くまぷー]

>1案：ズルで、12文字

はて？
ぜんぜん、見当がつきません。
楽しみです。　(^O^)

＞2案：ごり押しで64文字

う～ん、どんなんだろう？
こちらはエラー対策無しで４０台。

[投稿情報: y sakuda]

なんだ、公開はまだ先か。
そろそろ出てるかなと思いチェックしにきましたｗ
11日ってちゃんと書いてあった^^;

[投稿情報: くまぷー]

>そろそろ出てるかなと思いチェックしにきましたｗ

まだなんです(^^ゞ
私も11日が楽しみです。
特にジョー３さんのズル１６文字・・・
なにやったんだろ？

[投稿情報: y sakuda]

締め切りが先ということで、昨夜時間もあったので、少しやってみました・・・・が・・・

このケース、相変わらず、作業列なしでやる良い手は思いつかないので、配列数式でやってみた所、勿論エラー処理等は抜きにも係わらず・・・・・
１．長い---83文字
２．未入力の所がどうしても空欄にならず、0が出る
と言うことで、話にならない^^;
改めて配列数式のヘタクソさ加減を思い知らされましたwww
#とても人様にお見せできない代物・・・・

[投稿情報: くまぷー]

sakudaさん、どもです。

＞作業列なしでやる良い手は思いつかないので、配列数式で

おいらも作業列無しですが、配列数式ではありません。
シンプルでわかりやすいと思います。
エラー対策無しで４２文字！！

＞２．未入力の所がどうしても空欄にならず、0が出る

未入力のところがエラー表示になるならば
見苦しいけど「可」ですが、０になってしまうと
未受験と本当の０点の区別がつかなくなってしまうので・・・

＞#とても人様にお見せできない代物・・・・

でも、見せて下さいd(^-^)ネ!

[投稿情報: y sakuda]

未入力をブランクにする手当てを考えたら、配列数式で101・・・・・・・・・・

>でも、見せて下さいd(^-^)ネ!
ますます見せられない代物にｗ

[投稿情報: くまぷー]

>ますます見せられない代物にｗ

ま、そう言わず・・・(^^ゞ

ところで1行マクロは如何？

[投稿情報: y sakuda]

>ところで1行マクロは如何？
そっちは全くやってないし、これもアイデアなしです。
：　で複数ステートメントつないでるなら話は違いますけど^^;

[投稿情報: くまぷー]

＞：　で複数ステートメントつないでるなら話は違いますけど^^;

それはサギだと思ふ・・・

[投稿情報: Kojiro-sm]

くまぷーさんには，早速のコメントを頂きありがとうございます．2009は，目の調子の悪い人に対して，あまり良いソフトだとは言えませんが，使い慣れてくれば，印象も変わってくる物と思います．

[投稿情報: y sakuda]

しょうがないので、一行マクロ書きましたが・・・・・・
これも、1行が長大で表に出す勇気がwww

[投稿情報: くまぷー]

>1行が長大で表に出す勇気がwww

長大とはどれぐらいなんだろう？
こちらはエラー対策無しで82文字ですけど・・・

[投稿情報: y sakuda]

エラー対策と言えるかどうか知りませんが、とりあえず異常終了しないようにだけして164文字。
イベントでやっているので、シート自体は丸で空っぽです。

[投稿情報: くまぷー]

>イベントでやっているので

同じです。３行未満だとループが
使えないので、これしかないですよね～(^^ゞ

[投稿情報: くまぷー]

Kojiro-sm さん、おいらは一応、三四郎２００９だけ買いました。

少し使ってから、レポートします。

[投稿情報: y sakuda]

毒を食らわばということで、番号01～45以外、点数100点超を無視するようにしたところ・・・・・
なんと１ステートメント265文字
こんな長いステートメントVBA始めて以来、間違えなく書いたことないwww

[投稿情報: y sakuda]

それこそ、A列をクリアしても異常終了するというバージョンで1行80文字・・・・・
エラー対策付きはちゃんと数えたら258文字でした。
この2本はとりあえず送っておきます。

[投稿情報: くまぷー]

sakudaさんから、VBAでの解答を頂きました。
ありがとうございます。発表まで覗きません。(^O^)

[投稿情報: y sakuda]

文字数減らすだけなら、変数名を弄ればもっと減りますが、その辺りはなにもしてません。
くまぷーさんのはどうなんだろ？

関数の方は、くまぷーさんの42もジョー３の60台も全く想像つかずですねーー

[投稿情報: ＭＦ]

先日、くまぷーさんに送ってしまったけど、初歩的なミスを見逃してた。

参加の取り消しは出来ますか？

[投稿情報: くまぷー]

>くまぷーさんのはどうなんだろ？

イベント利用のやつですか？
自前の変数は利用していません　(^^ゞ

＞関数の方は、くまぷーさんの42もジョー３の60台も全く想像つかずですねーー

ジョー３さんのはいざ知らず、おいらのは
ごく普通の関数に、ちょっとだけ薬味を加えて
隠し味にしただけです　(^O^)

けっこう、工夫するところがあって、この問題も
けっこう面白いのではないでしょうか？　(^^ゞ

[投稿情報: くまぷー]

＞参加の取り消しは出来ますか？

もちろんできますよ。(^O^)
でも修正したファイルを送ってくれれば
差し替えますけど・・・

[投稿情報: む印]

お久しぶりでございます。

先ほど応募させてもらいました、、

今回はテンキー入力を意識して作ってみましたｄ
かなり楽しませていただきました^^

[投稿情報: くまぷー]

む印さん、どもです。2/5から姿が
見えなかったので、どうしてしまったのだろうと
思っていました。

＞先ほど応募させてもらいました、、

ありがとうございます。
だんだん、賑やかになってきました。
（・・・と言ってもまだ、参加者はごく僅かですが）

[投稿情報: ＭＦ]

>差し替えますけど・・・
じゃあ修正して締め切りまでに送ります！
お手数かけます。

[投稿情報: くまぷー]

>じゃあ修正して締め切りまでに送ります！

お待ちしています　(^.^/~~~

[投稿情報: Kojiro-sm]

ヤバッ，まだ何も考えていない．間に合うのか．

[投稿情報: y sakuda]

>自前の変数は利用していません　(^^ゞ
自前じゃなくて、勝手に出てくるやつも自由に変えられますから＾＾；

名前で短くしたら、VBAのコードは65と218です。
（中身が変わったわけじゃないので意味ないですけどｗ）

[投稿情報: くまぷー]

>ヤバッ，まだ何も考えていない．間に合うのか．

時間はまだまだ十分あると思います。

＞自前じゃなくて、勝手に出てくるやつも自由に変えられますから＾＾；

徹底的にやれば、５７文字です　(^^ゞ

＞中身が変わったわけじゃないので意味ないですけどｗ　×２

[投稿情報: y sakuda]

>徹底的にやれば、５７文字です　(^^ゞ
なるほど、条件の工夫ですねーー
57が最小みたいですね。

[投稿情報: ジョー3]

いやーーねたねた、、うなってました。
はなせば長いが・・・・
で、
ズル版・進歩してない。
真面目版：減量できてない。
あと、思いついてない。

で、
このまま送ることになりそうだなーーー

[投稿情報: ジョー3]

あ、、一応確認です。
０４２７．５なんてないですよね・・・
つまり２７．５点はないですね、
整数点ですね、

[投稿情報:]

>固定長の文字列にするか
>出席番号と得点の間に区切り文字を入れるか
>あるいは他の手を考えるか、全く自由です。(^^ゞ
42文字？？ですか？？

うーーん、頑張ったが、49文字・・・
まあ、いいっか？
で、第3案：49文字

[投稿情報: y sakuda]

配列数式を使わない手段も一つ思いつきましたが、上から順番に入れて行かないと機能しないし、90文字くらい・・・・・
二箇所使っている部分を名前で定義しても50文字くらいになりそう・・・・・・
60台だ、40台だと皆さんすごいですね。
やはり今回は観客だなwww

[投稿情報: くまぷー]

>０４２７．５なんてないですよね・・・

ないです。
０から１００までの整数です。

[投稿情報: くまぷー]

＞で、第3案：49文字

名前がないけどジョー３さん？

[投稿情報: くまぷー]

＞二箇所使っている部分を名前で定義しても50文字くらいになりそう・・・・・・

名前定義は無し、ということで・・・
名前定義ありとすると文字数の意味がわからなくなる・・・

＞いやいや、まだ時間はあります(^^ゞ

[投稿情報: y sakuda]

>名前がないけどジョー３さん？
間違えなくwww

[投稿情報: ジョー3]

１）完全ズル版の
（失格かも：腕自慢なら完全失格）
１２文字版は、皆さんにも叱られるかも
まあ、ｓａｋｕｄａさんだけは許して下さるかも。
（実際的だから：間違い探しも楽だし）

２）真面目版（配列）64文字は、
　　なんか、スマートでない品ーー

３）自分的にちょいズル版
　　（都合の良いように入力した）
　　は、33文字になったが、
　　自分的には気に入らない。
　　間違いチェックが、心配だ。

[投稿情報: ジョー3]

＞上から順番に入れて行かないと機能しないし、
えっ・・・・上から順に入れるんじゃないですか?・・・・そこまでは入力者のわがままに
付き合わないですよーーー
（で、おらのはどーだろうと、ちょっと気にするジョー）

[投稿情報: ジョー3]

さて、送ろうかなーー
もう一つ案が出たら又送ればいいし、
どれにするか迷うってこともなくって良いねーー
・・・・・・
でも、眠くなってきた。・・・・

[投稿情報: y sakuda]

配列数式バージョンは何処から入れても良いようにしてあります。
（わざわざ工夫したわけではなく、必然的にそうなるwww）

＞いやいや、まだ時間はあります(^^ゞ
だいたい最初の一時間で何とかならないとダメと言うのが通常パターンです。
それに明日は午前中から出かけちゃっててやる暇ないですし^^;

[投稿情報: くまぷー]

＞上から順に入れるんじゃないですか?

上から順でいいと思いますよ。
途中に未入力のセル無しと言うことで・・・

[投稿情報: くまぷー]

＞もう一つ案が出たら又送ればいいし、

そうです。本家エクセルコンテストと
違って複数回答あり、差し替えありです。(^^ゞ

＞それに明日は午前中から出かけちゃっててやる暇ないですし^^;

では、８時は無理なのかな？
ま、その後でも覗いて頂ければ・・・(^O^)

[投稿情報: y sakuda]

>では、８時は無理なのかな？
その前後には帰ってきます＾＾

[投稿情報: ジョー3]

では、送りました。

ズル版だけでも、気に入って頂けたら嬉しいです。

[投稿情報: くまぷー]

＞その前後には帰ってきます＾＾

では、その時分に・・・

＞いやーーねたねた、、うなってました。

お具合が悪かったのですね。
向こうを見てはじめて気がつきました。
私の同僚もバタバタ倒れています。
くれぐれもお大事に・・・

[投稿情報: くまぷー]

＞では、送りました。

ジョー３さん、メールが来ませんが・・

[投稿情報: ジョー3]

＞ジョー３さん、メールが来ませんが・・
え、、、では、もう一度、、、

で差し替えを、、、
というのは、又面白いことを発見した。
セルに色を付けたら、動作が違うようになったのだ。
そうだっけーーー
そういえば、なんかで見たような気がするけど。・・・怖い怖い。

[投稿情報: かず]

こんばんは～
趣旨にそっているかどうか不明ですが、
取り合えず、考え付いたものをお送りしました。

[投稿情報: くまぷー]

ジョー３さん、今度は確かに
メールが届きました。
参加ありがとうございます。

一通目はどこに消えたのか？　(?_?)

[投稿情報: くまぷー]

＞取り合えず、考え付いたものをお送りしました。

かずさんのメールも届きました。
ありがとうございます。
みなさんのを拝見するのが楽しみです。

[投稿情報: kir]

私もメールしました～。よろしくおねがいしますｍ（＿ ＿）ｍ

[投稿情報: くまぷー]

kirさん、お久しぶりです。
メール、受領しました。
参加して頂きありがとうございます。

[投稿情報: y sakuda]

しょうがないから、配列数式版で恥をさらしますｗ
今送りました。

[投稿情報: y sakuda]

突然9位にランクインしてますねーー^^

[投稿情報: くまぷー]

sakudaさんから、２作目を頂きました。

ほんとうに賑やかになってきたぞ！！
明日が楽しみだ　(^O^)

[投稿情報: くまぷー]

＞突然9位にランクインしてますねーー^^

ありがとうございます。
これもみなさんのお蔭です。m(__)m

[投稿情報: ジョー3]

又、目が覚めた。
焼酎と枝豆を・・・・あ、、病み上がりだから、これで終わり。

で、、
＞突然9位にランクインしてますねーー^^
へーーー。。。ってことは、
凄い方で、見るだけの方。
考えて、私らのと比べて、
１）うんうん、同じだぞ、とか?
２）似てるぞ。とか、、
３）ほーー俺の方が今回は良かったなー
とか、楽しんでおられる方もおられるでしょうねーー

でも、よろしければ、そんな方々の
作品にも感動したいものですよねーー

でも。。。。。
まあ、、ひっそりとして、、、
と言う方も、おられるでしょうからね、

でも、たまには、作品を見せて下さいね、,
そんな皆さん!!

[投稿情報: ＭＦ]

手直しして、メール送りました

差し替え、お願いします

[投稿情報: Kojiro-sm]

いろいろと思案した結果，後々のことも考え，シンプルにしてみようと思っています．今から，作成し始めますので，遅れるかも知れませんが，がんばります．

[投稿情報: Kojiro-sm]

よく考えたら，メールした物じゃダメなような気がしてきたので，破棄をお願い致します．

カード型データベースぽくなればいいのかなと，当初から考えていたのに忘れてしまっていました．残念 (T_T)．

[投稿情報: くまぷー]

>焼酎と枝豆を・・・・あ、、病み上がりだから、これで終わり。

ジョー３さん、焼酎で身体の中から消毒？

＞差し替え、お願いします

MFさん、了解しました。∠(@O@) ビシッ!

＞よく考えたら，メールした物じゃダメなような気がしてきたので，破棄をお願い致します．

Kojiro-sm さん、了解しました。
でも、まだ時間はありますよ。

[投稿情報: y sakuda]

結局何も思いつかなかった・・・・
恥さらしついでに、循環参照バージョンを送付します。

[投稿情報: くまぷー]

>循環参照バージョンを送付します。

受領しました。
ひとくちに循環と言っても
いろいろなやり方があるもんですねぇ～

では・・・
＞恥さらしついでに、循環参照バージョンを　×２