Excel Maniacs

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

★くまぷー

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

　例）出席番号１番+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