Traducir el blog

Mostrando entradas con la etiqueta burbujas. Mostrar todas las entradas
Mostrando entradas con la etiqueta burbujas. Mostrar todas las entradas

Relojes de 24 horas y de 12 horas AM/PM

🔝To translate this blog post to your language, select it in the top left Google box.


Cómo aprender a usar relojes de 24 horas

He visto que quienes vienen de países con relojes que marcan la hora en formato de 12 horas con AM/PM tienen dificultad para aprender a usar relojes de 24 horas.

En países como Colombia se dice: la una de la tarde en lugar de las 13 horas, pues no están acostumbrados a relojes de 24 horas.

Con estos dos relojes se aprende a distinguir el formato de 12 horas AM/PM del formato de 24 horas.

El reloj de la izquierda marca la una y 18 minutos en formato PM (después del mediodía).

El reloj de la derecha marca las 13:18 horas en formato de 24 horas.

TRUCO: Para convertir cualquier hora PM en 24 horas, se suman 12 horas. Por ejemplo, 01:18 PM se convierte en 13:18 horas. Si es 01:18 AM no se suma nada, por lo que es 01:18 horas.


Vídeo para saber la hora

En este vídeo de unos dos minutos explico cómo saber la hora en los relojes de 12 horas y de 24 horas.


Pruébalo ahora mismo en tu teléfono

Prueba en tu teléfono estos dos relojes analógicos, de 24 horas y de 12 horas con AM/PM, desde esta ventana en la nube de Microsoft OneDrive:

ATENCIÓN: Para hacer zoom, coloca dos dedos sobre la pantalla del teléfono y muévelos, igual que cuando amplías o reduces una foto.

En la barra de abajo hay varios iconos:

Botón para actualizar los relojes: Actualizar todas las conexiones de datos

Botón para descargar el archivo: Descargar

Botón para: Información acerca de este libro. Aparece un Código para insertar que no funciona desde hace meses. Está denunciado a Microsoft, pero no da solución.

Ayúdame a compartir los relojes, insertando el siguiente código en tu blog o página web:


Pruébalo ahora mismo en tu PC

Prueba en tu PC estos dos relojes analógicos, de 24 horas y de 12 horas con AM/PM, sin necesidad de descargar nada, incluso sin tener instalado Excel, desde esta ventana en la nube de Microsoft OneDrive:

Para ajustar el zoom en la nube:

  • En el PC sitúa el cursor dentro del buscador y presiona la tecla <Control> girando la ruleta del ratón.

Descarga el archivo haciendo clic en el botón: Descargar

Si quieres ayudarme puedes compartir el nuevo reloj analógico, insertándolo en tu blog o página web con este código:

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Dime si te ha sido útil saber usar los dos tipos de reloj.

Reloj analógico en tiempo real

🔝To translate this blog post to your language, select it in the top left Google box.


Un reloj analógico en tiempo real

En el artículo anterior publiqué un reloj analógico que mostraba manualmente la hora actual, presionando la tecla para calcular el libro, ya que no era automático por no contener macros:

Tenía la ventaja de poder usarlo en Excel para la Web y de insertarlo en el blog, por si alguien quería probarlo sin tener instalado Excel.

Ahora publico un reloj analógico en tiempo real, que automáticamente mueve la aguja de los segundos cada segundo, gracias a las macros VBA.

NOTA: Haga clic en el reloj analógico para iniciar o detener el temporizador de un segundo.


ACTUALIZACIÓN v1.12: Descarga la última actualización para elegir el tipo de reloj con un desplegable en la celda D6:

  • 12 Horas: De 1 a 12 horas.
  • 24 Horas: De 12 a 23 horas si la hora es después del mediodía. Si es antes del mediodía se comporta como el reloj de 12 Horas.
  • AM/PM: De 1 a 12 horas, indicando AM o PM si la hora es antes o después del mediodía, respectivamente.

Con la última actualización el tipo de reloj que se muestra ya no está determinado por la configuración regional del sistema operativo, sino que depende de la elección del usuario.

También he añadido eventos de la hoja para cambiar automáticamente el valor del tipo de reloj en la celda D6 cuando el usuario cambia el idioma del reloj.

Además he añadido un microbenchmark, que escribe en la ventana Inmediato del editor VBA (denominada también ventana Ejecución) cuando el reloj se salta algún segundo, debido a que el recálculo tarda más de un segundo, o a que Excel o el sistema están ocupados en otras tareas y no responden en un segundo.


Descarga el reloj analógico en tiempo real

Descarga el reloj analógico en tiempo real v1.12 desde este enlace:

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las macros no están protegidas para poder analizar fácilmente el código VBA. Las hojas están protegidas sin contraseña, para poder analizarlas y para evitar que los usuarios alteren las fórmulas.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0


Características del reloj analógico en tiempo real

ACTUALIZACIÓN v1.12: He ajustado el comportamiento del módulo con la ayuda de la IA de Microsoft, llevando a cabo pruebas y corrección de errores en 12 iteraciones del desarrollo del código del módulo VBA.

