Crear preguntas de tipo objetivo en Excel (3 / 6 paso)

Paso 3: Escribir el código

Crear una macro para el botón en la hoja de cálculo
*************************
Sub Button1_Click()
Aleatorizar
totalq = CInt (rango ("preguntas! I1 "). Texto)
Para i = 1 To totalq
Rango ("preguntas! G"& i). FormulaR1C1 = ""
Siguiente
Mientras (rango ("preguntas! H1 "). <> De texto 10)
i = Round (1 + ((totalq-1) * Rnd()), 0)
Rango ("preguntas! G"& i). FormulaR1C1 = "A"
Vendo
QForm.Show
End Sub
*************************

También crear el código VBA para la forma de trabajar
*************************
Dim contador, ans, qcounter

Private Sub Answer1_Click()
Button.Enabled = True
End Sub
Private Sub Answer2_Click()
Button.Enabled = True
End Sub
Private Sub Answer3_Click()
Button.Enabled = True
End Sub
Private Sub Answer4_Click()
Button.Enabled = True
End Sub

Private Sub Button_Click()
Si (Answer1.Value = True) entonces
ANS = 1
ElseIf (Answer2.Value = True) entonces
ANS = 2
ElseIf (Answer3.Value = True) entonces
ANS = 3
ElseIf (Answer4.Value = True) entonces
ANS = 4
End If
ansacc = CInt (rango ("preguntas! F"& contador). Texto)
Si (ansacc = y) entonces
Estado. Ancho = estado. Ancho + 30
End If
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
contador = contador + 1
qcounter = qcounter + 1
Si qcounter < = 10 entonces
Mientras (rango ("preguntas! G"& contador). <> De texto "A")
contador = contador + 1
Vendo
Question.Caption = rango ("preguntas! A"& contador). Texto
Answer1.Caption = rango ("preguntas! B"& contador). Texto
Answer2.Caption = rango ("preguntas! C"& contador). Texto
Answer3.Caption = rango ("preguntas! D"& contador). Texto
Answer4.Caption = rango ("preguntas! E"& contador). Texto
End If
Button.Enabled = False
Si qcounter = 11 entonces
MsgBox ("su resultado es" & 10 * estado. Ancho / 30 & "%")
QForm.Hide
End If
End Sub

Private Sub UserForm_Activate()
contador = 1
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
Estado. Anchura = 0
Button.Enabled = False
ANS = 0
Mientras (rango ("preguntas! G"& contador). <> De texto "A")
contador = contador + 1
Vendo
Question.Caption = rango ("preguntas! A"& contador). Texto
Answer1.Caption = rango ("preguntas! B"& contador). Texto
Answer2.Caption = rango ("preguntas! C"& contador). Texto
Answer3.Caption = rango ("preguntas! D"& contador). Texto
Answer4.Caption = rango ("preguntas! E"& contador). Texto
qcounter = 1
End Sub
*************************