Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Listbox usando AddItem com Cabeçalho (columnhead)

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
alantykhe
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qua Out 03, 2012 10:02 pm

Listbox usando AddItem com Cabeçalho (columnhead)

Mensagem por alantykhe » Seg Jul 24, 2017 2:11 pm

Pessoal, boa tarde!

Existe alguma maneira de colocar cabeçalho (ColumnHeads) no listbox utilizando o método AddItem?

Só consegui habilitar o o cabeçalho utilizando RowSource. O problema de utilizar RowSource é que ele imputa todos os dados da planilha e quero que ele preencha apenas conforme os meus critérios.

Abraço
    
Sub PreencherForm()
a = 0
Me.ListBox1.Clear
Funcionario = ActiveCell.Value

For i = 2 To 2000

        If Cells(i, 1) = "" Then Exit For
        If Cells(i, 1) = Funcionario Or Cells(i, 1) = "Nome" Then
            
            With Me.ListBox1
                .ColumnCount = 8
                .AddItem
                
                .List(a, 0) = Cells(i, 3).Value
                .List(a, 1) = Cells(i, 4).Value
                .List(a, 2) = Cells(i, 5).Value
                .List(a, 3) = Cells(i, 6).Value
                .List(a, 4) = Cells(i, 7).Value
                .List(a, 5) = Cells(i, 8).Value
                .List(a, 6) = Cells(i, 9).Value
                .List(a, 7) = Cells(i, 1).Address 'Armazena o endereço da célula para permitir alterações

                .ColumnWidths = "100; 290; 72; 60; 60; 70; 60; 0"

                a = a + 1
            End With
            
        End If

Next
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder