Hola Maku.
Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁
Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo
Por
DiegoPC, · publicado
hola que tal no se como poder poner un listbox con barra de dezplamiento horizontal
¿alguna sugerencia?
este es mi codigo que no funciona
Private Sub Lst_nombres_Click()
Call DisplayHScroll
End Sub
Private Sub DisplayHScroll()
' Make no partial items are displayed vertically.
Me.Lst_nombres.IntegralHeight = True
Dim x As Integer
' Add items that are wide to the ListBox.
For x = 0 To 10
Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " is a very large value that requires scroll bars")
Next x
' Display a horizontal scroll bar.
Me.Lst_nombres.HorizontalScrollbar = True
' Create a Graphics object to use when determining the size of the largest item in the ListBox.
Dim g As System.Drawing.Graphics
g = Lst_nombres.CreateGraphics()
' Determine the size for HorizontalExtent using the MeasureString method using the last item in the list.
Dim hzSize As Integer
g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width
' Set the HorizontalExtent property.
Me.Lst_nombres.HorizontalExtent = hzSize
End Sub