none
Macro que ativa caixa de combinação RRS feed

  • Pergunta

  • Boa tarde,

    É possível por gentileza criar macro que altera uma linha de caixa de combinação?

    Exemplo: A caixa de combinação tem 4 linhas:

    1 - vazio

    2 - Sala

    3 - Quarto

    4 - Banheiro

    Exemplo: A caixa de combinação está na posição 4 - banheiro. Após executar uma macro, a caixa de combinação vai para a posição 1 - vazio

    segunda-feira, 5 de dezembro de 2016 19:32

Todas as Respostas

  • Crie um formulário com os controles ComboBox1 e CommandButton1 e insira o código abaixo:

    Option Explicit
    
    Private Sub CommandButton1_Click()
        With Me.ComboBox1
            If .ListIndex = .ListCount - 1 Then
                .ListIndex = 0
            Else
                .ListIndex = .ListIndex + 1
            End If
        End With
        
    End Sub
    
    Private Sub UserForm_Initialize()
        With Me.ComboBox1
            .AddItem ""
            .AddItem "Sala"
            .AddItem "Quarto"
            .AddItem "Banheiro"
        
            .ListIndex = 0
        End With
    End Sub
    


    http://www.ambienteoffice.com.br

    terça-feira, 6 de dezembro de 2016 23:45
    Moderador