クイズ用

Sub クイズ()
j = 0
tensu = 0
Do Until j = 2
     I = Rnd * 2
     S = Int(I) + 1
    GRIDA = "A" & Application.WorksheetFunction.Text(S, "0")
    GRIDB = "B" & Application.WorksheetFunction.Text(S, "0")
    メッセージ = Range("" & GRIDA & "")
    ANS = InputBox("" & メッセージ & "を入力してください")
    If ANS = Range("" & GRIDB & "") Then
      MsgBox "正解！"
      tensu = tensu + 1
    Else
      MsgBox "はずれ！"
    End If
    j = j + 1
Loop
    MsgBox "あなたの点数は　" & tensu & "点です"
End Sub


    

    
<