本段代码的使用是为了简化代码的输入，如果你和我一样不熟悉的话，就跳过去，多写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 语句出现结果就好了
