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 SubEl mensaje será:
Entradas relacionadas:
Mensaje emergente al abrir un fichero Ms Excel.
Nube de datos
Muy buen aporte
ResponderEliminarGracias Jaime. Me alegro. Un saludo.
EliminarMuchas Gracias Juasto no que necesitab
ResponderEliminarMe alegro. Saludos.
EliminarBuen 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.
ResponderEliminarBuen 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.
ResponderEliminarCada vez que hagas esta opearción:
ResponderEliminart = 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.