首先,我是编码的新手。 我写了一个简单的代码,如下:
主要思想是每10分钟保存一次特定文档。 但是如果我处理另一个excel文档;每隔10分钟,将运行代码的文档出现,完成该过程,然后屏幕回到原位。有没有办法在后台执行此操作。
Sub otokayýt()
Application.ScreenUpdating = False
ThisWorkbook.Save
ThisWorkbook.Application.StatusBar = "KAYDEDÝLDÝ..."
ThisWorkbook.Application.Wait (Now + TimeValue("00:00:02"))
ThisWorkbook.Application.StatusBar = False
ThisWorkbook.Application.StatusBar = "Son Kayýt: " & Now
Call zamanlayýcý
End Sub
Sub zamanlayýcý()
Application.OnTime Now + TimeValue("00:00:10"), "otokayýt"
End Sub