VBA常用技巧代码解析

lulpl · 发表于 2009-7-3 10:54

谢谢分响！

jesse8010 · 发表于 2009-7-3 11:25

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

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

jesse8010 · 发表于 2009-7-3 11:44

为什么传不上来附件捏？

yicj6277275 · 发表于 2009-7-3 13:10

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

geminiwx · 发表于 2009-7-3 15:34

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

阿拉蕾 · 发表于 2009-7-3 15:40

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

阿拉蕾 · 发表于 2009-7-3 15:48

第二分卷是坏的

w_hb · 发表于 2009-7-3 16:02

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

yuanzhuping · 发表于 2009-7-3 16:13

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

Sub DelMacro()
Dim Wb As Workbook
Dim FileName As String
Dim Vbc As VBComponent
FileName = ThisWorkbook.Path & "\DelMacro.xls"
Application.EnableEvents = False
Set Wb = Workbooks.Open(FileName)
For Each Vbc In Wb.VBProject.VBComponents
If Vbc.Type = vbext_ct_Document Then
Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
Else
Wb.VBProject.VBComponents.Remove Vbc
End If
Next
Wb.Close True
Application.EnableEvents = True
End Sub

复制代码

口是心非 · 发表于 2009-7-3 19:56

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

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

试下附件传不传得上来

提问：