在Excel里做保存按钮

Question

在Excel里做了一个保存按钮,点击就保存，我想要点击一次后 在30分钟保存一次，就这样循环，直到关闭Excel

Answer 1

Public Sub MyMacro()
'把 dTime设置为当前时间+1秒，也就是1秒后执行计划任务，你可以把("00:00:01")改成("00:15:00")
dTime = Now + TimeValue("00:00:01")
'在dTime的时候执行"ThisWorkbook.MyMacro"这个宏,也就是调自己，True表示执行，False的话就是删除这个计划任务
Application.OnTime dTime, "ThisWorkbook.MyMacro", , True
With Range("A1")
'在A1里面显示当前的时间，这个动作每隔一秒会执行一次，因为每隔一秒MyMacro就会被调用一次。
.Value = Now
.NumberFormat = "hh:mm:ss"
End With
End SubPrivate Sub CommandButton1_Click()
'在工作表打开的时候先调用一次MyMacro，后续调用由OnTime完成。
MyMacro
End Sub

Answer 2

Public Sub MyMacro()    dTime = Now + TimeValue("00:30:00")    Application.OnTime dTime, "ThisWorkbook.MyMacro", , False
    ThisWorkbook.SaveEnd Sub
 Private Sub CommandButton1_Click() 
 
     MyMacro 
End Sub 

Answer 3

Public Sub MyMacro()    dTime = Now + TimeValue("00:30:00")    Application.OnTime dTime, "ThisWorkbook.MyMacro", , False
    ThisWorkbook.SaveEnd Sub
 Private Sub CommandButton1_Click() 
 
     MyMacro 
End Sub 

Answer 4

错了一点Public Sub MyMacro()     dTime = Now + TimeValue("00:30:00")     Application.OnTime dTime, "ThisWorkbook.MyMacro", , true 
    ThisWorkbook.Save End Sub 
Private Sub CommandButton1_Click()     MyMacro 
End Sub 

Answer 5

EXCEL文件自带这个功能啊，方法：
打开文件--工具--选项--保存