[已解决]这段程序执行为何没有反映呢？

sinoshipping

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "my_Procedure"
End Sub
Sub my_Procedure()
Me.Hide
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-13 16:08

把这段宏修改一下，放在模块中：
Sub my_Procedure()
    UserForm1.Hide
End Sub

跳转到最佳答案楼层

zjdh

把这段宏修改一下，放在模块中：
Sub my_Procedure()
    UserForm1.Hide
End Sub