Jump to content

La hora me sale en decimales en el desplegable del combobox


Recommended Posts

Lo primero que te recomendaría es que te acostumbraras a trabajar con los mismos formatos en los datos y en los formularios.

Lo primero que veo que me llama la atención y es una de las causas de tus problemas es que en las celdas AM3:AM19 las horas los valores de las horas las tienes introducidas en formato numérico, y  al dar formato de celda a Hora Perú tu lo ves como hh/mm/ss a. m./p. m. incluidos espacios y puntos en am y pm.

Lo que hace el listbox al seleccionar es tomar el valor REAL de la celda, que en este caso será un valor numérico (puedes verlo si cambias el formato de celdas a General).

Para el ListBox el valor que vale es el numérico, no el adaptado por el formato de celda.

Lo que puedes hacer es introducir como primera línea en el list box lo siguiente:

Private Sub cmb_Hora_Change()
Me.cmb_Hora.Value = Format(Me.cmb_Hora.Value, "hh:mm:ss am/pm")
End Sub

De este modo se saldrá como hora de 1 a 12 y am/pm, aunque sin espacio ni puntos.

No he conseguido que lo haga automatico el poner el punto y el espacio.

De todos modos, si das formato de celdas en como TEXTO y escribes las horas formateadas a tu modo, no tienes que hacer nada en tus instrucciones.

Te envío los dos ejemplos. En el (1) modifico la macro y en el (2) modifico los datos de las celdas

BASE DE DATOS GESTION HUMANA (SERTOCON24)(1).xlsm BASE DE DATOS GESTION HUMANA (SERTOCON24)(2).xlsm

Link to post
Share on other sites
Hace 8 horas, Antoni dijo:

En el evento change del combo hora:


Private Sub cmb_Hora_Change()
cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm")
End Sub

 

Prueba así:

Private Sub cmb_Hora_Change()
If cmb_Hora.ListIndex > -1 Then cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm")
End Sub

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy