Formato de porcentaje en una columna de listbox
Tengo un problema tengo un listbox alimentado por una hoja de excel el problema es que necesito que la ultima columna (5) me refleje los datos en formato de porcentate ( ejm 2%, 0.05%, 2.50%) pero no me sale 0.5,0.05 por favor necesito su ayuda este es el código. Gracias
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.List = Range("a2: E5").SpecialCells(xlCellTypeVisible).Value
End Sub
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Para mostrar el formato se tiene que hace la carga de otra forma:
Private Sub UserForm_Initialize()
'Por.Dante Amor
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem Cells(i, "A")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, "B")
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(i, "C")
ListBox1.List(ListBox1.ListCount - 1, 3) = Cells(i, "D")
ListBox1.List(ListBox1.ListCount - 1, 4) = Format(Cells(i, "E"), "0.00%")
Next
End Sub
