자동채점 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strRange As String strRange = Target.Cells.Address If Not Target.Cells.Value = "O" Then Range(strRange).Interior.Color = vbYellow Range(strRange).Replace "*", "O" Cells(Target.Row, 9).Value = Cells(Target.Row, 9).Value + Cells(2, Target.Column).Value Cells(Target.Row, 9).Interior.Color = vbYellow Cells(Tar..