开发-vb-插入-模块 输入以下代码: Sub jisu() Calculate Application.OnTime Now + TimeValue("0:00:01"), "jisu" End Sub