vba创建窗体例子

1、窗体设计

2、窗体代码

Option Explicit


Private Sub UserForm_Initialize()
    '设置复合框的条目内容为"男"和"女"
    性别.List = Array("男", "女")
End Sub

Private Sub 确定_Click()
'判断信息是否输入完整
    If 姓名.Value = "" Or 性别.Value = "" Or 出生年月.Value = "" Then
        MsgBox "信息输入不完整，请重新输入！", vbExclamation, "错误提示"
        Exit Sub                '退出执行程序
    End If
    Dim xrow As Integer
    xrow = Range("A1").CurrentRegion.Rows.Count + 1    '求第一条空行行号
    '将姓名、性别、出生年月写入第一条空行
    Cells(xrow, "A") = 姓名.Value
    Cells(xrow, "B") = 性别.Value
    Cells(xrow, "C") = 出生年月.Value
    '内容写进工作表后，将控件中的内容清除
    姓名.Value = ""
    性别.Value = ""
    出生年月.Value = ""
End Sub

Private Sub 退出_Click()
     Unload Me      '卸载录入窗体
End Sub

3、模块代码

Option Explicit
Sub XianShi()
    Load 录入      '装载“录入”窗体
    录入.Show      '显示“录入”窗体
End Sub