Notifications

Clear all

Reaproveitar variável e OptionButton

2024 - VBA & Macros

Post Recente por guma 10 anos atrás

3 Posts

2 Usuários

0 Reactions

1,038 Visualizações

RSS

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

Perguntas_exemp.rar

Postado : 18/02/2015 10:13 am

gtsalikis

(@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

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 18/02/2015 5:10 pm