¡Realmente me lo he pasado "pipa" interactuando con la IA de Microsoft Copilot, intentando resolver los intríngulis del código!

Este es el resultado de la última revisión del módulo:

A continuación explicaré cuáles son las principales características del reloj analógico en tiempo real.



Módulo del temporizador API

Este módulo implementa un temporizador de alta precisión en Excel usando las funciones de Windows SetTimer y KillTimer.

Está diseñado para funcionar en 32 y 64 bits, sincronizarse exactamente con el reloj del sistema y actualizar el rango nombrado "miHora" cada segundo sin bloquear Excel.


🧩 1. Compatibilidad total 32/64 bits

Incluye declaraciones API con #If VBA7 Then para:

  • SetTimer
  • KillTimer

Esto garantiza compatibilidad con:

  • Excel 2010 (32/64 bits)
  • Excel 2013 → Excel para Microsoft 365
  • Windows 7 → Windows 11

⏱️ 2. Temporizador real basado en Windows (no OnTime)

A diferencia de Application.OnTime, este temporizador:

  • No se retrasa cuando Excel está ocupado
  • No se acumula
  • No depende del motor de Excel
  • No se rompe al cerrar libros
  • Tiene precisión de milisegundos

Usa:

TimerID = SetTimer(0, 0, intervalo_ms, AddressOf Tick)

🎯 3. Sincronización exacta con el segundo del sistema

El módulo calcula cuántos milisegundos faltan para el próximo segundo exacto:

msRestantes = 1000 - (CLng(Timer * 1000) Mod 1000)
If msRestantes = 1000 Then msRestantes = 0

Esto permite:

  • Primer tick comienza exactamente en 0 ms, no en un punto arbitrario
  • Ticks posteriores cada 1000 ms exactos
  • Evitar desvíos acumulados

🔄 4. Crea el temporizador API

RelojTimerID = SetTimer(0, 0, msRestantes, AddressOf Tick)

El primer tick ocurre justo al inicio del siguiente segundo.


🧱 5. Protección contra errores (incluido el 50290)

El procedimiento Tick incluye:

On Error GoTo SalirTick

Esto evita que:

  • Excel detenga el temporizador si está ocupado
  • Se produzcan errores al cerrar libros
  • El temporizador quede “colgado”

🖱️ 6. Cursor dinámico de reloj

Al iniciar:

Application.Cursor = xlWait

Al detener:

Application.Cursor = xlDefault

Esto da feedback visual claro al usuario.


🛑 7. Inicio/parada conmutado

El módulo incluye un interruptor:

Sub IniciarDetenerReloj()

que alterna entre:

  • IniciarReloj
  • DetenerReloj

Ideal para botones o accesos rápidos.


🧹 8. Limpieza segura del temporizador

Al detener:

KillTimer 0, TimerID

Esto garantiza:

  • No quedan temporizadores huérfanos
  • No se ejecutan ticks después de cerrar el libro
  • No se producen cierres inesperados de Excel

📌 9. No bloquea Excel

El temporizador API:

  • No usa bucles
  • No usa DoEvents
  • No congela la interfaz
  • Permite trabajar en otros libros sin interferencias

🎁 Resumen del Temporizador API

Temporizador API de alta precisión para Excel, compatible con 32/64 bits, sincronizado al segundo del sistema, con actualización inteligente, cursor dinámico, protección contra errores y control seguro de inicio/parada. No bloquea Excel y mantiene estabilidad incluso con múltiples libros abiertos.



Explicación técnica del módulo ModTempo

A continuación explico técnicamente el módulo ModTempo, desarrollado con la ayuda de la IA.

La estructura sigue el flujo real del código y explica qué hace, por qué lo hace, y cómo interactúan entre sí las partes críticas: API Win32, temporizador, corrección de (drift correction), modo híbrido y escritura inteligente.


Módulo Temporizador

ModTempo implementa un reloj de alta precisión dentro de Excel usando:

  • Temporizador API de Windows (SetTimer)
  • Corrección de deriva (drift correction)
  • Modo híbrido:
    • Actualiza la celda solo si Excel está activo y visible
    • Ahorra CPU cuando Excel está en segundo plano
  • Milisegundos reales mediante Now()
  • Escritura inteligente: solo escribe si el valor cambia
  • Sin interferir con cálculos ni edición

El resultado es un reloj estable, eficiente y preciso, superior a cualquier implementación basada en Application.OnTime.


🧩 Declaraciones API

El módulo declara cuatro funciones de la API de Windows:

1) SetTimer

Crea un temporizador que ejecuta un procedimiento (callback) cada X milisegundos.

  • hWnd = 0 → temporizador asociado al proceso, no a una ventana
  • nIDEvent = 0 → Windows asigna un ID automáticamente
  • uElapse → intervalo en milisegundos
  • lpTimerFunc → dirección del procedimiento Tick

Devuelve un ID de temporizador, que se guarda en RelojTimerID.

2) KillTimer

Detiene el temporizador usando su ID.

3) IsWindowVisible

