[已解决]发现二义性名称

278059169

Private Sub Workbook_Open()
    Application.Visible = False
    系统登录.Show
End Sub

Private Sub Workbook_Open()
T = Now
For i = 1 To 72
Application.OnTime T + (1 / 24 / 6) * i, "自动保存"
Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For i = 1 To 72
If T + (1 / 24 / 6) * i > Now Then Application.OnTime T + (1 / 24 / 6) * i, "自动保存", , False
Next
End Sub


这个咋整，让启动完了再运行这自动保存的

最佳答案

月排行榜 / 总排行榜

scl5801

2016-7-1 23:10

Private Sub Workbook_Open()
     Application.Visible = False
     系统登录.Show
    T = Now
    For i = 1 To 72
       Application.OnTime T + (1 / 24 / 6) * i, "自动保存"
    Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For i = 1 To 72
If T + (1 / 24 / 6) * i > Now Then Application.OnTime T + (1 / 24 / 6) * i, "自动保存", , False
Next
End Sub

跳转到最佳答案楼层

scl5801

Private Sub Workbook_Open()
     Application.Visible = False
     系统登录.Show
    T = Now
    For i = 1 To 72
       Application.OnTime T + (1 / 24 / 6) * i, "自动保存"
    Next i
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
For i = 1 To 72
If T + (1 / 24 / 6) * i > Now Then Application.OnTime T + (1 / 24 / 6) * i, "自动保存", , False
Next
End Sub