VBE­×§ï

sillykin

¤U­±µ{¦¡¬°Àˬd¬O§_¦³¦b A2 ©Î A3 Àx¦s®æ¿é¤J¤Fµª®×
­YA2~A201­n¦³¤U­±ªº¤è¦¡,­n¦p¦ó­×§ïVBA?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim answerCell As Range
Dim correctnessCell As Range
Dim correctCount As Integer
Dim wrongCount As Integer

Set answerCell = Range("A2")
Set correctnessCell = Range("F2")
correctCount = Range("H2").Value
wrongCount = Range("I2").Value

' Àˬd¬O§_¦³¦b A2 ©Î A3 Àx¦s®æ¿é¤J¤Fµª®×
If Not Intersect(Target, answerCell) Is Nothing Then
    ' Àˬd¹ïÀ³ªº§PÂ_Àx¦s®æ¬O§_¬° "TRUE" (¥¿½T)
    If UCase(correctnessCell.Value) = "TRUE" Then
        ' ¥¿½T¦¸¼Æ²Ö¥[
        correctCount = correctCount + 1
        Range("H2").Value = correctCount
    ElseIf UCase(correctnessCell.Value) = "FALSE" Then
        ' ¿ù»~¦¸¼Æ²Ö¥[
        wrongCount = wrongCount + 1
        Range("I2").Value = wrongCount
    End If
ElseIf Not Intersect(Target, Range("A3")) Is Nothing Then
    ' Àˬd¹ïÀ³ªº§PÂ_Àx¦s®æ¬O§_¬° "TRUE" (¥¿½T)
    If UCase(Range("F3").Value) = "TRUE" Then
        ' ¥¿½T¦¸¼Æ²Ö¥[
        correctCount = Range("H3").Value + 1
        Range("H3").Value = correctCount
    ElseIf UCase(Range("F3").Value) = "FALSE" Then
        ' ¿ù»~¦¸¼Æ²Ö¥[
        wrongCount = Range("I3").Value + 1
        Range("I3").Value = wrongCount
    End If
End If

sillykin

ÁÂÁ§Aªº¨ó§U