修法布施得聪明智慧，多分享让生活更美好。Excel处理数据时，为了方便用窗体（对话框）进行输入数据，下面通过一实例分享Excel用窗体输入数据并保存的方法。工具/原料moreMicrosoft Office Excel 2007Excel VBA实例问题1/1分步阅读

在Sheet1运行窗体，在Textbox输入数据完成后，点击提交自动保存到Sheet2指定位置。要求：1、每次提交后自动往下填写，并保存。2 、每次生成序号。（百度知道问题）

处理方法/步骤1/11

制作窗体：首先打开Microsoft Office Excel 2007，文件保存为《Excel怎样用窗体输入数据并保存》，如下图。

2/11

然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【用户窗体(U)】如图。

3/11

插入了一个窗体UserForm1，如图。

4/11

以上操作动态图如下

5/11

在窗体UserForm1添加

4个【标签】控件：“料号”，“单价”，“数量”，“储位”

4个【文本框】控件

1个【命令按钮】控件

6/11

双击“提交”【命令按钮】控件，显示代代码框，显示

Private Sub CommandButton1_Click()

End Sub

把下面代码替换上面

Private Sub CommandButton1_Click()

2020-6-13 22:14:50

Dim r As Long

r = Sheets(Sheet2).Range(a Rows.Count).End(xlUp).Row + 1

If r = 2 Then

Sheets(Sheet2).Range(a r).Value = 1

Else

Sheets(Sheet2).Range(a r).Value = Sheets(Sheet2).Range(a r - 1).Value + 1

End If

Sheets(Sheet2).Range(b r).Value = TextBox1.Text

Sheets(Sheet2).Range(c r).Value = TextBox2.Text

Sheets(Sheet2).Range(d r).Value = TextBox3.Text

Sheets(Sheet2).Range(e r).Value = TextBox4.Text

ThisWorkbook.Save

End Sub

7/11

回到工作表窗口，在Sheet1添加命令按钮（ActiveX控件)：“CommandButton1”。

8/11

双击“CommandButton1”命令按钮打开VBE窗口。

Private Sub CommandButton1_Click()

End Sub

把下面代码替换上面：

Private Sub CommandButton1_Click()

2020-6-13 22:20:10

UserForm1.Show

End Sub

9/11

回到工作表窗口，取消设计模式，双击“CommandButton1”命令按钮，打开录入窗体，录入如果如下。

10/11

为了更直观输入情况，将“CommandButton1”命令按钮代码改为

Private Sub CommandButton1_Click()

2020-6-13 22:20:10

UserForm1.Show(0)

End Sub

加了（0）可以不关闭窗体时操作Excel。

运行情况如下：

11/11

如果觉得这篇经验帮到了您，请点击下方的 “投票点赞 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！

注意事项

动态图片要双击成单独大图才能播放全过程。

EXCEL窗体录入VBA