VBA常用技巧代码解析

lulpl

谢谢分响！

jesse8010

版主辛苦了！每日一看，受益匪浅。

[ 本帖最后由 jesse8010 于 2009-7-3 11:42 编辑 ]

jesse8010

为什么传不上来附件捏？

yicj6277275

楼主真是太伟大了，崇拜得一塌糊涂，十分感谢，收藏+学习！

geminiwx

谢谢,非常感谢,刚刚开始学习用
VBA

阿拉蕾

楼主真伟大，让我们有了学习的机会，非常感谢

阿拉蕾

第二分卷是坏的

w_hb

受益匪浅，谢谢楼主！！！！！！！！！

yuanzhuping

原帖由 nowarmy 于 2009-7-3 09:45 发表
楼主辛苦了，麻烦回答一个问题。
如何删除指定文件内的所有宏代码（包括窗体、控件、模块等）？
楼主根据技巧188-4中内容修改一下。
谢谢！

1. Sub DelMacro()
   
2.     Dim Wb As Workbook
   
3.     Dim FileName As String
   
4.     Dim Vbc As VBComponent
   
5.     FileName = ThisWorkbook.Path & "\DelMacro.xls"
   
6.     Application.EnableEvents = False
   
7.     Set Wb = Workbooks.Open(FileName)
   
8.     For Each Vbc In Wb.VBProject.VBComponents
   
9.         If Vbc.Type = vbext_ct_Document Then
   
10.             Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
    
11.         Else
    
12.             Wb.VBProject.VBComponents.Remove Vbc
    
13.         End If
    
14.     Next
    
15.     Wb.Close True
    
16.     Application.EnableEvents = True
    
17. End Sub

复制代码

口是心非

袁版，在你的帖子：12-3        动态的数据有效性  这节中，为何我将该段代码写入thisworkbook中就无法执行呢？你的代码是写在了sheet1中，而且多了这一行：Option Explicit。请问这该如何解释？
还有就是代码中的第一行：Private Sub Worksheet_SelectionChange(ByVal Target As Range)，括号中的代码如何解释，在之后的代码中您在频繁的使用target这个单词，这点尤其不明白，呵呵，我自己知道这个单词是目标的意思，仅此而已，盼解答，多谢。