通过excel绘制表单代码

要通过Excel绘制表单，可以使用VBA编程语言来编写代码。下面是一个示例代码，用于在Excel中创建一个简单的表单：

Sub CreateForm()
    ' 定义变量
    Dim formSheet As Worksheet
    Dim dataSheet As Worksheet
    Dim form As Object
    Dim nameLabel As Object
    Dim ageLabel As Object
    Dim nameTextBox As Object
    Dim ageTextBox As Object
    Dim submitButton As Object
    
    ' 创建表单工作表
    Set formSheet = ThisWorkbook.Worksheets.Add
    formSheet.Name = "Form"
    
    ' 创建数据工作表
    Set dataSheet = ThisWorkbook.Worksheets.Add
    dataSheet.Name = "Data"
    
    ' 创建表单对象
    Set form = formSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
        Left:=10, Top:=10, Width:=100, Height:=20)
    form.Name = "NameTextBox"
    Set nameTextBox = form.Object
    nameTextBox.Text = ""
    
    Set form = formSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
        Left:=10, Top:=40, Width:=100, Height:=20)
    form.Name = "AgeTextBox"
    Set ageTextBox = form.Object
    ageTextBox.Text = ""
    
    Set form = formSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, _
        Left:=10, Top:=70, Width:=60, Height:=20)
    form.Name = "SubmitButton"
    Set submitButton = form.Object
    submitButton.Caption = "Submit"
    
    ' 添加标签
    formSheet.Cells(10, 2).Value = "Name:"
    formSheet.Cells(40, 2).Value = "Age:"
    
    ' 添加宏代码
    With submitButton
        .OnAction = "SubmitForm"
    End With
    
    ' 创建宏代码
    ThisWorkbook.VBProject.VBComponents.Add vbeComponentType:=vbext_ct_StdModule
    ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.AddFromString _
        "Sub SubmitForm()" & vbCrLf & _
        "    Dim name As String" & vbCrLf & _
        "    Dim age As Integer" & vbCrLf & _
        "    Dim lastRow As Long" & vbCrLf & vbCrLf & _
        "    ' 读取表单数据" & vbCrLf & _
        "    name = Worksheets(""Form"").OLEObjects(""NameTextBox"").Object.Text" & vbCrLf & _
        "    age = Worksheets(""Form"").OLEObjects(""AgeTextBox"").Object.Text" & vbCrLf & vbCrLf & _
        "    ' 将数据写入数据工作表" & vbCrLf & _
        "    lastRow = Worksheets(""Data"").Cells(Rows.Count, 1).End(xlUp).Row + 1" & vbCrLf & _
        "    Worksheets(""Data"").Cells(lastRow, 1).Value = name" & vbCrLf & _
        "    Worksheets(""Data"").Cells(lastRow, 2).Value = age" & vbCrLf & _
        "End Sub"
        
    ' 保存工作簿
    ThisWorkbook.Save
End Sub

将上述代码复制到Excel的VBA编辑器中（按下Alt + F11打开），然后运行CreateForm子程序即可创建表单。创建的表单将包含一个姓名文本框、一个年龄文本框和一个提交按钮。当用户点击提交按钮时，表单数据将被写入名为"Data"的工作表中的新行。

请注意，此代码仅适用于Microsoft Office中的Excel，并且需要启用开发人员选项卡