Comprueba si la ventana de Excel está visible (no minimizada).

4) GetForegroundWindow

Devuelve el handle de la ventana que tiene el foco.


🧩 Variables locales

Private RelojCorriendo As Boolean
Private RelojTimerID As LongPtr
Private TickUltimo As Double
Private contadorTicks As Long
Private contadorSaltos As Long
  • RelojCorriendo: estado ON/OFF del reloj.
  • RelojTimerID: ID del temporizador API (obligatorio LongPtr en 64 bits).
  • TickUltimo: marca de tiempo del último tick para medir drift.
  • contadorTicks: contador de ticks del reloj.
  • contadorSaltos: contador de saltos del microbenchmark.

Son Private porque solo deben ser accesibles dentro del módulo.


🧩 IniciarDetenerReloj

Alterna el estado del reloj:

  • Si estaba apagado → lo inicia
  • Si estaba encendido → lo detiene

Es un interruptor simple para el usuario.


🧩 IniciarReloj

Este procedimiento:

1) Cambia el cursor a reloj de arena
Application.Cursor = xlWait

Indica visualmente que el reloj está en marcha.

2) Marca el reloj como activo
RelojCorriendo = True
3) Guarda el tiempo actual
TickUltimo = Timer
4) Sincroniza el primer tick con el siguiente segundo exacto
msRestantes = 1000 - (CLng(Timer * 1000) Mod 1000)
If msRestantes = 1000 Then msRestantes = 0

Esto garantiza que el reloj empiece exactamente en 0 milisegundos, no en un punto arbitrario.

5) Crea el temporizador API
RelojTimerID = SetTimer(0, 0, msRestantes, AddressOf Tick)

El primer tick ocurre justo al inicio del siguiente segundo.


🧩 DetenerReloj

  • Marca el reloj como detenido
  • RelojCorriendo = False
    
  • Mata el temporizador API
  • If RelojTimerID <> 0 Then KillTimer 0, RelojTimerID
        RelojTimerID = 0
    
  • Restaura el cursor
  • Application.Cursor = xlDefault
    

Evita fugas de temporizadores y el cursor indica que el reloj se ha detenido.


🧩 Tick — el corazón del reloj

Este procedimiento se ejecuta cada segundo (o antes, si hay corrección de deriva - drift correction).

0) Evita error 50290 cuando Excel está ocupado
On Error GoTo SalirTick
1) Protección contra cálculos
If Application.CalculationState <> xlDone Then GoTo SalirTick

Evita interferir con cálculos pesados.

2) Determina si Excel está activo
ExcelActivo = (GetForegroundWindow() = hWndExcel) _
              And (IsWindowVisible(hWndExcel) <> 0)

Esto implementa el modo híbrido:

  • Si Excel está activo → modo precisión
  • Si Excel está en segundo plano → modo ahorro
3) Si Excel no está activo → no escribir
If Not ExcelActivo Then GoTo SalirTick

Evita repintados innecesarios.

4) Si la hoja no está visible → no escribir
If Not ActiveSheet.Visible Then GoTo SalirTick

Evita trabajo inútil. Es el modo ahorro para no gastar la batería de los portátiles.

5) Corrección de deriva (drift correction)
tNow = Timer
delta = tNow - TickUltimo
If delta < 0 Then delta = delta + 86400#
6) Si el temporizador se desvía más de ±50 ms, corregir
If Abs(delta - 1#) > 0.05 Then
    KillTimer 0, RelojTimerID
    RelojTimerID = SetTimer(0, 0, 1000, AddressOf Tick)
End If

Esto reancla el temporizador al segundo real del sistema.

7) Una sola lectura del reloj del sistema
vHora = Now()

Excel soporta milisegundos en formato personalizado.

8) Escritura inteligente del cambio de hora
If celda.Value2 <> vHora Then

Solo escribe si el valor cambia → evita repintados.

9) Si Excel no está listo se salta el tick
If Not Application.Ready Then GoTo Registrar

Y registra el resultado del microbenchmark.

10) Medir bloque de escritura
tBloque = Timer

Mide el bloque de escritura de la hora para registrarlo en el microbenchmark.

11) Escritura optimizada del día y la hora del sistema
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
celda.Value2 = vHora
escribeHora = True
Application.ScreenUpdating = True
Application.EnableEvents = True
On Error GoTo 0
tBloque = Timer - tBloque

Evita parpadeos y eventos innecesarios.


🧩 Comportamiento final del módulo

  1. Se sincroniza con el siguiente segundo exacto.
  2. Cada tick:
    • Evita error 50290 cuando Excel está ocupado
    • Comprueba si Excel está calculando
    • Comprueba si Excel está activo
    • Comprueba si la hoja está visible
    • Mide la deriva (drift calculation) y corrige si es necesario
    • Lee la hora en milisegundos
    • Escribe solo si cambia el valor
    • Con microbenchmark que registra saltos de segundos

