Excel Maniacs

教員のためのコンピュータ活用術No.8

小テストの友（効率の良いデータ入力）

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

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

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

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

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

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

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

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

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

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

 もちろん、答案を出席番号順に並べなおせばいいのですが

それもたいへん面倒です。(T.T)

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

以前、ランダム得点入力ということで「関数でできますか～？」で扱ったのだが

気まぐれで同じことをVBSでやってみることにした。

☆仕様：

1.　99人まで対応

2.　入力文字列の左から２文字が出席番号、それ以外の文字が得点を表わす。

　　例）　1286　　出席番号１２番、86点

　　例）　36100　出席番号36番、100点

　　出席番号1ケタは01とか02とかにすればよいのだが、エクセルなどの表計算ソフトに

0で始まる数字を入力すると、確定後に最初の0が消えてしまうので、出席番号1ケタは

数字以外の文字+出席番号で表す。

 

　例)　ａ925　出席番号9番、25点

　例)　*458　出席番号4番、58点

 

 ☆使い方：

1.任意の列に下図のように、間を空けずに入力する。

2.入力したセルを選択する。

3.vbsファイルをダブルクリックする。すると入力データの２列右隣に得点が出席番号順に整理されて表示される。あとはこれを好きな所にコピペすればよい。

 ☆kingsoft Spreadsheets 用： 小テストの友_kingSoftをダウンロード(VBS)

☆Excel用： 小テストの友_Excelをダウンロード(VBS)

 

 ※VBSを使っているのでお使いのkingsoft Spreadsheetsがマクロ対応でなくても、あるいはお使いの

Excelがマクロを有効にしていなくても構いません。

質問：単語テスト作成マクロについて‏

【´･ω･`】：S田さんから下のような丁寧なメールを頂いた。

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

 

初めまして。英語塾の教員をしております、S田と申します。

教材、テスト作成のための方法を色々と調べていた所、くまぷーさんのページを見つけました。

エクセルがこんなに活用できるのかと、目からウロコが落ちるようでした。ありがとうございます。

当座、私の塾で単語テキスト１冊分の単語テストを作る必要があり、効率的な作成法を考えていたため、

「英単語ランダム出題マクロ」が大変参考になり、ぜひ活用させていただきたく思います。

 

そこで、一点質問があります。

ホームページで出ているマクロはDataタブの英単語のみをMainタブに出力していましたが、

Dataタブの英単語の隣の列に日本語の意味を書き、英語と日本語の両方を一括してMainタブに出力することは可能でしょうか。

問題と同時に解答も作る必要があり、同時に出力できれば、英語に対応する日本語をそのまま解答に貼り付けることができるため、より活用できるかと考えています。

マクロの一部を改変して対応することができるのであれば、改変する方法を教えていただけると大変助かります。

 

お忙しい中かと存じますが、ご教授いただけますでしょうか。

よろしくお願い致します。

 

S田

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

 【´･ω･`】：さて、下が問題のファイルだ。

　　　　　　　参考ファイル： QandA001をダウンロード

 

仕様A
(1)1000単語の中から1番の単語から50番の単語まで
というふうに出題範囲を指定することができる。

(2)（1)の出題範囲からさらに任意の数を出題することができる。

 

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

 【´･ω･`】：S田さんは英語と日本語を並べて出力したいと言っているわけだ。

 

(●`ε´●)：そんなの簡単だ。おれが教えてやる。

 

【´･ω･`】：べべちゃん、VBAがわかるのか？

 

(●`ε´●)：そんなもの知らなくても、ちょっと頭を使えばなんとでもなる。

 

１．　DATAシートのB列（英単語の列）に・・・・・

    

               respect@尊敬する

 

　　・・・・のように

 

　　　　　英単語@訳語

 

　　・・・・の形で入力しておく

 

２．　これでマクロを走らせればmainシートに英単語@訳語の形で出力されるので

　

 

　　たとえばmainシートのセルI２にのK列に「respect@尊敬する」と表示されているとして

 

　　K２に・・・

 

　

　　　　　　　　　=LEFT(I2,FIND("@",I2)-1)

 

　　L２に・・・

 

　　　　　　　　=MID(I2,FIND("@",I2)+1,LEN(I2)-LEN(K2)+1)

 

　・・・・と入力すればK２にrespect、L２に尊敬すると表示される。

 

【´･ω･`】：なるほど、これなら元のファイルのコードをいじらなくても済むな。