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,297 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

(@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