Excel Maniacs

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

 

 

 

 

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

【´･ω･`】：ToraScan.exeを変更した。

（●｀ε´●）：どう変えたんだ？

【´･ω･`】：認識率を高くしたが、画像サイズの適正化を外したんでマウスでの領域指定が多少、やりにくくなった。そこは勘弁してほしい。

 

★準備

       同一フォルダ内に、フォルダ（orignal_files、src_test）とファイル（ToraSCan.exe、ToraOCR.exe）が在るのを確認する。

 

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

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

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

　3.メニュー「ファイル」から「サイズ適正化」をクリック。

4.ダイアログから0710_10_000.jpgを選び、開く。

0710_10_000.jpgは模範解答である。

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

今回の練習では「採点斬り」の作法に従い「氏名」を最初に領域指定し、その後に１問から１０問までを処理する。

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

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

解答用紙の数は11枚なので「用紙枚数」は11に、領域指定は11か所なので「切り取り枠数」は11にする。入力する数字は半角。

8.「フォルダQ000内のSeito000を選択」をクリックする。

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

フォルダQ000はTraScan.exeと同じフォルダに作られている。

9.　ウィンドウ「猫の手」の「(=^・^=)：読み取るにゃ！！」をクリックする。猫が仕事をしてExcelに結果が表示される。

【´･ω･`】：今日はここまでね。ここまでできれば自動採点はできたも同然。

（●｀ε´●）：ここで出てきたファイルは下の圧縮ファイルに入っているから良かったら遊んでくれ。

 

Excel_OCR_02をダウンロード