ACTIVEX (CHECKBOXES) QUANTIDADE MARCADA

2024 - VBA & Macros

Post Recente por ericsson 9 anos atrás

5 Posts

2 Usuários

0 Reactions

1,228 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

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

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

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

Postado : 08/07/2015 11:08 am