2014-02-16

Medir el tiempo de ejecución de subrutinas en VBA

En VBA tanto en Access como en Excel, podemos medir el tiempo transcurrido desde que se inició la subrutina hasta un punto determinado. Para mostrar el tiempo usamos la función MsgBox.
Option Explicit
Sub NuestraSubrutina()
  Dim t As Single 'Inicia el cronómetro
  t = Timer
  'NUESTRO CÓDIGO
  MsgBox Timer - t, vbInformation, "Segundos" ' Muestra el tiempo transcurrido
End Sub
El mensaje será:

Entradas relacionadas:
Mensaje emergente al abrir un fichero Ms Excel.

7 comentarios:

  1. Muchas Gracias Juasto no que necesitab

    ResponderEliminar
  2. Buen dia, Tengo la siguiente duda si quiero saber cuanto tiempo se demora excel en actualizar un libro que debo hacer, teniendo en cuenta que es una actualización grande porque tiene una tabla anclada a una base de datos.

    ResponderEliminar
  3. Buen Dia, Que buen aporte realizas, quiero preguntarte lo siguiente como puede hacer para calcular el tiempo que se demora en actualizar un libro de excel, el cual contiene una tabla vinculada a una base de datos de sql server.

    ResponderEliminar
  4. Cada vez que hagas esta opearción:

    t = Timer

    Estás reiniciando el contador de segundos que es 't', de manera que, cuando vuelvas a evaluar la expresión:

    Timer - t

    estarás calculando el tiempo que ha pasado desde la última inicialización.

    ResponderEliminar

Nube de datos