Notifications
Clear all

Reaproveitar variável e OptionButton

3 Posts
2 Usuários
0 Reactions
1,034 Visualizações
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Boa Tarde

Tem como eu aproveitar a variável de uma macro em outra?

Estou rodando primeiro este código

Private Sub CommandButton3_Click()
'Dim C
Set C = Sheets("BD").Range("B1").Offset(Int(Rnd() * [questoes].Count + 1), 0)
  TextBox1.Value = C 'Range("A1")
  
    'TextBox1.Width = 150
    TextBox1.MultiLine = True
    TextBox1.WordWrap = True
    'TextBox1.AutoSize = True

    'With Me.TextBox1
       ' .Height = 80
    'End With

E queria usar a variável c neste segundo

Private Sub CommandButton1_Click()
Dim Resp_cert As String
Dim Resp As String
If C(1, 5) = a Then

Select Case Frame1

Case OptionButton1.Value = True
Resp = "A"
Case OptionButton1.Value = True
Resp = "B"
Case OptionButton1.Value = True
Resp = "C"
Case OptionButton1.Value = True
Resp = "D"
Case OptionButton1.Value = True
Resp = "E"

End Select

If C(1, 5) = Resp Then

MsgBox ("Parabéns Você Acertou !")

Else

MsgBox ("Tem que estudar mais!")

End If

End Sub

OBS: Também não sei se está correto o uso dos OptionButton.

Se alguém tiver alguma ideia, trata-se de uma planilha para guardar e resolver questões de concurso.

Obrigado

 
Postado : 18/02/2015 10:13 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Se é só uma linha e 2 botões, porque vc simplesmente não repete ela?

Uma opção seria criar uma função:

Function C()
C = Sheets("BD").Range("B1").Offset(Int(Rnd() * [questoes].Count + 1), 0)

E no commandbutton

TextBox1.Value = C

 
Postado : 18/02/2015 5:10 pm
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Gilmar não entendi.
alguém tem um modelo de Quiz feito no Excel vba ?
procurei, mas não encontrei em lugar algum.

Obrigado

 
Postado : 19/02/2015 10:14 am