Red de conocimiento informático - Aprendizaje de programación - Cómo ingresar la hora en EXCEL

Cómo ingresar la hora en EXCEL

****Aprendamos juntos

Yo también lo sé

Información:

Todos sabemos que ingresar la hora en Excel requiere dos puntos si hay. Una gran cantidad de valores de tiempo están esperando la entrada. Estos dos puntos retrasarán mucho tiempo y facilitarán los errores de entrada.

¿Existe alguna buena manera de resolver este problema? ¡Usando VBA nítido anidado en Excel, por supuesto! A continuación se muestran todos los códigos fuente, siempre que siga mis instrucciones paso a paso, incluso si no sabe nada sobre estos códigos, aún puede seguirlos y darse cuenta rápidamente del efecto de ingresar valores de tiempo en Excel sin ingresar. dos puntos !

1. Inicie Excel, abra el libro que requiere ingresar una gran cantidad de valores de tiempo y luego presione Alt-F11 para iniciar el editor VBA.

2. Seleccione el comando de menú "Insertar"-"Agregar módulo". En este momento, en la ventana "Proyecto" en la parte superior izquierda de la pantalla, aparecerá un subdirectorio "Módulo". En el lado derecho se muestra el módulo "Módulo1" que acaba de agregar. Puede cambiarle el nombre a "Módulo1". " . Puedes cambiarle el nombre a algo que te guste, como "fasttime".

3. Haga doble clic en el módulo "fasttime" (si se ha cambiado el nombre del módulo) e ingrese el siguiente código en el editor de código de la derecha (o cópielo de mi libro de trabajo de muestra). >Si se produce un error, saltará a la instrucción EnterTimeError

Si Intersect(Application.If Intersect(Application.Caller, Range("fasttime")) no es nada, entonces

Salir Sub ' Finaliza el programa si se cambia una celda que no está en el rango "fasttime"

End If

'Si el valor de entrada es menor que 1 o mayor que 2400, muestra un cuadro de diálogo donde el valor ingresado por el usuario es ilegal

Si Application.Caller lt; o Application.

MsgBox "¡Lo siento, su valor ingresado es ilegal!" p >

MsgBox, vbExclamation

Application.Caller.Value = ""

Salir de Sub

End If

'\ Cambie el valor de entrada al formato HH:MM

Application.Caller.Value = Format(Application.Caller, "00:00")

Salir de Sub

EnterError :

Exit Sub

End Sub

4. Nombra el área de la celda donde se ingresa una gran cantidad de valores de tiempo como "fasttime". El método de denominación es ingresar primero los valores de tiempo requeridos. Ennegrecer el área de la celda nombrada, luego seleccionar el comando del menú de Excel "Insertar" - "Nombrar" - "Definir", ingresar "fasttime" en la columna "Nombre en el libro actual". y finalmente presione Aceptar.

¡Bien, listo! Ahora vaya al campo "fasttime" e ingrese el valor de tiempo que desea probar, ¡sin los dos puntos! Tenga en cuenta que el valor ingresado debe estar entre 1 y 2400; de lo contrario, se considerará un valor ilegal. Por ejemplo, si necesita ingresar un valor de hora como 9:20 a. m., solo necesita ingresar un número como 0920, y Excel lo mostrará como "09:20 a. m." en la celda si necesita ingresar una hora; valor de 11:15 pm Para dividir dicho valor de tiempo, solo necesita ingresar un número como 2315, y Excel lo mostrará como "11:15 pm" en la celda. ¿No es muy conveniente?