ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

VB para VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Irenko
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

VB para VBA

Mensagem por Irenko » Ter Mar 29, 2011 9:54 am

Private Sub Check1_Click(Index As Integer)
Dim check As CheckBox
If Check1(Index).Value = 1 Then
For Each check In Check1
If check.Index <> Index Then check.Value = 0
Next
End If
End Sub

Como passo a rotina acima para VBA? Em VB funciona normalmente.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2873
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: VB para VBA

Mensagem por webmaster » Ter Mar 29, 2011 10:56 am

Irenko,

Que tipo de controle é o Check1? Não é um checkbox, certo? Não faz sentido um Checkbox ter uma coleção de Checkboxes, como diz o código, a não ser que seja um CheckListBox, certo?

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Irenko
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

Re: VB para VBA

Mensagem por Irenko » Ter Mar 29, 2011 11:50 am

Esqueci de mencionar q estou usando o componente VBA no VB.



Avatar do usuário
webmaster
Administrador
Mensagens: 2873
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: VB para VBA

Mensagem por webmaster » Ter Mar 29, 2011 11:59 am

Irenko,

Pode disponibilizar a planilha?

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Irenko
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

Re: VB para VBA

Mensagem por Irenko » Ter Mar 29, 2011 12:30 pm

Consegui resolver com a ajuda de um amigo: vja bem o projeto é em VB usando componente VBA, como o VB é burro para algumas rotinas, criamos um antiburro, hehehe!

Dim AntiBurroCheck As Boolean
Private Sub Chk_Cartao_Click(Index As Integer)
If AntiBurroCheck = False Then
Dim I As Integer
AntiBurroCheck = True
For I = 1 To Chk_Cartao.Count
If I <> Index Then
Chk_Cartao(I).Value = False
End If
Next
AntiBurroCheck = False
End If



Avatar do usuário
webmaster
Administrador
Mensagens: 2873
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: VB para VBA

Mensagem por webmaster » Ter Mar 29, 2011 1:18 pm

Uau!

Pelo menos funcionou, não? Por essa e outras razões, adoro programar. :lol:

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder