Para gestionar el tiempo, te mostramos la macro de un cronómetro con botón de pausa en Excel.
Ir a: Celda D1
Escribir:=AHORA()Seleccionar la celda D1
Cinta de Opciones Pestaña: Inicio Grupo: Inicio Formato de Número 
. Mostrará la ventana de formato de celda.Pestaña: Número
Categoría: Personalizado Tipo Escribir: hh:mm.Pulsar el botón: Aceptar.
Ir a: Celda E1
Escribir:=AHORA()Seleccionar la celda E1
Cinta de Opciones Pestaña: Inicio Grupo: Inicio Formato de Número . Mostrará la ventana de formato de celda.Pestaña: Número
Categoría: Personalizado Tipo Escribir: \:ssPulsar el botón: Aceptar.
BOTÓN INICIAR/PAUSA
Ir a: Cinta de opciones
Pestaña: Desarrollador Grupo: Insertar 
Controles ActiveX Botón de Alternancia.Ir a la hoja
Clic con el ratón y mantener pulsado Trazando un área rectangular.
CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.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.
Escribir el código de la macro:
Private Sub Workbook_Open()
Hoja1.Atualizar
End Sub
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.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
Aplicar formato a celdas, fuentes, etc.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
Excel Experto VBA - Macros- Consultar:
