利用VBA代码在VBE里生成新窗体的代码

nothingwmm

1. Option Explicit
   
2. Sub MakeForm()
   
3.     Dim TempForm  As Object 'VB 组件
   
4.     Dim NewButton As Msforms.CommandButton
   
5.     Dim Line As Integer
   
6.     Dim TheForm
   
7. '   确认权限
   
8.     On Error Resume Next
   
9.     Dim x
   
10.     Set x = ActiveWorkbook.VBProject
    
11.     If Err <> 0 Then
    
12.         MsgBox "Your security settings do not allow this macro to run.", vbCritical
    
13.         On Error GoTo 0
    
14.         Exit Sub
    
15.     End If
    
16.    
    
17.     Application.VBE.MainWindow.Visible = False '编译器隐藏
    
18. '   创建Form
    
19.     Set TempForm = ThisWorkbook.VBProject. _
    
20.       VBComponents.Add(3) '添加窗体即 vbext_ct_MSForm
    
21.     With TempForm
    
22.         .Properties("Caption") = "Temporary Form"
    
23.         .Properties("Width") = 200
    
24.         .Properties("Height") = 100
    
25.     End With '设置窗体属性
    
26. '   添加命令按钮
    
27.     Set NewButton = TempForm.Designer.Controls _
    
28.       .Add("forms.CommandButton.1")
    
29.     With NewButton
    
30.         .Caption = "Click Me"
    
31.         .Left = 60
    
32.         .Top = 40
    
33.     End With '设置属性
    
34. '   为窗体添加代码
    
35.     With TempForm.CodeModule
    
36.         Line = .CountOfLines
    
37.         .InsertLines Line + 1, "Sub CommandButton1_Click()"
    
38.         .InsertLines Line + 2, "MsgBox ""Hello!"""
    
39.         .InsertLines Line + 3, "Unload Me"
    
40.         .InsertLines Line + 4, "End Sub"
    
41.     End With
    
42. '   显示窗体
    
43.     VBA.UserForms.Add(TempForm.Name).Show
    
44. '
    
45. '   删除窗体
    
46.     ThisWorkbook.VBProject.VBComponents.Remove TempForm
    
47. End Sub
    

复制代码

放浪形骸

向楼主学习撒

zlx1120

向楼主学习

xiaofei1989

VBE是什么东东？

韩立

学习

韩立

xiaofei1989 发表于 2016-2-1 09:36
VBE是什么东东？

vba是宏  vbe是编辑器  我理解的对？