VBA常用技巧代码解析

ykx042907 · 发表于 2009-5-12 15:07

袁版主：您好！
工具-->引用中没有丢失什么引用呀!

gaohaimiss · 发表于 2009-5-12 16:41

控件跟随活动单元格的时候，不允许粘贴是什么原因

yuanzhuping · 发表于 2009-5-12 16:53

技巧150 使用代码添加窗体及控件
VBA中的用户窗体为用户提供了可视化的操作界面，在用户窗体中一般都包含控件以便与用户进行交互。我们通常是在VBE中使用菜单“插入”→“用户窗体”来创建用户窗体，然后拖动工具箱中的控件到用户窗体中，也可以使用代码来添加用户窗体及其控件，代码如下：

#001 Private Sub CommandButton1_Click()
#002 Dim myForm As VBComponent
#003 Dim myTextBox As Control
#004 Dim myButton As Control
#005 Dim i As Integer
#006 Set myForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
#007 With myForm
#008 .Properties("Name") = "Formtest"
#009 .Properties("Caption") = "演示窗体"
#010 .Properties("Height") = "180"
#011 .Properties("Width") = "240"
#012 Set myTextBox = .Designer.Controls.Add("Forms.CommandButton.1")
#013 With myTextBox
#014 .Name = "myTextBox"
#015 .Caption = "新建文本框"
#016 .Top = 40
#017 .Left = 138
#018 .Height = 20
#019 .Width = 70
#020 End With
#021 Set myButton = .Designer.Controls.Add("Forms.CommandButton.1")
#022 With myButton
#023 .Name = "myButton"
#024 .Caption = "删除文本框"
#025 .Top = 70
#026 .Left = 138
#027 .Height = 20
#028 .Width = 70
#029 End With
#030 With .CodeModule
#031 i = .CreateEventProc("Click", "myTextBox")
#032 .ReplaceLine i + 1, Space(4) & "Dim myTextBox As Control" & Chr(10) & Space(4) & "Dim i As Integer" & Chr(10) & Space(4) & "Dim k As Integer" _
#033 & Chr(10) & Space(4) & "k = 10" & Chr(10) & Space(4) & "For i = 1 To 5" & Chr(10) & Space(8) & "Set myTextBox = Me.Controls.Add(bstrprogid:=""Forms.TextBox.1"")" _
#034 & Chr(10) & Space(8) & "With myTextBox" & Chr(10) & Space(12) & ".Name = ""myTextBox"" & i" & Chr(10) & Space(12) & ".Left = 20" _
#035 & Chr(10) & Space(12) & ".Top = k" & Chr(10) & Space(12) & ".Height = 18" & Chr(10) & Space(12) & ".Width = 80" _
#036 & Chr(10) & Space(12) & "k = .Top + 28" & Chr(10) & Space(8) & "End With" & Chr(10) & Space(4) & "Next"
#037 i = .CreateEventProc("Click", "myButton")
#038 .ReplaceLine i + 1, Space(4) & "Dim i As Integer" & Chr(10) & Space(4) & "On Error Resume Next" & Chr(10) & Space(4) & "For i = 1 To 5" & Chr(10) & Space(8) & "Formtest.Controls.Remove ""myTextBox"" & i" & Chr(10) & Space(4) & "Next"
#039 End With
#040 End With
#041 End Sub

复制代码

代码解析：
   使用代码添加一个用户窗体及其两个按钮控件，并为按钮控件添加单击事件及其相应的代码。
   第2行到第5行代码声明变量类型，如果发生错误请在菜单“工具”→“引用”中引用“Microsoft Visual Basic for Applications Extensibility 5.3”，如图所示。

   第6行代码，使用Add方法添加用户窗体，应用于VBComponents集合的Add方法将一个对象添加到集合，语法如下：
   object.Add(component)
   参数object是必需的，一个有效的对象名。
   参数component是必需的，对于VBComponents集合，则为表示类模块、窗体、标准模块的列举常数，可以为表格所示的常量之一。

   第8行到第11行代码，使用VBComponent对象的Properties属性设置用户窗体的相关属性。
   第12行代码，使用Add方法添加在用户窗体上添加一个按钮控件。VBComponent对象的Designer属性返回一个设计器对象，其Controls属性返回Controls集合，代表用户窗体中所有的控件。应用于Controls集合对象的Add方法在用户窗体中添加控件，语法如下：
   object.Add( ProgID [, Name [, Visible]])
   参数object是必需的，一个有效的对象名。
   参数ProgID是必需的，程序设计标识符。是用于标识对象类的、没有空格的文本串。关于程序设计标识符请参阅技巧119-3中的表格。
   参数Name是可选的，指定被添加的对象的名称。
   参数Visible是可选的，若对象为可见的为True，若对象为隐藏的则为False。默认值为True。
   第13行到第20行代码设置添加的按钮控件的相关属性。
   第21行到第29行代码继续添加一个按钮控件并设置其相关属性。
   第30行到第40行代码为添加的按钮控件创建单击事件过程并在其单击事件中添加代码。
   其中第30、39行代码使用CreateEventProc方法为按钮控件创建单击事件过程，应用于CodeModule对象的CreateEventProc方法创建一个事件过程，语法如下：
   object.CreateEventProc(eventname, objectname) As Long
   参数object是必需的，一个有效的对象名。
   参数eventname是必需的，字符串表达式，用来指定欲添加到模块的事件名称。
   参数objectname是必需的，字符串表达式，用来指定事件源的对象名称。
   CreateEventProc方法可返回事件过程的开始行，所以使用变量i保存开始行。
   第32行代码使用ReplaceLine方法在按钮控件的单击事件过程中添加代码，应用于CodeModule对象的ReplaceLine方法用特定的代码代替原代码，语法如下：
   object.ReplaceLine(line, code)
   参数object是必需的，一个有效的对象名。
   参数line是必需的，用来指定所要代替的行。
   参数code是必需的，用来指定要插入的代码。
   在使用ReplaceLine方法时将line参数设置为变量i加1，也就是在单击事件过程的第2行开始添加代码，在添加代码时使用Space函数插入空格，使用Chr函数进行换行。
   运行CommandButton1_Click过程，添加一个用户窗体及两个按钮控件，并在用户窗体中添加以下的代码：