El módulo ModTempo consigue:

  • Sincronización exacta con el segundo real
  • Milisegundos reales en cada actualización
  • Corrección automática de deriva (drift correction)
  • Ahorro de energía cuando Excel está en segundo plano
  • Cero parpadeos
  • Cero interferencias con cálculos
  • Cero repintados innecesarios
  • Compatibilidad total con 32 y 64 bits

Es un reloj de precisión profesional dentro de Excel:

  • Preciso
  • Eficiente
  • Estable
  • Sin jitter
  • Sin parpadeos
  • Sin interferir con Excel



🧩DIAGRAMA DE FLUJO—ModTempo


                           ┌──────────────────────────┐
                           │ IniciarDetenerReloj()    │
                           └──────────────┬───────────┘
                                          │
             ¿RelojCorriendo = False? ────┤
                                          │Sí
                                          ▼
                               ┌────────────────────┐
                               │ IniciarReloj()     │
                               └───────┬────────────┘
                                       │
                                       ▼
                         ┌──────────────────────────────┐
                         │ Cursor = xlWait              │
                         │ RelojCorriendo = True        │
                         │ TickUltimo = Timer           │
                         └───────────┬──────────────────┘
                                     │
                                     ▼
                     ┌────────────────────────────────────────┐
                     │ Calcular msRestantes hasta el próximo  │
                     │ segundo exacto                         │
                     └───────────────┬────────────────────────┘
                                     │
                                     ▼
                     ┌────────────────────────────────────────┐
                     │ SetTimer( intervalo = msRestantes )    │
                     │ → llama a Tick()                       │
                     └────────────────────────────────────────┘


──────────────────────────────────────────────────────────────────────────────
                           TICK() — Cada disparo del temporizador
──────────────────────────────────────────────────────────────────────────────

                     ┌────────────────────────────────────────┐
                     │ Tick()                                 │
                     └───────────┬────────────────────────────┘
                                 │
   ¿Error si Excel ocupado? ─────┤
                                 │No
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ Continua si Excel no está calculando,  │
                     │ si está activo y si la hoja es visible │
                     └───────────┬────────────────────────────┘
                                 │Sí
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ Mide la deriva del temporizador        │
                     │ KillTimer (primer timer)               │
                     │ SetTimer( intervalo = 1000 ms )        │
                     │ (sincronizado al segundo exacto)       │
                     └───────────┬────────────────────────────┘
                                 │
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ Lee día y hora: vHora = Now()          │
                     └───────────┬────────────────────────────┘
                                 │
           ¿Cambió la hora? ─────┤
                                 │Sí
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ ¿Excel está listo?                     │
                     └───────────┬────────────────────────────┘
                                 │Sí
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ Deshabilita eventos y refresco pantalla│
                     │ Range("miHora") = vHora                │
                     │ Habilita eventos y refresco pantalla   │
                     └────────────────────────────────────────┘
                                 │
                                 ▼
                     ┌────────────────────────────────────────┐
                     │ Fin Tick()                             │
                     └────────────────────────────────────────┘


──────────────────────────────────────────────────────────────────────────────
                           STOP — Detener temporizador
──────────────────────────────────────────────────────────────────────────────

                           ┌──────────────────────────┐
                           │ DetenerReloj()           │
                           └──────────────┬───────────┘
                                          │
                                          ▼
                           ┌──────────────────────────┐
                           │ RelojCorriendo = False   │
                           │ KillTimer TimerID        │
                           │ Cursor = xlDefault       │
                           └──────────────────────────┘

🎯 Qué representa este diagrama

  • El flujo desde que el usuario inicia el temporizador hasta que lo detiene.
  • La sincronización exacta al segundo del sistema.
  • El comportamiento del primer tick (sincronización) y los siguientes (intervalo fijo).
  • La actualización inteligente de miHora.
  • La gestión del cursor de reloj.
  • La detención limpia del temporizador API.


Explicación técnica de los eventos del reloj

Eventos en ThisWorkbook

Este módulo conecta el ciclo de vida del libro con el temporizador API, de modo que el temporizador:

  • se inicia automáticamente cuando se abre el libro
  • se detiene automáticamente cuando el libro intenta cerrarse

Así se evita que el temporizador quede activo en memoria o siga ejecutándose después de cerrar el archivo.


🧩 Comportamiento detallado

Al abrir el libro

Private Sub Workbook_Open()
    IniciarReloj
End Sub

Cuando el archivo se abre:

  • Se ejecuta IniciarReloj
  • Se activa el temporizador API
  • Se inicia la sincronización al segundo exacto
  • Se cambia el cursor a modo reloj (xlWait)
  • Comienza la actualización periódica (Tick)

Resultado: el temporizador arranca automáticamente sin intervención del usuario.


Al intentar cerrar el libro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    DetenerReloj
End Sub

Cuando el usuario pulsa:

  • La X
  • Alt+F4
  • Ctrl+W
  • O cierra desde menú

Excel ejecuta Workbook_BeforeClose, que:

  • Llama a DetenerReloj
  • Mata el temporizador con KillTimer
  • Restaura el cursor (xlDefault)
  • Limpia el estado interno

Resultado: el temporizador se detiene siempre antes de que el libro se cierre, evitando temporizadores huérfanos o errores 50290.


