none
Formatar coluna para hora e moeda RRS feed

  • Pergunta

  • Olá, tenho duas colunas na minha list box, uma de horas e outra de R$, POREM NÃO CONSIGO FORMATA-LAS para aparecer a formatação correta na listbox. Vou mandar o código que insere as informações na listbox. por favor me ajudem...
    Private Sub UserForm_Initialize()
        Me.LstPesquisar.ControlTipText = "Para deletar o item selecionado de um duplo clique"
    
        Dim linha As Integer
        Dim Coluna As Integer
        Dim My_List()
         
        With Plan1
        'A Declaração RedDim e usada para dimensionar ou redimensionar uma matrix dinâmica que já foi declarada por usar um instrução
        'Private, Public ou Dim parenteses vazio (sem subinscrito de dimensão)
        
        linha = 5
        ReDim My_List(5 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
        Me.LstPesquisar.ColumnCount = .UsedRange.Columns.Count
        For linha = 5 To .UsedRange.Rows.Count
        Me.LstPesquisar.AddItem
        For Coluna = 1 To .UsedRange.Columns.Count
        My_List(linha, Coluna) = .Cells(linha, Coluna).Value
        Next Coluna
        Next linha
        Me.LstPesquisar.List = My_List
        Me.txtPesquisar.SetFocus
    End With
    End Sub

    quinta-feira, 5 de dezembro de 2019 14:42

Todas as Respostas

  • Tente assim:

    For linha = 5 To .UsedRange.Rows.Count
                Me.LstPesquisar.AddItem()
                For Coluna = 1 To .UsedRange.Columns.Count
                    If IsDate(.Cells(linha, Coluna).Value.ToString()) Then
                        My_List(linha, Coluna) = Format(CType(.Cells(linha, Coluna).Value.ToString(), Date), "HH:mm")
                    Else
                        My_List(linha, Coluna) = Format(CType(.Cells(linha, Coluna).Value.ToString(), Date), "R$ #,###.00")
                    End If


                Next Coluna
            Next linha


    MARIANO1776

    domingo, 15 de dezembro de 2019 16:12
  • Conseguiu?

    MARIANO1776

    sexta-feira, 27 de dezembro de 2019 00:58