和 Sylvia 一起學習寫程式

要如何計算這個巨集跑了多久呢

只要在Sub 裡面放幾句話就好了

開頭：

Start = Timer

結尾：

Finish = Timer

TotalTime = Finish - Start

MsgBox "已完成!  總共：" & Total Time & "秒 !"

拿上一篇的例子來講

Sub Search () '篩選條件

Start = Timer

Worksheets("Database").AutoFilterMode = False '展開表單

Dim a, b

a = ActiveSheet.Range("C2").Value '要篩選的第一個條件

b = ActiveSheet.Range("C3").Value '要篩選的第二個條件

With Worksheets("Database").Range("A1:H9999")

If a <> "" Then .AutoFilter Field:=2, Criteria1:=a

If b <> "" Then .AutoFilter Field:=5, Criteria1:=b

End With

Finish = Timer

TotalTime = Finish - Start

MsgBox "已完成!  總共：" & TotalTime & "秒 !"

End Sub

在執行完巨集後，螢幕畫面就會跳出下方畫面

Yeah! 全程只跑了0.07秒呢！開薰✧*｡٩(ˊᗜˋ*)و✧*｡