Excel Maniacs

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

　表題通りなのですがExcel と OCR を組み合わせて選択問題の 自動採点をやってみました。使うプログラムは以前、紹介した「画像連続キャプチャー、そして文字をスキャン」です。これは「(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）」の試作段階で作ったプログラムです。「(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）」程の機能は無いので操作は至ってシンプルです。

 

★「画像連続キャプチャー、そして文字をスキャン」

 　機能：  同一書式の複数の画像ファイルからマウスで領域を指定して、文字をテキスト化しエクセルに一括出力する。

 

（●｀ε´●）：たった、これだけの機能か？

【´･ω･`】：そう、それだけ。

 

★使用法（準備）

1.  スキャナーで用紙（ヨコ長）の連番JPGファイルを作る。
2. 同一フォルダ内(ToraScan)に、フォルダ（orignal_files、src_test）とファイル（ToraSCan.exe、ToraOCR.exe）が在るのを確認する。
3. フォルダorignal_filesに連番JPGファイルをコピーする。

　　※連続スキャンできるスキャナーが必要です。

 

★使用法：　準備ができたらお試し用サンプルファイルを使って実際にやってみましょう。

　1.　サンプルファイルが連番になっているので、フォルダorignal_filesにファイルを３枚全てコピーします。（連番の頭の部分は任意）

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

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

　　一番若い番号の連番ファイルを選択して開く。

「OK」をクリック。

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

今回の練習では「出席番号」と「氏名」の２か所を領域指定する。

作業後にはファームの右上に、２か所分の座標等のデータが表示される。

5.　「枠斬り終了」をクリック。指定した領域すべてが赤枠で囲まれて表示される。

「OK」をクリック。

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

（1）今回は解答用紙（連番ファイル）の数は３枚なので「用紙枚数」は3に、領域指定は２か所なので「切り取り枠数」は2にする。入力する数字は半角。

（2）「フォルダQ000内のSeito000を選択」をクリックする。ダイアログが表示されるのでSeito000.jpgを選択する。フォルダQ000はTraScan.exeと同じフォルダに作られている。

（3）「(=^・^=)：読み取るにゃ！！」をクリックする。

 

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

【´･ω･`】：今日はここまでね。今回の処理はたったの３人分だけど何百人分でも手間は同じだ。

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

Excel_OCR_01をダウンロード

 

 

 

 

(=^・^=)：採点斬り2022 自動採点機能あり

(=^・^=)：採点にゃんこ2022（ニャン・ニャニャン）

 

★はじめに

        ・島守睦美さんの「採点斬り」、phys-kenさんの「採点斬り2021」の真似をして、同一問題を目視一括採点するソフトを作ってみました。

        ・しかし、単なる人まねでは全く意味が無いので簡易OCR機能を組み込んで自動採点機能も実装しました。

　　・ただ、自動採点するのは、うちの飼い猫のとらなのでとても気まぐれです。ですから見直し・修正が必要ではありますが・・・

        ・また、この手のフリーソフトのお約束事ではありますが、このソフトにより生じた損害について何も保証できません。

        ・ファイルの再配布は不可です。

※自動採点：　丸数字による択一問題。3B以上の鉛筆でマークシートのように塗りつぶす。サンプル解答用紙の問1～問10参照。

★準備

1.　答案をスキャナーで読み込み、連番のJPGファイルを作る。模範解答を連番の先頭にする。欠席者がいた場合は名前を書いた答案をその者の出席番号の位置に挟んでおく。

2.フォルダorignal_filesに解答用紙の連番JPGファイルをコピーする。

3.　Excelで作業していたら、終了する。

4.　付属のSaitenFighterTora.xlsmを「マクロ有効」で開く（他のExcelファイルは開かない）。

       「採点にゃんこ2022」の作業中は唯一のExcelファイルとしてSaitenFighterTora.xlsmに接続するので、他にExcelが実行されているとエラーになる。

 

5.　配点と氏名を入力する。（コピペ可）

6.　マクロ「初期設定終了」を実行して、念のため上書き保存。

 

 

★使用法（枠斬り）

1.　ToraSaiten.exeを実行する。スプラッシュスクリーンの表示後、「エクセルに接続」をクリック。

 

 

2.「サイズを確認」し、状況に応じて「サイズはそのままでリネームだけ」、「サイズ縮小（タテ長）」、「サイズ縮小（タテ長）」のいずれかをクリック。自動採点をする場合は、「サイズはそのままでリネームだけ」を選ぶ。

 

 

 

3.　「サイズはそのままでリネームだけ」を選んだとして話を進める。ダイアログボックスが現れ、基準ファイルを選ぶよう指示されるので模範解答を選択する。これにより、フォルダsrc_testにTEST000からTESTｘｘｘの連番ファイルが作られる。

 

 

 

4.　枠斬り開始→メニュー「枠斬り」から「枠斬り開始」をクリック。

マウスでドラッグして切り取り枠を設定（赤い四角形）。ENTER押下で決定。尚、最初に氏名欄の枠斬りをする。後は必要な分だけ繰り返す。

終わったら、「枠斬り完了」をクリック。フォルダQ000からQｘｘｘが作られて、その中に枠斬りした分のJPGファイルが保存される。

尚、枠斬りのデータはエクセルファイルの「設定」シート（非表示）のAからE列に記録されている。失敗したら失敗したところまでを消去してやり直し　(T_T)。面倒なので枠斬りは慎重にやる・・・とは言っても枠斬りはENTERを押して確定なので、ENTERを押さなければマウスの領域指定は何度失敗しても大丈夫なので、それほど緊張する必要はありません。むしろ、ENTERの押し忘れの方がヤバいです。

私もよく忘れます。(^^ゞ

 

★使用法（採点）

 

1.（自動採点対応設問があれば。無ければ２に）「自動採点」をクリックする。エクセルがいったん、保存終了されて、ウィンドウ「猫の手」が表示される。

「自動採点開始」をクリック。ダイアログボックスが表示されるので再び、SaitenFighterTora.xlsmを選択して開く。SaitenFighterTora.xlsmの「猫の手」（非表示シート）にデータが読み込まれるのでマクロ「猫の手を借りる」を実行して保存。ウィンドウ「猫の手」を閉じる。SaitenFighterTora.xlsmは閉じない。

 

2.　再び、「エクセルに接続」をクリック。「目視採点」をクリック。

すでに自動採点問題はで採点されている。目視採点問題は「1（正答）」になっているので・・・

 

・・・で確認・修正する。

 

・「＞＞」をクリックすると次の問題に進み、「＜＜」をクリックすると前の問題に戻る。

・「判定」欄の「1」は正答、誤答は「0」。適宜、修正する。

・部分点を与えたい時は「判定」を「0」にして「部分点」欄に直接、部分点を入力する。

 

一問全員分の採点をしたら「採点を保存」をクリックする。忘れやすいです。私もしょっちゅう忘れます。　(^^ゞ

作業を全問分、繰り返して「採点終了」をクリックする。

 

3．メニュー「採点」から「採点終了」をクリック。フォルダdest_testに採点済みの画像ファイルが作られる。

 

 

4.メニュー「採点」→「Wordに出力」をクリック。採点済みの答案はWordの機能を使って印刷すればよい。採点結果の数値はSaitenFighterTora.xlsmに出力されている。

 

 

 

★同じ形式の解答用紙を採点するには？

（準備）

1.  スキャナーで解答用紙の連番JPGファイルを作る。その際、模範解答は一番若い番号にする。欠席者の解答用紙のダミーを作り、欠番を作らないようにする。
2. ToraSaiten.exeが実行中ならば終了してフォルダ（orignal_files、src_test、dest_test）内を空にする。フォルダQ000からQｘｘｘを（中身のファイルを含めて）削除する。
3. フォルダorignal_filesに新しい解答用紙の連番JPGファイルをコピーする。
4. SaitenFighterTora.xlsmをマクロ有効で開く。「データ入力欄」の配点はそのまま。生徒氏名を新たに入力（コピペ可）。そしてマクロ「同形式の採点で再利用」を実行。以前の採点結果は消去される。

使用法（枠斬り）

1.　ToraSaiten.exeを実行する。スプラッシュスクリーンの表示後、「エクセルに接続」をクリック。

2.　前のパターンと同じもの（「サイズはそのままでリネームだけ」、「サイズ縮小（タテ長）」、「サイズ縮小（タテ長）の中から）をクリック。

3.　メニュー「枠斬り」から「枠斬り終了」をクリック。（前のデータを利用するので実際に枠斬りをする必要はない）

4.　後は同じ。

 

開発環境

Windows11

Microsoft Visual Studio Community 2022 (64 ビット) --VB.NET・C#

Microsoft Excel 2021 (64 ビット)

Microsoft Word 2021 (64 ビット)　

 

実行環境

Windows 10以上　（Windows 8.1なら動くかも）

Excel2007　,  Word 2007　以上

 

自動採点機能を使わなければWindows Vista　でも大丈夫かも・・・

 

実際には試していません。スイマセン　(^^ゞ

 

採点にゃんこ2022: ToraSaiten001をダウンロード

 

※Excel+OCRで自動採点に興味がある方はこちらもご覧ください。m(__)m

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第１回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第2回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第3回　--- (typepad.jp)

Excel Maniacs: Excel + OCR + 自動採点（選択問題）---　第4回　--- (typepad.jp)

Reading Progress in Microsoft Teams：Excel

【´･ω･`】：こんなリクエストがあった。

 

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

Microsoft Teams というサービスを教育活動で使うようになりました。

その機能の一つに、「音声の練習」というものがあります。
音読すると、AIが評価します。
https://www.youtube.com/watch?v=NilBP_YwXDw

その評価の集計を「Excelにエクスポート」できます。

私たちが使っている生徒名簿に、集計結果を転記したいのです。

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

 

【´･ω･`】：「Excelにエクスポート」した表は下のようなカンジだ。

 

 

 

【´･ω･`】：C列（メールアドレス）が学習者、D列が課題名、H列が評価を表している。

（●｀ε´●）：どこが問題なんだ？

【´･ω･`】：C列（メールアドレス）の重複を無くして、課題名ごとに評価を振り分けたいという事らしい。

（●｀ε´●）：下のような表を作りたいということか？

【´･ω･`】：そう。　　　　

 

 

（●｀ε´●）：瞬殺だな。

【´･ω･`】：

うん、　集計ファイル(main.xlsx)のG2に下記の数式を入力し、必要な範囲にコピペすればいい。

=SUMPRODUCT(($F2='[data.xlsx]Reading Progress'!$C$2:'[data.xlsx]Reading Progress'!$C$2:$C$113)*(G$1='[data.xlsx]Reading Progress'!$D$2:$D$113)*('[data.xlsx]Reading Progress'!$H$2:$H$113))

【蛇足】数式の意味

=SUMPRODUCT((main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)*(評価値範囲))

A＝Bが真ならば1，偽ならば0になる。

従がってmain.xlsxのメールアドレス=data.xlsxのメールアドレスとmain.xlsxの課題名=data.xlsxの課題名が共に成立する時

=(main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)

=1*1

・・・となる。

しかし、main.xlsxのメールアドレス=data.xlsxのメールアドレスとmain.xlsxの課題名=data.xlsxの課題名が共に成立するのは

評価値範囲では一つしかない。

残りの＝(main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)は

=0*0

=0*1

=1*0

・・・のどれかになるのだ。

よって・・・

 

=SUMPRODUCT((main.xlsxのメールアドレス=data.xlsxのメールアドレス)*(main.xlsxの課題名=data.xlsxの課題名)*(評価値範囲))

＝0+0+0+･･･+1*1*評価値

＝評価値

 

・・・となる。

 

 

参考ファイル： Mainをダウンロード（main.xlsx 集計用）

　　　　　　　 Dataをダウンロード（data.xlsx Reading Progress in Microsoft Teamsよりエクスポート）

 

使用上の注意：main.xlsxとdata.xlsxは同じフォルダにいれて使ってください。

 

★改訂版を公開しました。（2022/05/12）

Excel Maniacs: Reading Progress in Microsoft をExcelで集計 改訂版 (typepad.jp)