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