Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Questionario e Radio Button

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
walisson



Mensagens : 1
Data de inscrição : 28/04/2015

MensagemAssunto: Questionario e Radio Button   Ter Abr 28, 2015 5:36 am

Ola pessoal boa noite!
Preciso criar um questionário no excel onde cada pergunta guardara o valor selecionado no radio button, e ao clicar no botão "Próxima Pergunta" a pergunta seguinte terá de aparecer na mesma célula onde estava a "Pergunta 1" e também guardar em um local qualquer o valor selecionado no radio button. Basicamente é um questionário simples, mas ao invés das perguntas estarem todas listadas uma embaixo da outra, elas irão aparecer uma de cada vez e havera um botao de avancar e recuar nas perguntas, se eu voltar o valor do radio tambem devera ser alterado

Os valores selecionados nos radio buttons de cada pergunta, podem ficar armazenados em qualquer lugar,depois vou ter que somá-los para gerar um score.

Ja consegui fazer boa parte do que quero,mas preciso otimizar o codigo e resolver o problema do botao voltar que nao consigo retrabalhar os valores do RadioButton.


Alguém poderia ajudar? Desde já grato!

Segue Code:

Public y As Integer


Private Sub CommandButton1_Click()
y = y - 1
Avancar_Questao

End Sub

Private Sub CommandButton2_Click()
Dim Answer As String

If OptionButton1.Value = True Then
Answer = "1"
ElseIf OptionButton2.Value = True Then
Answer = "2"
Else
MsgBox "Selecione uma alternativa!"
Exit Sub
End If

Dim counter As Integer
counter = 1
Do Until ThisWorkbook.Sheets("Respostas").Cells(counter, 1).Value = ""
counter = counter + 1
Loop
ThisWorkbook.Sheets("Respostas").Cells(counter, 1).Value = Answer

y = y + 1

Avancar_Questao

End Sub


Function Avancar_Questao()

Dim numero_questao As Range

Set numero_questao = Range("P19:P29")

For Each x In numero_questao

If y = 0 Then
Range("Q19").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = False

ElseIf y = 1 Then
Range("Q20").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 2 Then
Range("Q21").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 3 Then
Range("Q22").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True


ElseIf y = 4 Then
Range("Q23").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 5 Then
Range("Q24").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 6 Then
Range("Q25").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 7 Then
Range("Q26").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 8 Then
Range("Q27").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 9 Then
Range("Q28").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.CommandButton1.Visible = True

ElseIf y = 10 Then
ActiveSheet.CommandButton2.Visible = False
ActiveSheet.CommandButton3.Visible = True

End If

Next x


End Function

Private Sub CommandButton3_Click()
Score
y = 0
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Questionario e Radio Button
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» scripts de radio button duvida
» Radio - Gravação
» Prayer de audio pra uma radio
» Me Ajudem com Radio...
» Problemas de "autostart" na colocação da radio

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: