OTRA PREGUNTA SOBRE HORAS

05/03/2004 - 12:22 por jjjgarcia1 | Informe spam
Hola a todos.


Tengo que introducir muchas horas en una hoja de calculo, y tengo que
poner los dos puntos. ¿Alguien sabe como introducir horas con el
teclado numerico, en formato hh.mm?. El problema es que cuando pulso
el punto del teclado numerico aparece coma, he intentado cambiar la
configuracion regional, y remplazar el separador decimal pero nada, no
me funciona.

Muchas gracias.
 

Leer las respuestas

#1 Cesar Zapata
05/03/2004 - 13:45 | Informe spam
Hola,

este es unos de los metodos para entra horas sin los dos puntos. para
ponerlos abre el VBA despues escoge la hoja donde estas trabajando y
pega este codigo.

en tu caso yo me supongo que tendrias que por ejemplo.

para que salga 5:00 AM typea 500 para que salga 2:00 PM entonces tipea
1400.

si tienes mas preguntas dejame saber.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String

On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Exit Sub
End If

If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Value = "" Then
Exit Sub
End If

Application.EnableEvents = False
With Target
If .HasFormula = False Then
Select Case Len(.Value)
Case 1 ' e.g., 1 = 00:01 AM
TimeStr = "00:0" & .Value
Case 2 ' e.g., 12 = 00:12 AM
TimeStr = "00:" & .Value
Case 3 ' e.g., 735 = 7:35 AM
TimeStr = Left(.Value, 1) & ":" & _
Right(.Value, 2)
Case 4 ' e.g., 1234 = 12:34
TimeStr = Left(.Value, 2) & ":" & _
Right(.Value, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
TimeStr = Left(.Value, 1) & ":" & _
Mid(.Value, 2, 2) & ":" & Right(.Value, 2)
Case 6 ' e.g., 123456 = 12:34:56
TimeStr = Left(.Value, 2) & ":" & _
Mid(.Value, 3, 2) & ":" & Right(.Value, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(TimeStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub

.



Mucho gusto,

Cesar Zapata
Arriba Peru

Mucho gusto,

Cesar Zapata
Arriba Peru


jjjgarcia1 wrote:
Hola a todos.


Tengo que introducir muchas horas en una hoja de calculo, y tengo que
poner los dos puntos. ¿Alguien sabe como introducir horas con el
teclado numerico, en formato hh.mm?. El problema es que cuando pulso
el punto del teclado numerico aparece coma, he intentado cambiar la
configuracion regional, y remplazar el separador decimal pero nada, no
me funciona.

Muchas gracias.

Preguntas similares