🎯 Resumen de los eventos del reloj

Este código garantiza que el temporizador API se inicia automáticamente al abrir el libro y se detiene de forma segura al cerrarlo, evitando que quede activo en segundo plano.


Diagrama de flujo — Eventos del reloj


                   ┌────────────────────────────┐
                   │   El usuario abre el libro │
                   └───────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ Workbook_Open()          │
                     └─────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ IniciarReloj             │
                     │ • Inicia temporizador    │
                     │ • Activa cursor reloj    │
                     │ • Sincroniza primer tick │
                     └─────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ Temporizador en marcha   │
                     │ (Tick cada segundo)      │
                     └─────────────┬────────────┘
                                   │
                                   ▼
                   ┌────────────────────────────┐
                   │ El usuario intenta cerrar  │
                   │ (X, Alt+F4, Ctrl+W, menú)  │
                   └───────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ Workbook_BeforeClose()   │
                     └─────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ DetenerReloj             │
                     │ • Mata el timer API      │
                     │ • Restaura cursor normal │
                     │ • Limpia estado interno  │
                     └─────────────┬────────────┘
                                   │
                                   ▼
                     ┌──────────────────────────┐
                     │ El libro se cierra sin   │
                     │ temporizadores activos   │
                     └──────────────────────────┘

🎯 Qué expresa este diagrama

  • El temporizador se inicia automáticamente al abrir el libro.
  • El temporizador se detiene siempre antes de que el libro se cierre.
  • Se evita que queden temporizadores huérfanos en memoria.
  • Se garantiza que Excel no siga ejecutando Tick después del cierre.
  • El flujo es limpio, seguro y totalmente automático.


Administrador de nombres

Estos son los nombres definidos en el Administrador de nombres, necesarios para diseñar el Reloj analógico en tiempo real.


Reloj analógico traducido a 6 idiomas

Selecciona tu idioma para disfrutar de una Excel-ente experiencia.

En la siguiente imagen animada se ve un reloj analógico del tipo AM/PM, con el formato regional en inglés, y otro del tipo 24 horas en español.


Videotutorial explicando las macros del reloj analógico

En este vídeo he intentado explicar los intríngulis del reloj analógico.

En el vídeo no he mencionado la colaboración con la IA de Microsoft Copilot, sin la cual no habría podido afinar tanto el código para lograr este resultado, aunque en los siguientes enlaces no he incluido el diálogo que mantuve con la IA durante muchas iteraciones, sino solo el resultado final:

Descarga el Reloj analógico en tiempo real, pruébalo y te agradeceré cualquier sugerencia que me hagas tendente a mejorarlo.

Nuevo reloj analógico en Excel

🔝To translate this blog post to your language, select it in the top left Google box.


Características del nuevo reloj analógico

Con mi nuevo reloj analógico puedo ver la hora actual o cualquier otra hora que yo quiera...

Características principales:

1) Diseñado para funcionar en versiones desde Excel 2010 hasta Excel para Microsoft 365.

2) Diseñado para funcionar en Excel para la Web o insertado en mi propio blog.

3) Muestra la hora actual o una hora introducida manualmente.

4) Muestra el formato de 12 horas o de 24 horas.

5) Muestra el formato con 60 minutos.

6) Muestra u oculta la aguja de los segundos.

7) Posición correcta segundo a segundo de las agujas de las horas, minutos y segundos. 

8) Escrito en 6 idiomas y ampliable fácilmente a más idiomas.

¿Te gusta el aspecto de mi nuevo reloj analógico?

Cada vez que pulses la tecla <F9> se actualiza la hora actual.

  • Edita el rango de celdas E4:G4 con la hora manual: Hora, minutos y segundos.
  • La casilla de la celda D3 controla que se vea la hora actual o la hora manual.
  • La casilla de la celda D6 controla que se vean 12 o 24 horas.
  • La casilla de la celda E6 controla que se vean las horas.
  • La casilla de la celda F6 controla que se vean 60 minutos. Es prioritario sobre las horas.
  • La casilla de la celda G6 controla si se verá la aguja de los segundos.
  • En el rango F9:G9 se puede modificar el centro del reloj.
  • Las celdas E12, E15, E18 y E21 son los tamaños de las agujas del reloj de la hora, minuto y segundo respectivamente, estando dividida en dos partes la aguja de los segundos.
  • Aunque en la imagen animada no se vea, en la celda G23 se elige el idioma de los textos del reloj: Español; English; Française; Italiano; Deutsch; Português.


Prueba el nuevo reloj analógico

Prueba el reloj analógico sin necesidad de descargar nada, incluso sin tener Excel instalado, desde esta ventana en la nube de Microsoft OneDrive:

Para ajustar el zoom en la nube:

  • En el móvil o celular usa dos dedos en la pantalla, como haces para ampliar o reducir una foto.
  • En el PC sitúa el cursor dentro del buscador y presiona la tecla <Control> girando la ruleta del ratón.

Descarga el archivo haciendo clic en el botón: Descargar

