Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Configurar coluna do ListBox como hora "usando método array" [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
ludehenrique2cia
Colaborador
Colaborador
Mensagens: 38
Registrado em: Ter Abr 19, 2016 10:03 am
Localização: Campinas, SP
Contato:

Configurar coluna do ListBox como hora "usando método array" [RESOLVIDO]

Mensagem por ludehenrique2cia »

Bom dia a todos, preciso de uma ajuda.

Por esse mesmo fórum consegui resolver o problema de carregar a ListBox com mais de 10 colunas,
usando a propriedade arrays conforme artigo http://wp.me/pes9W-18d
Mas quando carregado o ListBox na coluna da planilha "I" que representa horas, aparece como números no ListBox (Ex; "00:45:00" aparece como "0,03125").
Já pesquisei em vários lugares mas não consegui achar uma solução.

Desde já agradeço aos grandes mestres!!!!
Anexos
TESTE Fórum.rar
(93.35 KiB) Baixado 298 vezes
Editado pela última vez por ludehenrique2cia em Qua Abr 26, 2017 12:52 pm, em um total de 1 vez.


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.


Basole
Colaborador
Colaborador
Mensagens: 67
Registrado em: Qua Mar 20, 2013 6:31 pm

Re: Configurar coluna do ListBox como hora "usando método array"

Mensagem por Basole »

Amigo, coloquei uma condicao para a coluna 9 (i) para formatar os valores como hora, veja se atende
Anexos
TESTE Fórum_1.zip
(76.09 KiB) Baixado 432 vezes


ludehenrique2cia
Colaborador
Colaborador
Mensagens: 38
Registrado em: Ter Abr 19, 2016 10:03 am
Localização: Campinas, SP
Contato:

Re: Configurar coluna do ListBox como hora "usando método array"

Mensagem por ludehenrique2cia »

Perfeito!!
Eu tentei uma condição também mas não estava conseguindo colocar o array no lugar e da forma certa.

Muito obrigado!!!!


gfsouza86
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Ter Out 16, 2012 10:19 am

Re: Configurar coluna do ListBox como hora "usando método array" [RESOLVIDO]

Mensagem por gfsouza86 »

Bom dia tudo na paz?
Essa resposta me ajudou em partes.....
Ele formatou a coluna horário, porem após eu realizar a pesquisa ele volta os dados para o formato 0,333333

Como faço para sempre ficar no formato hh:mm?

Desde já agradeço
Anexos
Pasta1.zip
(18.43 KiB) Baixado 292 vezes


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.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Configurar coluna do ListBox como hora "usando método array" [RESOLVIDO]

Mensagem por Reinaldo »

Try

Código: Selecionar todos

Sub pesquisa()
TextoDigitado = UserForm1.TextBox1.Text
Range("A1").Select
 
 Dim ws As Worksheet
 Dim Linha As Integer
 Dim linhalistbox As Integer
 Dim TextoCelula As String
 
 
 Set ws = ThisWorkbook.Worksheets("Planilha1")
 Linha = 1
 linhalistbox = 0
 UserForm1.ListBox1.Clear
 
With ws
    While .Cells(Linha, 1).Value <> Empty
        TextoCelula = .Cells(Linha, 3).Value
        If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
            With UserForm1.ListBox1
                .AddItem
                .List(linhalistbox, 0) = Sheets("Planilha1").Cells(Linha, 1)
                .List(linhalistbox, 1) = VBA.Format(Sheets("Planilha1").Cells(Linha, 2).Value, "hh:mm")
                .List(linhalistbox, 2) = Sheets("Planilha1").Cells(Linha, 3)
                .List(linhalistbox, 3) = Sheets("Planilha1").Cells(Linha, 4)
                .List(linhalistbox, 4) = Sheets("Planilha1").Cells(Linha, 5)
                .List(linhalistbox, 5) = Sheets("Planilha1").Cells(Linha, 6)
                .List(linhalistbox, 6) = Sheets("Planilha1").Cells(Linha, 7)
                .List(linhalistbox, 7) = Sheets("Planilha1").Cells(Linha, 8)
                .List(linhalistbox, 8) = Sheets("Planilha1").Cells(Linha, 9)
                
                linhalistbox = linhalistbox + 1
            End With
        
        End If
    Linha = Linha + 1
    
    Wend
End With
End Sub


gfsouza86
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Ter Out 16, 2012 10:19 am

Re: Configurar coluna do ListBox como hora "usando método array" [RESOLVIDO]

Mensagem por gfsouza86 »

Reinaldo funcionou perfeitamente

Só mais duas perguntas:

1ª: como faço para deixar o cabeçalho fixo?
2ª qual é melhor usar: listview ou listbox para esse tipo de trabalho?


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