Ir ao conteúdo
  • Cadastre-se
edcronos

RESOLVIDO varias CheckBox mais Array's macro

Recommended Posts

nem sei se tem como fazer

para evitar de escrever um monte de IF's tentei usar array para varrer as caixas de seleção

REV1,2,3... e LO1,2,3... são caixas de seleção

 

Revo = Array(rev1.Value, rev2.Value,...)
loo = Array(lo1.Value, lo2.Value, lo3.Value, ...)

Revo = Array(rev1, rev2, rev3, rev4, ...).Value   
loo = Array(lo1, lo2, lo3, lo4, lo5, lo6, lo7, lo8, lo9, lo10).Value

Revo = Array(rev1, rev2, rev3, rev4, ...)
loo = Array(lo1, lo2, lo3, lo4, lo5,...)

 

como podem ver eu testei de varias maneiras, mas sem sucesso

 

Suo = Array("mac1", "mac2", "mac3", "mac4", "mac5", "mac6", "mac7", "mac8", "mac9", "mac10") " esse  sem os outros funciona"

For cs = 0 To 9
revi = Revo(cs - Ab)
If Revo(cs) = "True" Then N = Ac Else N = Ab
If loo(cs) = "True" Then Application.Run Suo(cs): GoSub Lad1
Next

 

Será que tem como pegar valor de caixas de seleção com array, OU tem alguma maneira de varrer todas sem usar um monte de IF's?
qualquer ajuda serve.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Edit: achei a solução

 

Suo = Array("mac1", "mac2", "mac3", "mac4", "mac5", "mac6", "mac7", "mac8", "mac9", "mac10")

 

For cs = 1 To 10
revi = "rev" & cs  
loo = "lo" & cs
If Me.Controls(revi) = True Then N = Ac Else N = Ab
If Me.Controls(loo) = True Then Application.Run Suo(cs - 1): GoSub Lad1
Next

 

"Me.Controls(  ) " transforma valor de variaveis em instrunção comandos assim como Application.Run tranforma valor de variaveis em chamada de macro

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×