VBA常用技巧代码解析

明夷于飞

这样的好帖，不赞一下有辱人格！

fxs1983

收到，向楼主致敬

xue_jianguo

楼主万岁！！！
一直以来，额都想学习VBA，但几次均无果而终，因为之前的教程都不是循序渐进的，而是一开始就弄些大程序，搞得额晕头涨脑，但是yuanzhuping先生此讲，使我仅用半天的时间就学会了许多，能够入门了，知道怎样继续学习了，真是好，真是感谢！！！

hzz137

谢谢！无私的奉献！！！！

yuanzhuping

技巧189         保护VBA代码
       VBA项目的源代码是完全开放的，如果不希望其他人看到源代码，可以使用以下两种方法将代码保护起来。
189-1        设置工程密码
       设置VBA工程的密码，只有在输入正确密码后才能看到源代码。
       在VBE窗口中单击菜单“工具”→“VBAProject属性”，在显示的“VBAProject—工程属性”对话框的“保护”选项卡中选中“查看时锁定工程”复选框，并在“密码”文本框和“确认密码”文本框中输入密码后单击“确定”按钮关闭该对话框，保存并关闭文件。
      
       密码保护完成后，当试图打开该工程时会显示“VBAProject密码”的对话框，只有在输入正确的密码后才能看到该工程的源代码。
      

189-2        设置“工程不可查看”
       使用“保护并共享工作簿”功能将工程设置为不可查看。
       在Excel中选择菜单“工具”→“保护”→“保护并共享工作簿”，在显示的“保护并共享工作簿”对话框中选中“以追踪修订方式共享”复选框，激活对话框中灰色的输入密码区域，在“密码”文本框中输入密码后单击“确定”按钮。
      
       在显示的“确认密码”对话框中再次输入密码后单击“确定”按钮。
      
       此时系统会显示“此操作将导致保存文档。是否继续？”的对话框。
      
       单击“确定”按钮后在显示的对话框中单击“确定”按钮即可。
      
       完成设置后当在VBE中查看工程时则会出现一个“工程锁定”的对话框，提示“工程不可查看”。
      
       如果需要取消“工程不可查看”只需在Excel中选择菜单“工具”→“保护”→“撤消对共享工作簿的保护”在显示的“取消共享保护”对话框中需要输入正确的密码中单击“确定”按钮即可。
      

leaf1988

相当的不容易啊，

welky

能一如既往的坚持这么长时间，且一直都写的这么详细，确实让人钦佩！
Thanks!

heyafei

越读越开心

xtec2525

太感激了，先收藏了，再慢慢仔细看。

yuanzhuping

技巧190         优化代码
190-1        关闭屏幕刷新
       在使用代码改变工作表的显示内容或格式时关闭屏幕刷新可以加快运行速度，如下面的代码所示。

1. #001  Sub Screen()
   
2. #002      Dim i As Integer
   
3. #003      Dim t As Date
   
4. #004      Dim t1 As String
   
5. #005      Dim t2 As String
   
6. #006      Application.ScreenUpdating = False
   
7. #007      t = Timer
   
8. #008      For i = 1 To 30000
   
9. #009          Cells(1, 1) = i
   
10. #010      Next
    
11. #011      t1 = Timer - t
    
12. #012      Application.ScreenUpdating = True
    
13. #013      t = Timer
    
14. #014      For i = 1 To 30000
    
15. #015          Cells(1, 1) = i
    
16. #016      Next
    
17. #017      t2 = Timer - t
    
18. #018      MsgBox "关闭屏幕刷新运行时间:" & Format(t1, "0.00000") & "秒" _
    
19. #019           & Chr(13) & "开启屏幕刷新运行时间:" & Format(t2, "0.00000") & "秒"
    
20. #020  End Sub

复制代码

代码解析：
       Screen过程使用两次For...Next语句给A1单元格填充数据，最后使用消息框显示两次运行的时间。在第一次循环时关闭屏幕刷新，应用于Application对象的ScreenUpdating属性设置屏幕刷新功能是否打开，设置为False关闭屏幕刷新，将看不到代码的执行过程，但可以加快代码的运行速度。
       运行Screen过程，消息框显示两次代码的运行时间，可以看出关闭屏幕刷新后运行时间远远小于开启屏幕刷新时运行的时间，如图所示。