Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Variáveis em nome d...
 
Notifications
Clear all

Variáveis em nome da checkbox

 
2024 - VBA & Macros
Post Recente por gustavooo 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,287 Visualizações
RSS
 gustavooo
(@gustavooo)
Posts: 17
Active Member
Topic starter
 

Bom dia pessoa.

Tenho um formulário com um monthview e 7 checkboxs que devem ser marcadas de acordo com uma opção que eu selecionar em uma combobox e com o valor do próprio monthview.
Por exemplo se eu escolher na combobox "3x por semana" e na monthview selecionar uma data que o dayofweek é 6, marcaria a checkbox6.value = true, checkbox7.value = true e checkbox1.value = true.
Tenho muitas opções na combobox e de quarquer forma terei que fazer alguns ifs, para economizar algumas linhas de código e fazer menos checagens seria melhor utilizar alguns "for" do que somente ifs, então precisaria fazer algo parecido com :

X = MonthView1.DayOfWeek
checkbox " & x &  " .value = true

Porém não consigo passar uma variável para o nome da checkbox, alguem saberia me dizer como fazer isso ou tem alguma dica de como fazer o que preciso de uma melhor maneira ?

Obrigado.

 
Postado : 26/05/2015 7:25 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Para definir da forma que pretende, se "MonthView1.DayOfWeek" está retornando "1,2,3...", você pode passar o valor da seguinte forma ;

Lembrando que na instrução abaixo os Controles têm de estar com o Name padrão "CheckBox" 

    Dim xN As String
    Dim chkb As MSForms.CheckBox 'Declaramos o tipo do controle

    xN = MonthView1.DayOfWeek
        
        Set chkb = Controls("CheckBox" & xN) 'Setamos (definimos) atraves da Variável xN qual CheckBox
        
        chkb.Value = True

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/05/2015 7:55 am
 gustavooo
(@gustavooo)
Posts: 17
Active Member
Topic starter
 

Obrigado Mauro, deu certo !

 
Postado : 26/05/2015 8:22 am
Forum Jump:
  Tópico Anterior
Próximo Tópico