菜鸟求助，如何计算函数运行时间

aht1999

如题，我想知道运算某个单元内函数并返回结果所用的时间
还有刷新工作表（SHIFT+F9）、工作簿（F9）所用的时间
这个要怎么用VBA实现，在下VBA小白，还请各位大侠帮忙

aht1999

果真没有人回复，55555555

蓝桥玄霜

这个问题或许要等到微软下次升级了。
自己写的代码可以用Timer实现。

aht1999

蓝桥玄霜 发表于 2016-1-6 09:24
这个问题或许要等到微软下次升级了。
自己写的代码可以用Timer实现。

版主的意思是不是，源代码没有计时功能
只能在VBA里用Timer来记录调用Excel函数
我试过，可是怎么通过程序判断调用过程，比如重新计算全表，已经结束了呢？

蓝桥玄霜

代码一开始用：
t = Timer
最后用：
MsgBox Timer - t

bighope小神女

你好 我想问一下

你这个问题解决了嘛

OKJSJSF

蓝桥玄霜 发表于 2016-1-7 12:44
代码一开始用：
t = Timer
最后用：

前辈好！目前正在按《别怕EXCEL VBA其实很简单》练VBA时间的用法。发现EXCEL在计算大量数据时采用数组公式时速度确实很慢并可能死机，所以上面楼主的求函数计算花费时间的方法就是：新建一个按钮，单击按钮执行测试程序，或打开工作簿时执行程序，或其它方法触发程序运行。《  *》书中最后二页就是TIMER-T得出的运行时间差的方法。程序要写上清空工作表内容的代码，写上T=TIMER，再写上数据导入工作表的代码，再写上MSGBOX弹窗代码。也可以在程序运行前先手工清空工作表内容。由于工作表已设好公式，公式未计算完毕前，弹窗并不出显示，只有公式完成全部计算才会显示弹窗，所以程序执行时间包括数据导入时间与计算的时间。

OKJSJSF

蓝桥玄霜 发表于 2016-1-7 12:44
代码一开始用：
t = Timer
最后用：

同时，我在测试程序中用上《EXCEL VBA实战技巧精粹修订版》的“数字秒表”的代码后，代码不能计秒并显示，只在公式计算完毕弹出弹窗后才会计秒，不知如何改。我的意思是既能看到进度，又能看到最终结果，用秒表代替进度条的作用。我的一个表要花90秒左右才能完成计算。

OKJSJSF

蓝桥玄霜 发表于 2016-1-7 12:44
代码一开始用：
t = Timer
最后用：

还有，ONTIME方法，在提醒“你已连续工作一个小时”，再调用ONTIME，第二次提醒“你已连续工作二个小时”该怎么写代码？“一个小时、二个小时、、、”怎么改为用函数变量？我用NOW（）或TIME（）减不出来时间差。

郭延涛

Sub FunctionTiming()     Dim startTime As Double     Dim endTime As Double          ' 关闭自动计算     Application.Calculation = xlCalculationManual          ' Select the cell where the function is located     Selection.Calculate          ' Get the start time     startTime = Timer          ' Calculate the function     Selection.Calculate          ' Get the end time     endTime = Timer          ' 打开自动计算     Application.Calculation = xlCalculationAutomatic          ' Display the calculation time     MsgBox "Calculation time: " & (endTime - startTime) & " seconds"         End Sub