VBA程式執行累計時間

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-1-13 20:04 | 只看該作者

請問各位大大，如何撰寫一個VBA執行時所累計的時間，之後用MsgBox顯示
因為小弟的.txt檔內的資料有20~30萬列，逐一開啟後所花的時間很久
有沒有什麼好辦法，可提供參考，謝謝

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

2^#

發表於 2016-1-14 08:23 | 只看該作者

回復 1# Jason80Lo

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

End sub

3^#

發表於 2016-1-14 16:31 | 只看該作者

回復 2# Scott090

感謝大大回復，已完成謝謝^^

4^#

發表於 2016-1-16 21:03 | 只看該作者

回復 2# Scott090

我是路過...但我覺得大大回答的非常棒!! 不錯不錯~

5^#

發表於 2016-6-1 08:43 | 只看該作者

正需要此功能，但請問小數只要到秒後一位要如何修改

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。