Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objetos checkboxes, através de um CommandButton no objeto userform, insere uma seleção em todos os checkboxes existentes, como também retira essa seleção. Observe que também voce poderá mudar a cor do frame, botão, userform, como também as fontes...
'Private Sub CommandButton1_Click()
'    CheckBox1 = True
'    CheckBox2 = True
'    CheckBox3 = True
'    CheckBox4 = True
'    CheckBox5 = True
'    CheckBox6 = True
'    CheckBox7 = True
'    CheckBox8 = True
'    CheckBox9 = True
'    CheckBox10 = True
'End Sub

'Prezado Silvio, o jeito que você estava fazendo também funciona, porém para fazermos isso em um só botão, fica melhor se fizermos da seguinte forma, usando um Loop  For ... Next.  Acredito que fica melhor, veja. Espero que o exemplo possa ajudá-lo Fique com Deus. Expedito Marcondes.

Private Sub CommandButton1_Click()
For i = 1 To 10
    Controls("CheckBox" & i) = Not Controls("CheckBox" & i)
Next
'condição if somente para inserir no frame se os chekbox estão ou nao selecionados.
If CheckBox1 = True Then
   Me.Frame1.Caption = "Checkboxes ATIVADOS!!"
   Me.Frame1.BackColor = &HC0FFFF  
Else
   Me.Frame1.Caption = "Checkboxes Desativados!"
   Me.Frame1.BackColor = &HFFFFC0
End If
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





  Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha vba checkbox ativar e desativar todos (66.27 KB)



Publicidade
Compre com segurança, garantia e ótimos preços