vba简单窗体录入实例
    VBA(VisualBasicforApplications)是一种宏语言，常用于 Microsoft Office 应用程序中，如 Excel、Word、Access 等。在 Excel 中，使用 VBA 编写宏可以实现自动化操作，提高工作效率。本文将介绍如何使用 VBA 在 Excel 中创建简单的窗体并进行数据录入。
    1. 创建窗体
    首先，打开 Excel，按下 ALT + F11 打开 Visual Basic 编辑器。在左侧的“项目浏览器”中，双击“这台电脑”下的“VBAProject（YOUR_WORKBOOK_NAME.xls）”，然后双击“Microsoft Excel 对象”下的“Sheet1（工作表1）”。在右侧的代码窗口中，输入以下代码：
    Private Sub CommandButton1_Click()
    UserForm1.Show
    End Sub
    这段代码的作用是，在 Sheet1 中创建一个按钮，单击该按钮将显示一个名为 UserForm1 弹出窗口代码编写
的窗体。现在，我们需要创建 UserForm1。
    在左侧的“项目浏览器”中，右键单击“VBAProject（YOUR_WORKBOOK_NAME.xls）”，选择“插入”->“用户窗体”，命名为“UserForm1”。在 UserForm1 中，添加以下控件：
    - 一个标签（Label），命名为“lblName”，用于显示“姓名”。
    - 一个文本框（TextBox），命名为“txtName”，用于输入姓名。
    - 一个标签，命名为“lblAge”，用于显示“年龄”。
    - 一个文本框，命名为“txtAge”，用于输入年龄。
    - 一个按钮（CommandButton），命名为“btnOK”，用于确认录入。
    2. 录入数据
    现在，我们需要编写 VBA 代码，在窗体中录入数据，并将数据写入 Sheet1 中。
    在 UserForm1 中，双击“btnOK”按钮，进入该按钮的“点击”事件处理程序。在代码窗口中
输入以下代码：
    Private Sub btnOK_Click()
    Dim name As String
    Dim age As Integer
   
    name = txtName.Value
    age = Val(txtAge.Value)
   
    If name = '' Or age = 0 Then
    MsgBox '请输入姓名和年龄！', vbExclamation, '错误'
    Exit Sub
    End If
   
    Dim row As Integer
    row = Sheet1.Cells(Rows.Count, 'A').End(xlUp).Row + 1
   
    Sheet1.Cells(row, 'A').Value = name
    Sheet1.Cells(row, 'B').Value = age
   
    MsgBox '录入成功！', vbInformation, '提示'
    End Sub
    这段代码的作用是，读取文本框“txtName”和“txtAge”中输入的姓名和年龄，判断是否为空，然后将姓名和年龄写入 Sheet1 的下一行。最后，弹出提示框，提示录入成功。现在，我们需要添加一个关闭窗体的功能。
    在 UserForm1 中，双击窗体，进入窗体的“Unload”事件处理程序。在代码窗口中输入以下代码：
    Private Sub UserForm_Terminate()
    Unload Me
    End Sub
    这段代码的作用是，关闭窗体。
    3. 测试
    现在，我们已经编写好了 VBA 代码，在 Excel 中创建了一个简单的窗体，并实现了数据录入功能。我们可以回到 Excel，切换到 Sheet1，然后单击“按钮1”，即可打开窗体。在窗体
中输入姓名和年龄，单击“确认”按钮，即可将数据写入 Sheet1。录入数据后，可以再次单击“按钮1”，打开窗体，继续录入数据，也可以关闭窗体。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。