Si quieres compartir el nuevo reloj analógico, aquí tienes el código para insertarla en tu blog o página web:


Descarga el nuevo reloj analógico

Descarga el nuevo reloj analógico desde este enlace:

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

El archivo no contiene macros y tiene las hojas protegidas sin contraseña para evitar que los usuarios alteren las fórmulas.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0


Cómo se me ocurrió hacer el nuevo reloj analógico

Desde hace años me han interesado los relojes hechos en Excel. En este artículo está el último que he construido:

Hace unos días Andrew Moss, mi favorito aficionado en Excel, escribía en las redes sociales sobre la creación de relojes analógicos en diferentes versiones de ChatGPT:

El año pasado ChatGPT siempre devolvía las 10:10 horas al pedirle otra hora.

Este mes la última versión de ChatGPT consigue que el reloj marque las 12:30 horas pedidas, pero la aguja de las horas está en las 12 cuando debería estar entre las 12 y la 1 horas:

Hice la prueba con Microsoft Copilot y me devolvió una versión Frankenstein del reloj, marcando las 10:10 y las 12:30 horas simultáneamente:

Como ninguna Inteligencia Artificial (IA) está lo suficientemente capacitada, de momento, para generar un reloj analógico, le comenté a Andrew que su publicación en X me inspiró a crear un reloj analógico completamente integrado en un gráfico de dispersión XY. Y eso es lo que he hecho para poder publicar este artículo.

De todos modos puedes ver el "estado del arte" de varias IA generando código HTML para crear relojes analógicos en tiempo real en esta página:

Como solo soy un aficionado en HTML/CSS/JS, he necesitado la ayuda de la IA de Microsoft Copilot para crear este reloj analógico y digital, y así poder incrustarlo en mi blog:

12
1
2
3
4
5
6
7
8
9
10
11
00:00:00

Aún no he conseguido que se vean los 60 puntos donde no haya números de horas. ¿Me ayudas a conseguirlo?


Videotutorial para aprender a crear el reloj analógico

En este vídeo he intentado explicar cómo he creado el nuevo reloj analógico en Excel.


Cómo crear el reloj analógico

Creo que en el vídeo anterior está suficientemente explicado cómo crear un reloj analógico en Excel, pero aquí daré algunos detalles más, que explican mejor los problemas que he tenido al crearlo.

La primera idea fue crearlo en un único gráfico combinado por varios gráficos de dispersión.

Dicho gráfico combinaba 9 series distintas:

  • Centro: Con un gráfico de dispersión, para crear el punto central donde se unen las agujas del reloj.
  • Horas: Con un gráfico de dispersión con líneas rectas, para crear la aguja de las horas.
  • Minutos: Con un gráfico de dispersión con líneas rectas, para crear la aguja de los minutos.
  • Segundos: Con un gráfico de dispersión con líneas rectas, para crear la aguja larga de los segundos.
  • Seg2: Con un gráfico de dispersión con líneas rectas, para crear la aguja corta de los segundos.
  • N. Hora: Con un gráfico de dispersión con líneas rectas ocultas pero con etiquetas, para crear los números de las horas, del 1 al 12 o del 13 al 24.
  • N. Min.: Con un gráfico de dispersión con líneas rectas ocultas pero con etiquetas, para crear los números de los minutos, del 0 al 59.
  • Puntos X: Con un gráfico de dispersión, para crear los 60 puntos del minutero o del segundero.
  • Esfera X: Con un gráfico de dispersión con líneas suavizadas, para crear el círculo del reloj.

ATENCIÓN: Al cambiar el idioma, cambian los nombres de las series, pues se traducen los encabezados de la fila 1 de la hoja 'Datos'...

Las series N. Hora y N. Min. se creaban con el contenido de la etiqueta marcando: Valor de las celdas, y presionando el botón: Seleccionar rango...

Para N. Hora:

=Datos!$F$2:$F$62

Para N. Min.:

=Datos!$I$2:$I$62

Pero seleccionar rango de etiquetas de datos no es compatible con Excel 2010, pues creo que apareció por primera vez en Excel 2013.

Al abrir ese gráfico combinado con esas dos series, los números de horas y de minutos generan errores debidos a los rangos de etiquetas, por lo que no se ven los números si las series N. Hora y N. Min. son gráficos de dispersión con rangos para las etiquetas de datos.

El resultado erróneo se muestra en esta imagen animada, junto con el resultado correcto de usar gráficos de burbujas en Excel 2010:


No se puede conseguir que Excel 2010 muestre correctamente los números de horas y de minutos con un único gráfico combinado, debido al problema descrito anteriormente.

AVISO: Como a mí me gusta que mis archivos sean compatibles en cualquier versión a partir de Excel 2010, ya que fue la versión con la que adquirí mis primeras experiencias en Excel y de la que tengo muy buenos recuerdos, he tenido que crear un segundo gráfico con dos series de burbujas, ya que no se pueden combinar a la vez gráficos de dispersión y de burbujas...

