VBA程式執行累計時間

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 »

發表於 2016-1-14 08:23 | 顯示全部帖子

回復 1# Jason80Lo

sub qq()
Dim Time0#
Time0 =Timer
.
(執行的程式)
.
.
.
msgbox "執行時間 " & Timer - Time0 & " 秒", vbOKonly

End sub

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。