需求：用VBA制作一个输入表单，主要输入实践为：姓名、性别、年齿、事业、婚配现象、简介。其中姓名为输入框，性别为下拉选拔”男'和'女'，年齿为输入框，事业为输入框痴汉十人队，婚配现象为下拉选拔“已婚'、'独身'、'分辨'、'丧偶'，简介为大段文本框。在EXCEL启动时同期启动表单。
谜底：
请按照以下身手使用VBA制作输入表单：
怒放Excel，按下ALT+F11怒放Visual Basic Editor在左侧的Project Explorer中，找到你要添加表单的使命簿，右键点击它，并选拔Insert -> UserForm在UserForm上拖动相应的控件，包括：姓名为文本框（TextBox），性别为组合框（ComboBox），年齿为文本框（TextBox），事业为文本框（TextBox），婚配现象为组合框（ComboBox），简介为大段文本框（MultiLine TextBox）。对照第6条中的代码，为每个控件拓荒相应的属性，举例：给姓名文本框拓荒Name属性为'txtName'，给性别组合框拓荒Name属性为'cboGender'等等。裁剪UserForm的代码，在'Userform_Activate()'事件中添加代码，以在Excel启动时同期启动该表单。代码如下：Private Sub UserForm_Activate() Me.ShowEnd Sub在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裁剪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在代码裁剪器中，选拔该表单，然后按下F5或点击实行按钮，以运行此表单。当今，当Excel启动时，Input Form表单会同期启动。用户不错填写表单，保存数据，并通过点击“提交”按钮将数据保存到Excel使命表中。
色电影图片痴汉十人队
本站仅提供存储事业，整个实践均由用户发布，如发现存害或侵权实践，请点击举报。