Usuário com melhor resposta
Como controlar optionbutton pelo VBA

Pergunta
-
Respostas
-
Sub Main() Dim opt As OptionButton Set opt = ThisWorkbook.Worksheets("Planilha1").Shapes("Botão de opção 1").OLEFormat.Object Select Case opt.Value Case -4146: MsgBox "Botão de opção está desmarcado.", vbInformation Case 1: MsgBox "Botão de opção está marcado.", vbInformation Case 2: MsgBox "Botão de opção tem marcação mista.", vbInformation End Select End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br
- Marcado como Resposta OtavioBCR quarta-feira, 13 de janeiro de 2016 11:59
Todas as Respostas
-
No Office, em especial no Access, os OptionButton são parte integrante dos Grupos de Opção, cada OptionButton recebe um valor dentro do grupo, normalmente começando de 1.
Para saber qual a opção escolhida, faça a verificação do evento AfterUpdate do grupo de opções.
Private Sub groOpcoes_AfterUpdate() If Me.groOpcoes.Value = 1 Then MsgBox "Você clicou na opção 1" ElseIf Me.groOpcoes.Value = 2 Then MsgBox "Você clicou na opção 2" End If End Sub
Espero ter ajudado
Sergio Ivanenko
- Sugerido como Resposta André Santo quarta-feira, 30 de dezembro de 2015 18:04
- Editado Ivanenko quarta-feira, 30 de dezembro de 2015 18:07
-
-
-
-
Sub Main() Dim opt As OptionButton Set opt = ThisWorkbook.Worksheets("Planilha1").Shapes("Botão de opção 1").OLEFormat.Object Select Case opt.Value Case -4146: MsgBox "Botão de opção está desmarcado.", vbInformation Case 1: MsgBox "Botão de opção está marcado.", vbInformation Case 2: MsgBox "Botão de opção tem marcação mista.", vbInformation End Select End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br
- Marcado como Resposta OtavioBCR quarta-feira, 13 de janeiro de 2016 11:59
-
-
-
Fiz a troca,mas o codigo não está funcionando.
Pelo que entendi do seu codigo,ele emite uma mensagem dependendo do estado do optionButton,correto?
Tenho dois optionbutton's,um de Real R$ e outro de U$ Dolar. Preciso marcar um deles via codigo para poder pegar os dados da moeda correta.
-