formato hora

22/01/2004 - 07:22 por adolfo | Informe spam
Tengo que teclear datos de tarbajos y tiempos, pero quisiera que al teclear
9999 me lo tome como 99:99 esto es , que se teclee seguido y presente horas
y minutos he conseguido que así sea pero luego los datos no se comportan
como horas y minutos si no como numeros en base 10.

Tecleo 1450 muestra 14:50 pero su valor es "1.450 mil cuatrocientos
cincuenta" su valor no es 14 horas 50 minutos.

Alguién conoce como hacerlo?

Gracias.

Adolfo.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
22/01/2004 - 08:44 | Informe spam
hola, adolfo !

... que al teclear 9999 me lo tome como 99:99 ... que se teclee seguido y presente horas y minutos
... he conseguido que asi sea pero luego los datos se comportan ... como numeros en base 10.
Tecleo 1450 muestra 14:50 pero su valor es "1.450 mil cuatrocientos cincuenta" ... no 14 horas 50 minutos.



usando macros, suponiendo que las celdas sean: 'A5:A10' la siguiente macro 'completara' la entrada en horas:
ejemplo: intruduces: 1450 y lo 'convierte' a 14:50 => TAMBIEN 'su valor' <nota: da un formato a las celdas con "[h]:mm"
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a5:a10")) Is Nothing Then Exit Sub
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target = Int(Target / 100) / 24 + (Target / 2400 - (Int(Target / 100) / 24)) / 0.6
Application.EnableEvents = True
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#2 adolfo
23/01/2004 - 05:45 | Informe spam
Muchas gracias funciona de maravilla.

Donde se puede conseguir un buen manual de macros?.

Saludos.

Adolfo.


usando macros, suponiendo que las celdas sean: 'A5:A10' la siguiente macro


'completara' la entrada en horas:
ejemplo: intruduces: 1450 y lo 'convierte' a 14:50 => TAMBIEN 'su valor'


<> nota: da un formato a las celdas con "[h]:mm"
en el modulo de codigo de 'la hoja' ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a5:a10")) Is Nothing Then Exit Sub
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target = Int(Target / 100) / 24 + (Target / 2400 - (Int(Target / 100) /


24)) / 0.6
Application.EnableEvents = True
End Sub

saludos,
hector.


Respuesta Responder a este mensaje
#3 Héctor Miguel
23/01/2004 - 06:21 | Informe spam
hola, adolfo !

Muchas gracias funciona de maravilla.



gracias por el 'feed-back' ;)

Donde se puede conseguir un buen manual de macros?.



¿un 'buen' manual de macros? ... 'depende' de 'que estas buscando' y de la 'forma como se expone' en cada uno.
[creo que] podrias empezar por la siguiente direccion: http://www.mvps.org/dmcritchie/excel/excel.htm
[encontraras enlaces a una infinidad de sitios utiles; ejemplos, funciones, graficas, tutoriales, codigo, etc.]
con un poco de tiempo te iras enterando de otra 'infinidad' de sitios 'alternos'. ;)

saludos,
hector.
Respuesta Responder a este mensaje
#4 adolfo
23/01/2004 - 23:36 | Informe spam
Gracias de nuevo.

Adolfo.




¿un 'buen' manual de macros? ... 'depende' de 'que estas buscando' y de la


'forma como se expone' en cada uno.
[creo que] podrias empezar por la siguiente direccion:


http://www.mvps.org/dmcritchie/excel/excel.htm
[encontraras enlaces a una infinidad de sitios utiles; ejemplos,


funciones, graficas, tutoriales, codigo, etc.]
con un poco de tiempo te iras enterando de otra 'infinidad' de sitios


'alternos'. ;)

saludos,
hector.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida