Inserta un cronómetro con pausa en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

Para gestionar el tiempo, te mostramos la macro de un cronómetro con botón de pausa en Excel.

Inserta un cronómetro con pausa en Excel
  1. Ir a: Celda D1 / Escribir:

    =AHORA()
  2. Seleccionar la celda D1 / Cinta de Opciones / Pestaña: Inicio / Grupo: Inicio / Formato de Número. Mostrará la ventana de formato de celda.

  3. Pestaña: Número / Categoría: Personalizado / Tipo Escribir: hh:mm.

  4. Pulsar el botón: Aceptar.

  5. Ir a: Celda E1 / Escribir:

    =AHORA()
  6. Seleccionar la celda E1 / Cinta de Opciones / Pestaña: Inicio /

  7. Grupo: Inicio / Formato de Número. Mostrará la ventana de formato de celda.

  8. Pestaña: Número / Categoría: Personalizado / Tipo Escribir: \:ss

  9. Pulsar el botón: Aceptar.

Celda D1 y E1 con función AHORA personalizada
 
  • BOTÓN INICIAR/PAUSA

  1. Ir a: Cinta de opciones / Pestaña: Desarrollador / Grupo: Insertar / Controles ActiveX / Botón de Alternancia.

  2. Ir a la hoja / Clic con el ratón y mantener pulsado / Trazando un área rectangular.

Botón de alternancia insertado
 
  • CREAR MACRO

  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Explorador de Proyectos / VBAProject / Doble Clic sobre ThisWorkbook (libro). Si el panel no está visible Ir a: Barra de menú / Ver / Explorador de proyectos. Mostrará la ventana donde escribimos la macro.

    Panel de proyecto con el objeto ThisWorkbook seleccionado
  4. Escribir el código de la macro:

    Private Sub Workbook_Open()

    Hoja1.Atualizar

    End Sub

 
  1. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  2. Ir al panel de Proyecto / Doble clic sobre Hoja1 (Hoja1). Mostrará el área de código donde escribimos la macro.

    Sub Sub Atualizar()

    Worksheets(1).Calculate

    If ToggleButton1 = True Then

    Application.OnTime Now + TimeValue("00:00:01"), "Hoja1.Atualizar"

    End If

    End Sub

     

    Private Sub ToggleButton1_Click()

    If ToggleButton1.Caption = "Pausa" Then

    ToggleButton1.Caption = "Inicio"

    Else

    ToggleButton1.Caption = "Pausa"

    End If

    Atualizar

    End Sub

  3. Aplicar formato a celdas, fuentes, etc.

  4. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Cronómetro insertado en la hoja Excel con botón de pausa

- Consultar:

Cronómetro en Excel

 

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.