Índice

Solución 19.4 Calcular el tiempo de ejecución de un procedimiento

En la zona de declaraciones del formulario:

Declare PtrSafe Function GetTickCount64 Lib "kernel32" () As Long

Código de los procedimientos:

Sub RellenoUna_a_Una()  
    ’ Rellena una a una las celdas A1 a A10000  
    Dim una_celda As Range  
    Dim topInicio As Long 
    Dim topFin ...