如何用VBA制作一个简易输入表单? 如何用vba制作一个简易输入表单格式

需求：用VBA制作一个输入表单，主要输入内容为：姓名、性别、年龄、职业、婚姻状况、简介。其中姓名为输入框，性别为下拉选择”男"和"女"，年龄为输入框，职业为输入框，婚姻状况为下拉选择“已婚"、"未婚"、"离异"、"丧偶"，简介为大段文本框。在EXCEL启动时同时启动表单。

答案：

请按照以下步骤使用VBA制作输入表单：

1. 打开Excel，按下ALT+F11打开Visual Basic Editor
2. 在左侧的Project Explorer中，找到你要添加表单的工作簿，右键点击它，并选择Insert -> UserForm
3. 在UserForm上拖动相应的控件，包括：姓名为文本框（TextBox），性别为组合框（ComboBox），年龄为文本框（TextBox），职业为文本框（TextBox），婚姻状况为组合框（ComboBox），简介为大段文本框（MultiLine TextBox）。
4. 对照第6条中的代码，为每个控件设置相应的属性，例如：给姓名文本框设置Name属性为"txtName"，给性别组合框设置Name属性为"cboGender"等等。
5. 编辑UserForm的代码，在"Userform_Activate()"事件中添加代码，以在Excel启动时同时启动该表单。代码如下：

Private Sub UserForm_Activate()
    Me.Show
End Sub

6. 在UserForm中添加一个“提交”按钮(Button)，并给它设置一个Click事件，以便在用户填写完表单后，通过点击该按钮将数据保存到Excel工作表中。代码示例如下：

Private Sub btnSubmit_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '更改为你要保存数据的工作表名称
    Dim lastRow As Long
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row '找到最后一行
    ws.Cells(lastRow + 1, 1) = Me.txtName.Value '将姓名保存到第一列的下一个空行
    ws.Cells(lastRow + 1, 2) = Me.cboGender.Value '将性别保存到第二列的下一个空行
    ws.Cells(lastRow + 1, 3) = Me.txtAge.Value '将年龄保存到第三列的下一个空行
    ws.Cells(lastRow + 1, 4) = Me.txtOccupation.Value '将职业保存到第四列的下一个空行
    ws.Cells(lastRow + 1, 5) = Me.cboMaritalStatus.Value '将婚姻状况保存到第五列的下一个空行
    ws.Cells(lastRow + 1, 6) = Me.txtIntroduction.Value '将简介保存到第六列的下一个空行
    
    MsgBox "数据已保存！", vbInformation, "提示" '弹出消息框，告知用户数据已保存
    Me.Hide '隐藏表单
End Sub

7. 编辑UserForm的代码，在"Userform_Initialize()"事件中添加代码，以初始化组合框（ComboBox）的选项。代码如下：

Private Sub UserForm_Initialize()
    '初始化性别组合框
    Me.cboGender.AddItem "男"
    Me.cboGender.AddItem "女"
    
    '初始化婚姻状况组合框
    Me.cboMaritalStatus.AddItem "已婚"
    Me.cboMaritalStatus.AddItem "未婚"
    Me.cboMaritalStatus.AddItem "离异"
    Me.cboMaritalStatus.AddItem "丧偶"
End Sub

8. 在代码编辑器中，选择该表单，然后按下F5或点击执行按钮，以运行此表单。

现在，当Excel启动时，Input Form表单会同时启动。用户可以填写表单，保存数据，并通过点击“提交”按钮将数据保存到Excel工作表中。