Formatar Listbox Excel VBA para HORA

แชร์
ฝัง
  • เผยแพร่เมื่อ 23 ม.ค. 2025

ความคิดเห็น • 34

  • @bocanegrabr
    @bocanegrabr 3 ปีที่แล้ว +1

    Obrigado pela dica professor.

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว +1

      De nada.

  • @igorpenteado1043
    @igorpenteado1043 4 ปีที่แล้ว +1

    Obrigado pela dica professor esta se matando para resolver isso, agradeço ter reservado um tempo para solucionar minha dúvida

  • @istalinbezerradecarvalho7169
    @istalinbezerradecarvalho7169 4 ปีที่แล้ว +1

    Bom dia professor boa dica

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, obrigado, sucesso em seus estudos.

  • @andreoak_l_l_
    @andreoak_l_l_ 3 ปีที่แล้ว

    Bom vídeo, tem algum onde no exemplo abaixo eu consiga o valor da hora em decimal:
    Hi Hf Ht Decimal
    07:00 07:10 00:10 0,17
    Essas dados estão em u UseForm, onde Ht e Decimal são calculados via código no AfterUpdate do Hf, o Decimal que não estou encontrando uma forma de converter.
    Esse seria dados que serão depois lançados numa planilha por esse UseForm.
    Tem algum código que faça a conversão ?

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว +1

      Boa tarde, para transformar em minutos no caso, já que deu valor inferior a uma hora, multiplique o valor decimal por 60.

    • @andreoak_l_l_
      @andreoak_l_l_ 3 ปีที่แล้ว

      @@CanalSGP Com 60 não deu certo, funcionou depois de simular no Excel fazendo multiplicado por 24, conforme abaixo.
      decimo = (CDate(txt_hf_HP) * 24) - (CDate(txt_hi_HP) * 24)
      Lbl_HPdecimal = FormatNumber((decimo), 2)
      Assim deu certo.

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, que bom que conseguiu.

  • @edson11nunes
    @edson11nunes 9 หลายเดือนก่อน

    Bom dia parabéns ótima aula!!! Fiz o comando e funcionou muito bem, mas quando faço o filtro de pesquisa pelo código a formatação da hora some, como resolver?

    • @CanalSGP
      @CanalSGP  9 หลายเดือนก่อน +1

      Bom dia, obrigado, dependente do código que está utilizando para carregar a hora, pode trocar de .value para .text

  • @AnnecioSilva
    @AnnecioSilva 2 ปีที่แล้ว

    Como faço pra carregar dados da coluna hora acima de 24 horas,

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Boa tarde, se não estiver utilizando array para carregar os dados, na linha de código referente a informação da hora, altere de .value para .text

  • @lucianomartins1893
    @lucianomartins1893 2 ปีที่แล้ว

    Olá, minha listbox está transformando os dados de horas em formato data. estou puxando os dados do Access, acho que o problema é essa macro, mas não sei como tratar o erro, o procedimento do vídeo nao resolveu... poderia me ajudar?

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Bom dia, se não for erro relacionado a formato pode ser que esteja puxando os dados errados, verifique se não tem colunas com células vazias no Access, isso pode alterar as posições.

    • @lucianomartins1893
      @lucianomartins1893 2 ปีที่แล้ว

      @@CanalSGP no Access quando eu escolho formato texto curto para a hora, a listbox exibe a hora corretamente, mas quando eu deixo no formato Data/hora não exibe certo... Problema que eu queria fazer os cálculos do tempo gasto no acess e nao consigo assim

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Bom dia, de momento não tenho ideia de como corrigir, única opção seria pela formatação.

  • @mariaeduardasantos2198
    @mariaeduardasantos2198 4 ปีที่แล้ว +1

    Bom Dia!! Como você carregou mais de 10 colunas no listbox?

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, segue link da vídeo aula:
      th-cam.com/video/t7oJalCmgsw/w-d-xo.html

  • @WordInCode
    @WordInCode 4 ปีที่แล้ว

    Olá professor, estou aprendendo muito com seu canal. Falando especificamente deste vídeo, ao carregar a listbox, funciona show de bola, porem quando se faz o filtro, ele perde a formatação. alguma dica de como aplicar a formatação para ao filtrar não se perca a mesma? Na verdade, a formatação se perde ao clicar no botão LIMPAR. Também gostaria de saber se tem alguma forma de fazer alinhamento das colunas do listbox, tipo, coluna 1 alinhada a esquerda, coluna 2 alinhada a direita e assim por diante? Abraços e obrigado

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Boa tarde, ao filtrar precisa repetir o código de formatação novamente, sobre posicionamento, o que pode fazer é alterar a propriedade Textalign, mas é sobre todas as colunas.

  • @igorpenteado1043
    @igorpenteado1043 4 ปีที่แล้ว

    Uma duvida quando eu limpo a listbox e tento pesquisar de novo, ela esta dando erro ao carregar novamente

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.

    • @cleytonalves5895
      @cleytonalves5895 4 ปีที่แล้ว

      Estou com a mesma duvida tem como enviar a sua planilha pra mim ver aonde estou errando.

    • @cleytonalves5895
      @cleytonalves5895 4 ปีที่แล้ว

      Meu email cleytonalves3000@gmail .com

  • @franciscozeballoszopilote
    @franciscozeballoszopilote ปีที่แล้ว

    Muy bueno..salio perfecto..el problema es cuando busco algun dato..me devuelve numeros otra vez, ayuda ppr favor

    • @CanalSGP
      @CanalSGP  ปีที่แล้ว +1

      Bom dia, depois de buscar precisa repetir o código para formatar.

    • @franciscozeballoszopilote
      @franciscozeballoszopilote ปีที่แล้ว +1

      @@CanalSGP muchas gracias profesor..muy amable

  • @jorgebustamante4993
    @jorgebustamante4993 2 ปีที่แล้ว

    Profesor seria genial q la explicación sea en español ya q los ecuatorianos no le entendemos muy bien la explicación

    • @CanalSGP
      @CanalSGP  2 ปีที่แล้ว

      Bom dia, infelizmente não tenho domínio suficiente de espanhol para isso.

  • @bocanegrabr
    @bocanegrabr 3 ปีที่แล้ว

    olha eu de novo... eu usei aquele código que vc ensinou para filtra mas eu tentei usar em horas e não funciona está apagando ListBox2 todo
    Private Sub FiltroAulas_Click()
    If ListBox2 < 1 Then
    Call Carregar_Listbox
    End If
    Dim test As Double
    For Item = 1 To ListBox2.ListCount - 1
    If horas "" Then
    On Error Resume Next
    If ListBox2.List(Item, 10) = horas.text Then
    Else
    ListBox2.RemoveItem (Item)
    Item = Item - 1
    ListBox2 = Null
    End If
    End If
    Next
    End Sub

    • @CanalSGP
      @CanalSGP  3 ปีที่แล้ว

      Bom dia, não sei se vai dar certo, porque é muito fracionado.

  • @igorpenteado1043
    @igorpenteado1043 4 ปีที่แล้ว

    O erro que da é: "Não foi possível definir a propriedade value. Valor de propriedade inválido".

    • @CanalSGP
      @CanalSGP  4 ปีที่แล้ว

      Bom dia, deixe seu e-mail que envio a planilha para que possa comparar.