【Excel VBA】４択式マークシート

「MarkSheet.zip」をダウンロード

IPAのような４択式問題の勉強用マークシート。

電子書籍等で問題を解く時、わざわざノートを使うまではないかなってときに、

Excelのセルをクリックするだけで答が選択（マーク）できるようにしている。

他、開始時間、終了時間もメモできるように機能をつけている。

ちょっと勉強するには、これでいいかな。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.CountLarge <> 1 Then Exit Sub
   
    If Target.Address = "$G$4" Then
        Me.Range("G11:J60").Value = ""
        Me.Range("$H$4").Value = Now
        Me.Range("$H$5").Value = ""
        Me.Range("$H$6").Value = ""
    End If
   
    If Target.Address = "$G$5" Then
        Me.Range("$H$5").Value = Now
        Me.Range("$H$6").Value = Me.Range("$H$5").Value – Me.Range("$H$4").Value
       
    End If
   
   
    ‘○指定範囲の場合
    If Intersect(Target, Range("G11:J60")) Is Nothing Then Exit Sub
    Dim i As Long
    i = Target.Column
   
    ‘一旦初期化
    Me.Cells(Target.Row, 7) = ""
    Me.Cells(Target.Row, 8) = ""
    Me.Cells(Target.Row, 9) = ""
    Me.Cells(Target.Row, 10) = ""
   
    ‘指定エリアに○を
    Me.Cells(Target.Row, i) = "○"
End Sub