Мой vba перестает работать снова?

Question

На этот раз я делал флажки с параметрами, поэтому я вставлял код с речевыми метками вокруг ответа, тогда я попытался использовать его, но он просто не сработает. Код, который я размещал, был:

Private Sub OptionButton1_Click() 
    If OptionButton1.Value = "Stores all the components" Then 
     MsgBox "That is correct. Well done!" 
     SlideShowWindows(1).View.Next 
    Else 
     MsgBox "Sorry, that is not right. Try again" 
    End If 
End Sub 

Пожалуйста, помогите мне?

Answer 1

Я думаю, что вы пытаетесь это

If OptionButton1.Caption = "Stores all the components" 

или Этот

If OptionButton1.Value = True Then 

Answer 2

OptionButton в VBA имеет значение 0 (не выбрано) или -1 (проверено). Если вы ищете, что говорит опция option, я считаю, что вы хотите. Подпись вместо .Value

EDIT: Посмотрев на свой код, я вижу фундаментальный недостаток. Вы назначаете это только щелчку по опции, поэтому, если первая кнопка не имеет правильного значения, ничего не произойдет. Я думаю, что вам нужно, это подпрограмма, как этот

Private Sub checkAnswer (answer as string) 
    dim expecTedAnswer as string 
    expectedAnswer = "The correct answer" 
    if answer = expectedanswer then 
     msgbox "Correct" 
    else 
     msgbox "Incorrect" 
    end if 
End sub 

Затем в опции мыши, просто вызовите Sub

CheckAnswer(OptionButton1.Caption) 

Обратите внимание, что это очень некрасиво (вы хотели бы создать легко используемое призвание метод и способ установки правильного ответа), но он должен дать вам что-то, чтобы продолжить.

Answer 3

Чуть симпатичнее возможно ...

Каждый OptionButton нажмите событие вызывает CheckAnswer:

Private Sub OptionButton1_Click() 
    If CheckAnswer(Me.OptionButton1, "Correct answer") Then 
     MsgBox "Good user. GOOD!" 
    Else 
     MsgBox "Bad user! BAD! Go stand in the corner." 
    End If 
End Sub 

Private Sub OptionButton2_Click() 
    If CheckAnswer(Me.OptionButton2, "Correct answer") Then 
     MsgBox "Good user. GOOD!" 
    Else 
     MsgBox "Bad user! BAD! Go stand in the corner." 
    End If 
End Sub 

Function CheckAnswer(oCtl As Object, sCorrectAnswer As String) As Boolean 
    If UCase(oCtl.Caption) = UCase(sCorrectAnswer) Then 
     CheckAnswer = True 
    Else 
     CheckAnswer = False 
    End If 
End Function