Skapa mål typ frågor i Excel (3 / 6 steg)
Steg 3: Skriva koden
*************************
Sub Button1_Click()
Randomize
totalq = CInt (Range ("frågor! I1 "). Text)
För i = 1 till totalq
Range ("frågor! G"& i). FormulaR1C1 = ""
Nästa
Medan (Range ("frågor! H1 "). Text <> 10)
Jag = runda (1 + ((totalq-1) * Rnd()), 0)
Range ("frågor! G"& i). FormulaR1C1 = "A"
Wend
QForm.Show
End Sub
*************************
Också skapa VBA-koden för formuläret att arbeta
*************************
Dim counter, ans, qcounter
Private Sub Answer1_Click()
Button.Enabled = sant
End Sub
Private Sub Answer2_Click()
Button.Enabled = sant
End Sub
Private Sub Answer3_Click()
Button.Enabled = sant
End Sub
Private Sub Answer4_Click()
Button.Enabled = sant
End Sub
Private Sub Button_Click()
Om (Answer1.Value = True) sedan
ans = 1
ElseIf (Answer2.Value = True) sedan
ans = 2
ElseIf (Answer3.Value = True) sedan
ans = 3
ElseIf (Answer4.Value = True) sedan
ans = 4
Slut om
ansacc = CInt (Range ("frågor! F"& counter). Text)
Om (ansacc = ans) sedan
status. Bredd = status. Bredd + 30
Slut om
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
räknare = räknare + 1
qcounter = qcounter + 1
Om qcounter < = 10 sedan
Medan (Range ("frågor! G"& counter). Text <> "A")
räknare = räknare + 1
Wend
Question.Caption = Range ("frågor! A"& counter). Text
Answer1.Caption = Range ("frågor! B"& counter). Text
Answer2.Caption = Range ("frågor! C"& counter). Text
Answer3.Caption = Range ("frågor! D"& counter). Text
Answer4.Caption = Range ("frågor! E"& counter). Text
Slut om
Button.Enabled = False
Om qcounter = 11 då
MsgBox ("din poäng är" & 10 * status. Bredd / 30 & "%")
QForm.Hide
Slut om
End Sub
Private Sub UserForm_Activate()
räknare = 1
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
status. Bredd = 0
Button.Enabled = False
ans = 0
Medan (Range ("frågor! G"& counter). Text <> "A")
räknare = räknare + 1
Wend
Question.Caption = Range ("frågor! A"& counter). Text
Answer1.Caption = Range ("frågor! B"& counter). Text
Answer2.Caption = Range ("frågor! C"& counter). Text
Answer3.Caption = Range ("frågor! D"& counter). Text
Answer4.Caption = Range ("frågor! E"& counter). Text
qcounter = 1
End Sub
*************************