#001 Private Sub myTextBox_Click()
#002 Dim myTextBox As Control
#003 Dim i As Integer
#004 Dim k As Integer
#005 k = 10
#006 For i = 1 To 5
#007 Set myTextBox = Me.Controls.Add("Forms.TextBox.1")
#008 With myTextBox
#009 .Name = "myTextBox" & i
#010 .Left = 20
#011 .Top = k
#012 .Height = 18
#013 .Width = 80
#014 k = .Top + 28
#015 End With
#016 Next
#017 End Sub
#018 Private Sub myButton_Click()
#019 Dim i As Integer
#020 On Error Resume Next
#021 For i = 1 To 5
#022 Formtest.Controls.Remove "myTextBox" & i
#023 Next
#024 End Sub

复制代码

代码解析：
   第1行到第17行代码，用户窗体中“新建文本框”按钮的单击事件，在用户窗体运行时使用Add方法在用户窗体中添加5个文本框控件并设置其相关属性。
   第18行到第24行代码，用户窗体中“删除文本框”按钮的单击事件，在用户窗体运行时使用Remove方法删除文本框控件。应用于Controls集合的Remove方法从集合中删除一个成员，或者从框架、页面或窗体中删除一个控件，语法如下：
   object.Remove( collectionindex)
   参数object是必需的，一个有效的对象名。
   参数collectionindex是必需的，成员在集合内的位置或索引。
   注意 Remove方法只能删除在运行时间添加的控件，如果想删除在设计时间添加的控件则会出错。
   运行CommandButton1_Click过程添加的用户窗体如图所示。

单击“添加文本框”按钮在用户窗体中添加5个文本框控件，如图所示，而单击“删除文本框”按钮则删除用户窗体中添加的文本框控件。

[ 本帖最后由 yuanzhuping 于 2009-5-18 14:54 编辑 ]

入孝出悌 · 发表于 2009-5-12 20:09

yuanzhuping君明显加快上贴速度。注意身体！

ywgphy2 · 发表于 2009-5-12 23:08

haohaoaho9

Robby_cheng · 发表于 2009-5-12 23:36

我一直在学习BVA，总是找不到好的方法，总是这样学习几天停下来了，看到版主的深入浅出的讲解，才豁然开朗，仔细学习体会，相信我慢慢会学习下去，谢谢版主这样无私奉献的好人。

gaohaimiss · 发表于 2009-5-13 10:33

控件跟随活动单元格的时候，不允许粘贴是什么原因，很急

yuanzhuping · 发表于 2009-5-13 15:38

从开贴到第8部分的完成，不行不觉的已有三个多月了，现在发现每天更新真的好累，决定给自己放几天假，第9部分从星期一开始更新，可能速度要慢点了（呵呵，我把贴子标题也改了

）。

下面是1—8部分的Word文档，请下完5个WinRAR文件后一起解压缩。

VBA常用技巧(1_8).part1.rar (1.91 MB, 下载次数: 7597)

VBA常用技巧(1_8).part2.rar (1.91 MB, 下载次数: 8500)

VBA常用技巧(1_8).part3.rar (1.91 MB, 下载次数: 8297)

VBA常用技巧(1_8).part4.rar (1.91 MB, 下载次数: 8154)

VBA常用技巧(1_8).part5.rar (3.51 KB, 下载次数: 3253)

下面是1—8部分的附件，请下完3个WinRAR文件后一起解压缩。

示例文件(1_8).part1.rar (1.91 MB, 下载次数: 10022)

示例文件(1_8).part2.rar (1.91 MB, 下载次数: 8818)

示例文件(1_8).part3.rar (1.29 MB, 下载次数: 7641)

[ 本帖最后由 yuanzhuping 于 2009-5-13 16:14 编辑 ]

ykx042907 · 发表于 2009-5-13 16:08

尊敬的袁老师：您好！
您为了贡献于人类，花费您大量地时间与精力，实在难能可贵；
您为了我们这些EXCEL VBA菜鸟们，不辞辛劳，实在令人敬佩；
在这里，本人由衷地感谢您的功绩！谢谢！谢谢！谢谢~~~~~~

aooki · 发表于 2009-5-13 17:18

衷心的感谢！
努力学习中....

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

VBA常用技巧代码解析

回答

控件跟随活动单元格的问题

第8部分控件与用户窗体

ddddddddddddd

评分

为什么不回答

感谢

感谢！

VBA常用技巧代码解析

回答

控件跟随活动单元格的问题

第8部分 控件与用户窗体

ddddddddddddd

评分

为什么不回答

感谢

感谢！

第8部分控件与用户窗体