如何编写代码 使得工作表自己不停的刷新, 如何停止?
悬赏 20分 代码我有,可是这个代码有缺陷,就是不知道如何让它停止,按esc键后,我要保存数据时,它又自动跳一次,所以我不贴出来了
悬赏30分
会的人不难,请给个代码,最好把开始和停止这个按钮也给设计进去
在我需要的时候点个开始就不停的刷,要它停止的时候,再点一下就可以了
还有停止后,数据要保留在最后一次地刷新上,不要再跳
一楼的回答我不懂,请你把所有的代码都贴上去,包括自动刷新的,
Private Sub CommandButton1_Click()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler 'ESC键终止刷新
While True
Calculate '刷新，相当于按 F9
Wend
handleCancel:
'If Err = 18 Then
' MsgBox "You cancelled"
'End If
End Sub
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler 'ESC键终止刷新
While True
Calculate '刷新，相当于按 F9
Wend
handleCancel:
'If Err = 18 Then
' MsgBox "You cancelled"
'End If
End Sub
温馨提示：答案为网友推荐，仅供参考
