Userform 窗口自动关闭

leon1690

VBA菜鸟一枚，从去年开始学习ＶＢＡ，并且协助部门基于ＥＸＣＥＬ开发了一些小工具，　目前运行已经接近尾声，　我想利用这个平台，分享一些通用的代码给大家，本人经验有限，不喜勿喷，恳请各位老师赐教，有好的建议一定感谢。

如下：
BeginCode　为关闭屏幕刷新，自动启动的，换言之就是关闭一些应用，从而提高代码的运行速度
Sub BeginCode()
'关闭屏幕刷新
Application.ScreenUpdating = False
'保存当前事件设置状态
EventState = Application.EnableEvents
'关闭自动启动事件
Application.EnableEvents = False
'保存当前计算模式
CalculationState = Application.Calculation
'将计算模式设置为手动
Application.Calculation = xlCalculationManual
'保存当前显示分页符设置
PageBreakState = ActiveSheet.DisplayPageBreaks
'关闭显示分页符
ActiveSheet.DisplayPageBreaks = False
End Sub


EndCode　　表示把前面关闭的项目打开；
Sub EndCode()
'恢复原始设置
ActiveSheet.DisplayPageBreaks = PageBreakState
Application.Calculation = CalculationState
Application.EnableEvents = EventState
Application.ScreenUpdating = True
End Sub


UserForm_Initialize1　＆　Sub KillForm1()　这２段代码需要结合使用，　可以自动关闭打开的用户窗口。
在我的ｅｘｃｅｌ　中设置了２个用户窗口，所以有１＆２区分；
ｔｉｍｅｖａｌｕｅ　可以设置代码运行结束后窗口停留的时间，这里设置的是２秒，数值可以任意修改


Sub UserForm_Initialize1()
Application.OnTime Now + TimeValue("00:00:02"), "KillForm1"
End Sub
Sub UserForm_Initialize2()
Application.OnTime Now + TimeValue("00:00:02"), "KillForm2"
End Sub
Sub KillForm1()
Unload UserForm1
End Sub
Sub KillForm2()
Unload UserForm2
End Sub

1. Public CalculationState As Long
   
2. Public EventState As Boolean
   
3. Public PageBreakState As Boolean
   
4. 
   
5. Sub BeginCode()
   
6.    '关闭屏幕刷新
   
7.    Application.ScreenUpdating = False
   
8.    '保存当前事件设置状态
   
9.    EventState = Application.EnableEvents
   
10.    '关闭自动启动事件
    
11.    Application.EnableEvents = False
    
12.    '保存当前计算模式
    
13.    CalculationState = Application.Calculation
    
14.    '将计算模式设置为手动
    
15.    Application.Calculation = xlCalculationManual
    
16.    '保存当前显示分页符设置
    
17.    PageBreakState = ActiveSheet.DisplayPageBreaks
    
18.    '关闭显示分页符
    
19.    ActiveSheet.DisplayPageBreaks = False
    
20. End Sub
    
21. Sub EndCode()
    
22.    '恢复原始设置
    
23.    ActiveSheet.DisplayPageBreaks = PageBreakState
    
24.    Application.Calculation = CalculationState
    
25.    Application.EnableEvents = EventState
    
26.    Application.ScreenUpdating = True
    
27. End Sub
    
28. Sub UserForm_Initialize1()
    
29. Application.OnTime Now + TimeValue("00:00:02"), "KillForm1"
    
30. End Sub
    
31. Sub UserForm_Initialize2()
    
32. Application.OnTime Now + TimeValue("00:00:02"), "KillForm2"
    
33. End Sub
    
34. Sub KillForm1()
    
35. Unload UserForm1
    
36. End Sub
    
37. Sub KillForm2()
    
38. Unload UserForm2
    
39. End Sub
    

复制代码