28 在现存对象中添加代码

本段代码的使用是为了简化代码的输入，如果你和我一样不熟悉的话，就跳过去，多写2句代码算了

这次是打算使用VBE来工作的，有这个例子，

先看第一个

Sub test1()
Dim i As Integer
Dim myVBE As VBE
Set myVBE = Application.VBE
With myVBE.ActiveCodePane.CodeModule
i = .ProcBodyLine("CommandButton1_Click", vbext_pk_Proc)
.InsertLines i + 1, "1"
i = .ProcBodyLine("CommandButton2_Click", vbext_pk_Proc)
.InsertLines i + 1, "1"
i = .ProcBodyLine("CommandButton3_Click", vbext_pk_Proc)
.InsertLines i + 1, "1"
End With

Set myVBE = Nothing
End Sub

'你还需要写三个空的 command_click

Private Sub CommandButton1_Click()

End Sub
Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

代码里的 1 是我简化的 你可以写一个函数的名字 于是运行的时候 就会调用它

运行的结果是

Private Sub CommandButton1_Click()
1
1
1
1

End Sub
Private Sub CommandButton2_Click()
1
1
1
1

End Sub

Private Sub CommandButton3_Click()
1
1
1
1

End Sub

按几下F5 就多少个 1。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

另一个例子差不多

Sub test1()

Dim iLineNum As Integer

Dim myVBE As VBE

Set myVBE = Application.VBE

With myVBE.CodePanes.Item(1).CodeModule

iLineNum = .ProcBodyLine("CommandButton1_Click", vbext_pk_Proc)

.InsertLines iLineNum + 1, "SelectColor"

iLineNum = .ProcBodyLine("CommandButton2_Click", vbext_pk_Proc)

.InsertLines iLineNum + 1, "SelectLike"

iLineNum = .ProcBodyLine("CommandButton3_Click", vbext_pk_Proc)

.InsertLines iLineNum + 1, "ListObjects"

End With

Set myVBE = Nothing

End Sub

三个commdand一样

大家注意 With myVBE.CodePanes.Item(1).CodeModule 和前者不同
这里，SelectColor被看作函数 如果没有建立这几个函数 就会提醒你 但是command 里并不出现代码

具体的差别，大家慢慢研究

不烦随便写几个 SelectColor 等函数
只要在 command 语句出现结果就好了