我想在表格中做到如果一个单元格符合预设的条件，就能自动刷新表格（类似F9功能键），我不知道Excel表格中有没有自带的函数，我用的是2010版，如果没有，不知道哪个高人可以帮我通过VBA自定义一个可以自动刷新表格的函数。我的公式是A1=IF(NOW()<=B1+5*0.0006944,C2,"")我的公式作用是：如果现在时间比在B1内预设的时间多5分钟，就显示空白，如果在5分钟内就显示C1内的内容，该公式在实际使用中不能自动刷新，要按F9才能实现自动刷新。所以我想请高人帮解决
第1个回答 2011-02-15
Private Sub Workbook_Activate()
Application.OnTime Now + TimeValue("00:05:00"), "AA"
End Sub
再插入模块:
在模块中粘贴如下代码:
Public Sub AA()
Sheets("sheet1").Range("A1").Value = "=IF(NOW()<=B1+5*0.0006944,C2,"""")"
End Sub本回答被提问者采纳
Application.OnTime Now + TimeValue("00:05:00"), "AA"
End Sub
再插入模块:
在模块中粘贴如下代码:
Public Sub AA()
Sheets("sheet1").Range("A1").Value = "=IF(NOW()<=B1+5*0.0006944,C2,"""")"
End Sub本回答被提问者采纳