La siguiente imagen muestra los gráficos de burbujas separados de los de dispersión, que se han ocultado para mayor claridad. También muestra el grupo creado con los dos gráficos y la elipse de fondo.


TRUCO 1: Con la elipse de fondo se añade un círculo exterior adicional, y sobre todo sirve para colorear el interior del reloj, pues los gráficos de dispersión y de burbujas no permiten colorear fácilmente las regiones interiores de sus puntos o líneas.

En el Gráfico Reloj Analógico está el gráfico combinado por 7 gráficos de dispersión.

En el gráfico de Burbujas Reloj Analógico está el gráfico de burbujas, que muestra los números de horas y de minutos, con las dos series N. Hora y N. Min.

En la imagen de la izquierda están los valores de la serie N. Hora.

En la imagen de la derecha están los valores de la serie N. Min.


TRUCO 2: Los rangos que definen el Tamaño de burbuja de la serie sirven como valores de etiquetas para los números de horas y de minutos.

En las Opciones de etiqueta hay que marcar: Tamaño de la burbuja

AVISO: En Excel 2010 no existe la opción: Valor de las celdas, y por eso genera error al abrir un archivo creado en versiones posteriores de Excel con esa opción.


TRUCO 3: A la fórmula de la celda Datos!J2, arrastrada hasta Datos!J62 con los tamaños de las burbujas de la serie N. Min., se le suma una milésima, para que no haya ninguna burbuja con un tamaño cero:

=SI(Y(esNúmMinutos;Datos!$A2<360);Datos!$A2/6+0,001;"")

Así se consigue que aparezca el número 0 en los números de minutos, pues si fuera exactamente de tamaño 0 no se vería ni la burbuja ni la etiqueta con el número 0.


TRUCO 4: Las burbujas se ocultan pues no hacen falta, sin relleno y sin línea de borde. Sólo son necesarias las etiquetas con el tamaño de cada burbuja.

Los valores X e Y de las dos series de burbujas determinan la posición de dichos números en un círculo interior del reloj analógico.

Por lo que el archivo del Reloj Analógico, que puedes descargar más arriba, es compatible con cualquier versión, desde Excel 2010 hasta Excel para Microsoft 365, y también en Excel para la Web. ¡Como me había propuesto!


ACTUALIZACIÓN: Nuevo temporizador

Descarga el nuevo temporizador desde este enlace:

Las macros del archivo descargado están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

ATENCIÓN: Se puede modificar este libro de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0


PLUS: Uso del temporizador

El reloj analógico se actualiza en tiempo real al hacer clic en el icono del reloj de arena del temporizador.

Con este temporizador se actualiza el reloj analógico cada segundo...


Nuevo reloj analógico en tiempo real

En el siguiente artículo podrás descargar un reloj analógico en tiempo real:

Es un reloj analógico automático, pues mueve las agujas cada segundo.

¿Qué tipo de reloj analógico prefieres, uno manual o uno automático?

Mi ciclo de diseño Excel

🔝To translate this blog post to your language, select it in the top left Google box.


Mi ciclo de diseño en forma de imagen animada:

Si tienes interés en saber cómo diseño mis artículos en este blog #ExcelPedroWave, y mis vídeos en el canal de YouTube @PedroWave, esta es la ocasión de averiguarlo.

Mi ciclo de diseño pasa por las siguientes etapas y herramientas:

  • 💡 Idea: Busco datos que me permitan escribir nuevos artículos sobre Excel.
  • 📊 Excel: Diseño prototipos con datos originales o extraídos de la Web.
  • ⛅ OneDrive: Guardo plantillas Excel subiéndolas a la nube de Microsoft y de Google.
  • 🪄 PowerPoint: Creo diapositivas, capturando la pantalla y mi voz, y las guardo en vídeo.
  • 🎬 Clipchamp: Creo videotutoriales, editando y montando el vídeo anterior.
  • 🎞️ YouTube: Subo a mi canal los videotutoriales montados y edito los subtítulos.
  • ✍️ Blogger: Creo entradas en el blog, con vídeos y con la descarga de las plantillas Excel.
  • 🕸️ LinkedIn: Promociono mi blog y mi canal de YouTube en las redes sociales.

A continuación daré más detalles de cada uno de los pasos de mi ciclo de diseño.


💡 Idea

Busco datos que me permitan escribir nuevos artículos sobre Excel.

Cualquier medio es bueno para tener nuevas ideas de diseño.

Puede ser un comentario en mi blog o en mi canal de YouTube o en las redes sociales en las que promociono mis artículos, como LinkedIn la red profesional por excelencia, Facebook con excelentes grupos de Excel, Instagram con seguidores fieles, Twitter con píldoras de Excel.

Las ideas pueden provenir también de los foros de Excel, con consultas y comentarios de usuarios del foro.

Leyendo otros blogs, páginas webs y canales de Excel pueden surgir nuevas ideas de mejora para escribir artículos.

Las noticias de actualidad en la prensa escrita son otro medio para generar ideas de desarrollo en Excel.

Ya ves que los orígenes de datos son de lo más diverso, lo que me ha permitido escribir 262 artículos en 13 años. 

