Sub auto_open() Application.OnTime TimeValue("12:00:00"), "tx" '12:00提示一次 Application.OnTime TimeValue("14:00:00"), "tx" '14:00再提示一次End SubSub tx() msg = MsgBox("出发", vbInformation, "提示") End Sub
这样试试