Formato Horas [LISTBOX] - Formulários

RE: Formato Horas

jhonndee — Thu, 10 Jul 2025 19:32:51 +0000

Olá Leandro, para exibir os valores corretamente como horas no ListBox, você precisa formatar os dados antes de adicioná-los. Ao preencher o ListBox, use algo como ListBoxHoras.AddItem Format(Celula.Value, "hh:mm") — isso garante que mesmo valores como 0,270833 sejam exibidos como "06:30", por exemplo. A conversão deve ser feita no momento da leitura dos dados da planilha, antes de inseri-los no ListBox.

Re: Formato Horas

Porto — Mon, 31 Mar 2014 12:54:23 +0000

Era isso mesmo que eu precisava Reinaldo, obrigado. Com relação ao modo que são listados os dados, é porque não tenho muita (ou nenhuma) experiência em trabalhar com matrizes... mas ficaria bem melhor com elas, certo? Você tem alguma sugestão? Novamente obrigado pela ajuda.

Re: Formato Horas

Fernando Fernandes — Mon, 31 Mar 2014 11:31:42 +0000

Sem entrar no mérito do porque é carregado dessa maneira; mas deve ser alterado em todas as instâncias onde aparece listbox2/3/6

Private Sub PreencheLista()
    Dim Agenda As Worksheet
    Dim linha As Integer
    Dim TextoCelula As String
    Set Agenda = ThisWorkbook.Worksheets("Dados")
    linha = 2
    ListBox1.Clear
    ListBox2.Clear
    ListBox3.Clear
    ListBox4.Clear
    ListBox5.Clear
    ListBox6.Clear
    
    With Agenda
        While .Cells(linha, 1).Value <> Empty
            TextoCelula = .Cells(linha, 6).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                
                ListBox1.AddItem .Cells(linha, 6)
                ListBox2.AddItem Format(.Cells(linha, 10), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 11), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 7), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 13).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 13)
                ListBox2.AddItem Format(.Cells(linha, 17), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 18), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 14), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 20).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 20)
                ListBox2.AddItem Format(.Cells(linha, 24), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 25), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 21), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 27).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 27)
                ListBox2.AddItem Format(.Cells(linha, 31), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 32), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 28), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 34).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 34)
                ListBox2.AddItem Format(.Cells(linha, 38), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 39), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 35), "HH:MM")
            End If
            
            TextoCelula = .Cells(linha, 41).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 41)
                ListBox2.AddItem Format(.Cells(linha, 45), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 46), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 42), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 48).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 48)
                ListBox2.AddItem Format(.Cells(linha, 52), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 53), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 49), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 55).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 55)
                ListBox2.AddItem Format(.Cells(linha, 59), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 60), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 56), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 62).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 62)
                ListBox2.AddItem Format(.Cells(linha, 66), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 67), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 63), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 69).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 69)
                ListBox2.AddItem Format(.Cells(linha, 73), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 74), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 70), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 76).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 76)
                ListBox2.AddItem Format(.Cells(linha, 80), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 81), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 77), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 83).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 83)
                ListBox2.AddItem Format(.Cells(linha, 87), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 88), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 84), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 90).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 90)
                ListBox2.AddItem Format(.Cells(linha, 94), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 95), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 91), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 97).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 97)
                ListBox2.AddItem Format(.Cells(linha, 101), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 102), "hh:mm")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 98), "hh:mm")
            End If
            
            TextoCelula = .Cells(linha, 104).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                ListBox1.AddItem .Cells(linha, 104)
                ListBox2.AddItem Format(.Cells(linha, 108), "hh:mm")
                ListBox3.AddItem Format(.Cells(linha, 109), "HH:MM")
                ListBox4.AddItem .Cells(linha, 2)
                ListBox5.AddItem .Cells(linha, 4)
                ListBox6.AddItem Format(.Cells(linha, 105), "hh:mm")
            End If
            
           linha = linha + 1
        Wend
    End With
End Sub

Re: Formato Horas

Porto — Mon, 31 Mar 2014 10:42:55 +0000

Porto, não é exatamente um erro, já que o Excel "arquiva" data e hora como números. Se não "informar" ao txt ou listbox que determinado campo é data ou hora, então será mostrado o valor salvo. A exemplo da formatação para o txt, essa mesma atividade deverá ser efetuada ao carregar/lista os itens no listbox Seria algo como : seulistbox..ist(sualinhalistbox, suacolunalistbox)=format(Sheets(nomesuaplanilha).Cells(linhasuaplanilha, colunasuaplanilha),"hh:mm")

Reinaldo, Inseri esse código, mas não funcionou... pode ser que tenha colocado no lugar errado. A planilha que enviei no comentário acima já está com a linha que você sugeriu, inserida na linha 95 do Formulário "frmBusca".

Re: Formato Horas

Porto — Mon, 31 Mar 2014 10:37:27 +0000

Boa noite!!
Alguém tem allguma sugestão?
Eu tenho duas dicas. 1º Use a pesquisa do Fórum! 2º Poste seu arquivo modelo compactado! Att

1º Passei o fim de semana todo pesquisando na internet, inclusive no Fórum, mas não encontrei. Só postei a dúvida depois de tentar adaptar vários códigos que encontrei e não conseguir o resultado desejado. 2º Segue a planilha em anexo.

Projeto 1.xlsm

Grato pela atenção.

Re: Formato Horas

Fernando Fernandes — Mon, 31 Mar 2014 08:18:53 +0000

Porto, não é exatamente um erro, já que o Excel "arquiva" data e hora como números. Se não "informar" ao txt ou listbox que determinado campo é data ou hora, então será mostrado o valor salvo. A exemplo da formatação para o txt, essa mesma atividade deverá ser efetuada ao carregar/lista os itens no listbox Seria algo como : seulistbox..ist(sualinhalistbox, suacolunalistbox)=format(Sheets(nomesuaplanilha).Cells(linhasuaplanilha, colunasuaplanilha),"hh:mm")

Re: Formato Horas

Fernando Fernandes — Sun, 30 Mar 2014 20:59:44 +0000

Boa noite!!

Alguém tem allguma sugestão?

Eu tenho duas dicas. 1º Use a pesquisa do Fórum! 2º Poste seu arquivo modelo compactado! Att

Formato Horas

Porto — Sun, 30 Mar 2014 20:52:19 +0000

Boa noite, Estou tentando listar o resultado de uma busca em um banco de dados vba excel. Já procurei muito na net e não encontrei o que preciso. Seria o seguinte: 1- Montei um Form de cadastro de horas de trabalho de cada funcionario, o mesmo já faz o calculo das horas trabalhadas, e lança na planilha. 2- Montei um Form de busca de dados desse cadastro, esse busca o nome do funcionário, a data do trabalho e as horas trabalhadas (que já estão na planilha no formato "hh:mm:ss). O resultado de cada campo se dá em listbox independentes. O problema ocorre que quando abro o Form, a listbox "horas trabalhadas" retorna valores 0,270833333333 ao invés do formato de hora... Obs.: No Form de cadastro ocorreu o mesmo erro no txt de horas, consegui corrigi-lo usando o codigo "txtTHoras2.Text = Format(txtTHoras2.Text, "hh:mm")" Alguém tem allguma sugestão? Grato, Leandro Porto