Muchas ideas se convierten en un diseño en Excel en uno o en pocos días, pero otras ideas necesitan varios meses de desarrollo, como varias de las plantillas dedicadas al ajedrez. 

En septiembre actualizaré este tablero Kanban con las ideas POR HACER en los próximos meses:

Tablero Kanban en Excel | #ExcelPedroWave 

Si quieres que tus ideas sean una realidad en Excel, ya estás tardando en contármelas en un comentario y, si me parecen interesantes, las añadiré a mis tareas POR HACER.


📊 Excel

Diseño prototipos con datos originales o extraídos de la Web.

Este es el momento más gratificante de mi actividad cerebral, en la que estimulo mi perfil calculador mientras diseño hojas de cálculo en Excel.

Puedo crear un libro de Excel con fórmulas matriciales, con matrices dinámicas, con tablas dinámicas, con segmentación de datos, con gráficos curiosos, con mapas dinámicos, con cálculos iterativos. Todo vale para crear excelentes hojas de cálculo.

Uso Excel de escritorio en versiones Excel 2010 y Excel para Microsoft 365, con o sin macros en lenguaje VBA, y Excel para la Web, con las últimas funciones añadidas a Excel.

Con Power Query creo herramientas ETL para extraer, transformar y cargar datos en Excel.

Con Power Pivot creo modelos de datos, consultas dinámicas y analizo grandes volúmenes de datos.

Puedes buscar mis artículos y descargar mis archivos en Excel desde aquí:

Buscador de mis artículos de Excel | #ExcelPedroWave


⛅ OneDrive

Guardo plantillas Excel subiéndolas a la nube de Microsoft OneDrive y de Google Drive.

Todos mis prototipos y plantillas Excel los subo a estas dos nubes:

Microsoft OneDrive - Público #ExcelPedroWave

Google Drive - Descargas Blog Pedro Wave


🪄 PowerPoint

Con Microsoft PowerPoint creo diapositivas, capturando la pantalla y mi voz, y las guardo en vídeo.

Como transición entre diapositivas elijo Ondulación, como cuando una piedra cae en el agua.

En la pestaña Grabar selecciono: Grabación de pantalla...

Con lo que se graba el puntero del ratón, el audio de mi propia voz y el sonido de Windows, el área de la pantalla completa con una resolución de 1920 x 1080 pixeles en Full HD.

Estas son las diapositivas de mi ciclo de diseño Excel:

Una vez editada las diapositivas, las exporto a un vídeo que guardo en mi equipo.

También puedo crear GIF animados con fondo transparente, como el que aparece al principio de este artículo.


🎬 Clipchamp

Creo videotutoriales, editando y montando el vídeo anterior.

Microsoft Clipchamp es un editor de vídeos, incluido en las suscripciones de Microsoft 365, que permite exportaciones ilimitadas sin marca de agua, con resoluciones de hasta 1080p en formato HD, acción y filtros Premium.

Editor de video Clipchamp | Microsoft 365


🎞️ YouTube

Subo a mi canal los videotutoriales montados y edito los subtítulos en español, que se pueden traducir automáticamente a cien idiomas. 

Este es mi canal de YouTube, con 117 vídeos y 924 seguidores:

Excel Pedro Wave - YouTube


✍️ Blogger

Creo entradas en el blog, en las que incluyo mis vídeos y enlaces a las descargas de mis archivos hechos con Excel con:

Blogger.com - Crea un blog atractivo y original fácilmente.

En mi blog publico mis propios retos en Excel, para sacarle todo el poder a esta excelente herramienta multiusos, tan usada y a la vez tan incomprendida, para así poder mejorar nuestros conocimientos de Excel.

Enlace a mi blog con 262 entradas y 1.122.000 visitas:

#ExcelPedroWave

Suelo incluir enlaces a páginas de Microsoft y de Wikipedia, e incrusto hojas de cálculo Excel desde Microsoft OneDrive:

Compártalo: Insertar un libro de Excel en su página web o blog de OneDrive - Soporte técnico de Microsoft


🕸️ LinkedIn

En la red profesional LinkedIn me siguen 1.300 personas.

Promociono mi blog y mi canal de YouTube en varias redes sociales:

Redes Sociales | #ExcelPedroWave

Y estoy activo en estos foros de Excel:

Mis Foros Excel | #ExcelPedroWave

Para consultar dudas de mis artículos del blog de Excel puedes hacer un comentario en mi blog.

Si quieres recibir ayuda para resolver tus propios problemas, crea un tema en uno de los foros de Excel.


Videotutorial de mi ciclo de diseño Excel

Para que quede más claro mi ciclo de diseño Excel puedo preparar un videotutorial, siempre que algún lector o alguna lectora me lo pida...

Ya ves que uso aplicaciones de Microsoft en mis diseños: Excel, OneDrive, PowerPoint y Clipchamp son mis herramientas preferidas. ¿Qué opinas? 

Os dejo, que tengo que comenzar un nuevo ciclo de diseño...

Mi lista de blogs