Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ACTIVEX (CHECKBOXES...
 
Notifications
Clear all

ACTIVEX (CHECKBOXES) QUANTIDADE MARCADA

 
2024 - VBA & Macros
Post Recente por ericsson 9 anos atrás
5 Posts
2 Usuários
0 Reactions
1,217 Visualizações
RSS
 ericsson
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Bom dia, Pessoal!!

Tenho 15 activex (checkbox), checkbox1, checkbox2, checkbox3, checkbox4, ..., etc., daí gostaria de saber como por meio de um loop,
contar quantos destes estão marcados, e saber quais estão marcados.

Alguém sabe como fazer, já pesquisei na net, porém somente achei como marcar e desmarcar todos.

 
Postado : 08/07/2015 8:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Estão em formulário ou planilha

 
Postado : 08/07/2015 8:55 am
 ericsson
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Estão na planilha, segue arquivo.

 
Postado : 08/07/2015 9:57 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Adicione um Botão e associe a rotina abaixo :

Public Sub CountCkBoxON()
    Dim k As Integer, count As Integer
    Dim sQual, sNomes
    
    For k = 1 To 15
        If ActiveSheet.OLEObjects("Checkbox" & k).Object.Value Then
            count = count + 1
            
            sQual = "Checkbox" & k
            sNomes = sNomes & Chr(13) & sQual
            
        End If
    
    Next k
    
    MsgBox "Total Selecionados :- " & count
    MsgBox "Selecionados :- " & sNomes
    
End Sub

Lembre-se de Salvar o arquivo como tipo habilitado com macros (xlsm).

[]s

 
Postado : 08/07/2015 11:08 am
 ericsson
(@ericsson)
Posts: 54
Trusted Member
Topic starter
 

Eu utilizo o .xlsb.

Valeu!! Ajudou bastante este seu exemplo!!

 
Postado : 08/07/2015 1:04 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico