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 
Comentários
Tenho uma pergunta simples.
Fiz uma planilha do excell e coloquei um Check Box, porem ele é da cor preta, e preciso colocar da cor vermelha!
Voce sabe como faze-lo?
'------------'
RESPOSTA:
Geralmente quando voce insere um Objeto do Visual Basic (Active X), para formatá-lo voce deverá desabilitar o modo de edição do vb na guia Desenvolvedor para acessar o objeto.
Em seguida clique com o botão direito do Mouse(Proprieda des), vá na propriedade,Bac kColor e escolha a cor que desejar.
Se seu chekbox for um objeto (não active x) do prórprio Excel (Objetos Formularios) só selecionar e formatar como desejar.
caso nao consiga, envie-me sua planilha.
Fique com Deus,
Expedito marcondes.
Assine o RSS dos comentários