Excel Maniacs

日本の未来は明るい！！

　先週、所用で南町田まで行ってきた。

酷暑の中、電車を乗り継いで目的地の最寄り駅までなんだかんだで2時間半はかかっていた。

 

　駅を出ると雨が降ってきた。

目的地までは、それ程遠くはないはずなのだが暑さと雨のために

ちょっと辛くなってきた。おまけに路地に入ってしまい道が分からなくなってしまった。

　そんな時、アパートの前に二人の若者が立っていた。声をかけて道を尋ねることにした。

 

【´･ω･`】：この辺に「鶴の苑」というのがあるはずなんですが・・・

若者：私たちもここに友人を訪ねてきたのでこの辺りはよく知らないんですよ。

【´･ω･`】：そうなんですか・・・

 

諦めかけると若者は「ちょっと待ってくださいね」とアパートの中に友人を呼びに行ってくれた。

出てきた友人は、このくそ暑い中、なんと「鶴の苑」まで、わざわざ案内してくれたのだ。

　親切な若者たち。日本もまだまだ、捨てたもんじゃない。(*^-^*)

 

 

 

 

 

 

Excel + OCR + 自動採点（選択問題）--- 第4回 ---

★小テスト自動採点

（●｀ε´●）：選択問題を自動採点するというのはわかった。

　　　　　　しかし、このような形式の試験はたぶん、小テストだろうな。

 

【´･ω･`】：うん。小テストを想定している。

 

（●｀ε´●）：小テストは定期試験とは違って生徒が出席番号順に座っていないことが多い。

 

【´･ω･`】：うん。連番画像データを作るために答案用紙を回収してから出席番号順に並べ直さなければならない。

 

（●｀ε´●）：小テストは回数が多いし、いちいち並べ直すのは面倒だな。

 

【´･ω･`】：でも、それが「採点斬り」系のプログラムのお約束だから。

                       そこで、今回は解答用紙を工夫して、出席番号順に並べ直さなくてもいいようにした。

 

（●｀ε´●）：出席番号をOCRで読み取るようにしたわけか？

 

【´･ω･`】：うん。

 

★準備

　回収した解答用紙を連続スキャンしてJPEG画像ファイルを作る。出席番号順に並べる必要はない。当然ながら欠席者の解答用紙を補う必要もない。ただし、模範解答は一番若い番号になるようにする。

 

★手順：　お試し用サンプルファイルを使って実際にやってみましょう。

　1.　サンプルファイルが連番になっているので、フォルダorignal_filesにファイルを10枚全てコピーします。

　2.　ToraScan.exeを実行するとフォームが表示されます。後は「ファイル」メニューを上から順番にやっていきます。

　　　まずは「サイズ適正化」をクリックします。

3.ダイアログが表示されるので模範解答のファイルを選択し、開きます。

4.　フォームに模範解答が読み込まれます。

 

5.「枠斬り開始」をクリック。マウスでドラッグして領域指定。適切に指定出来たら「ENTER]を押下。

今回は「氏名」を最初に、次に「出席番号10の位」、「出席番号1の位」領域指定し、その後に１問から１０問までを処理する。

 

6.　領域指定が済んだら「枠斬り終了」をクリック。

　　領域指定した部分に赤枠が表示されます。

7.　「猫を呼ぶ」をクリック。ウィンドウ「猫の手」が表示される。

解答用紙の数（模範解答を含む）は10枚なので「用紙枚数」は10に、領域指定は13か所なので「切り取り枠数」は13にする。入力する数字は半角。

「フォルダQ000内のSeito000を選択」をクリック。フォルダQ000はToraScan.exeと同じ場所にあります。

 

8.ダイアログが表示されるのでSeito000.Jpgを選択し、開く。

9.　ウィンドウ「猫の手」に戻り、「(=^・^=)：読み取るにゃ！！」をクリックする。

猫が仕事をしてExcelに結果が表示される。

10. ToraFinish.exeを起動し「答案処理」をクリックする。

 

＜メモ＞

　★B・C列に出席番号が表示されているので、それらを基準にソートすれば出席番号順になる。

　★D列からは選択された解答の番号が並ぶ。１行目の模範解答と比較すれば簡単に正誤判定ができる。

＜ヒント＞

　★小テストはだいたい、毎回形式が決まっているので得点集計・分析用のワークブックを作っておけば成績処理が一瞬でできるようになるだろう。

　★この方式は小テストだけでなく、アンケートにも利用できる。エクセルのワークシート関数を使えば集計・分析は容易であろう。

 

Excel_OCR_04をダウンロード

 

 

 

Excel + OCR + 自動採点（選択問題）--- 第3回 ---

【´･ω･`】：前回はスキャンした結果をエクセルに出力するところまでだった。

（●｀ε´●）：具体的にはどう出力されるんだ？

【´･ω･`】：一行に解答用紙一枚分、連番順だ。

（●｀ε´●）：1行目に模範解答、2行目に出席番号１番、3行目に出席番号2番、・・・ということか？

【´･ω･`】：そう。列は枠斬りした順になる。

（●｀ε´●）：A列に氏名、B列に１問目、C列に2問目、D列に3問目、・・・ということだな？

【´･ω･`】：そう。だから、解答の正誤判定は１行目の模範解答と比較すればいい。

（●｀ε´●）：L1に「　=--(B$1=B1)　」と入力して必要な部分にコピペすれば模範解答と等しければ1に、そうでなければ0になるな。

 

Sample20230321をダウンロード

 

'参考VBA

’-----------------------------------------

Sub 自動採点()

　問題数 = 1
　Do While Cells(1, 問題数) <> ""
        　問題数 = 問題数 + 1
　Loop

　解答用紙 = 1
　Do While Cells(解答用紙, 1) <> ""
       　 解答用紙 = 解答用紙 + 1
　Loop

　For x = 1 To 問題数 - 1
        　For y = 1 To 解答用紙 - 1
                　If x = 1 Then
                       　 Cells(y, 問題数 + x) = Cells(y, x)
                　Else
                        　If Cells(y, x) = Cells(1, x) Then
                                　Cells(y, 問題数 + x) = 1
                       　 Else
                                　Cells(y, 問題数 + x) = 0
                       　 End If
                　End If
        　Next
　Next

End Sub