'vba起動の経過時間、関数の宣言
'Declare Function GetTickCount Lib "kernel32.dll" () As Long '←32bit
Declare PtrSafe Function GetTickCount Lib "kernel32.dll" () As Long '←64bit
Sub 処理時間計測()
stTimer = GetTickCount
'//--測定する処理------
Test
'--------------------//
endTimer = GetTickCount
Debug.Print "経過時間 = " & (endTimer - stTimer) / 1000 & "sec"
MsgBox "経過時間 = " & (endTimer - stTimer) / 1000 & "sec", vbOKOnly, "処理時間計測"
End Sub