我想在打开 Excel 工作簿 20 秒后显示一条消息。代码是:
//ThisWorkbook
Private Sub Workbook_Open()
SetTimer
End Sub
//Module1
Public Sub SetTimer()
Application.OnTime Now + TimeValue("00:00:20"), "ShowMsg"
End Sub
Public Sub ShowMsg()
MsgBox ("my message")
End Sub
如您所见,代码非常简单,当用户不更新工作表或离开更新/聚焦单元格时它可以工作。但是,如果光标停留在单元格上,则消息将永远不会显示。当单元格具有焦点或正在更新时,它会显示控件不会返回到 VBA 代码。对这个问题有任何想法吗?谢谢