Saltar al contenido

Bitácora y reloj digital

Featured Replies

publicado

Hola el adjunto del reloj esta vació, si quieres un reloj en una celda pon esto en un modulo:

Sub Reloj()
Range("A1").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub[/CODE]

Y esto en ThisWorkbook

[CODE]Private Sub Workbook_Open()
call Reloj
End Sub
[/CODE]

La hora la mostrara en la celda "A1", debes cambiar el formato de la celda para que solo muestre la hora y no la fecha tambien.

Salu2

publicado
  • Autor

El reloj digital LED, que tengo está elaborado en base a un gráfico de dispersión XY.

(Las Fórmulas de dispersión deben aparecer en una tercera Hoja de la Bitácora)

• Hay una serie de líneas para cada dígito en su estado encendido y apagado.

•El código VBA se actualiza los valores de tiempo.

• Las posiciones de las líneas xy se realizan usando la fórmula dentro de las células

Nota: Me gusta la apariencia de este Rerloj, y quisiera que se insertara en mi Bitácora en celda M10

Reloj LED.xlsFetching info...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.