修法布施得聪明智慧，多分享让生活更美好。Excel处理数据时，为了方便用窗体（对话框）进行输入数据，下面通过一实例分享Excel用窗体输入数据并保存的方法。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
实例问题
1、在Sheet1运行窗体，在Textbox输入数据完成后，点击提交自动保存到Shee隋茚粟胫t2指定位置。要求：每次提交后自动往下填写，并保存。2、每次生成序号。（百度知道问题）
处理方法/步骤
1、制作窗体：首先打开MicrosoftOfficeExcel2007，文件保存为《Excel怎样用窗体输入数据并保存》，如下图。
2、然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【用户窗体(U)】如图。
3、插入了一个窗体UserForm1，如图。
4、以上操作动态图如下
5、在窗体UserForm1添加4个【标签】控件：“料号”，“单价”，“数量”，“储位”4个【文本框】控件1个【命令按钮】控件
6、双击“提交”【命令按钮】控件，显示代代码框，显示PrivateSubCommandBu隋茚粟胫tton1_Click()EndSub把下面代洁船诼抨码替换上面PrivateSubCommandButton1_Click()'2020-6-1322:14:50DimrAsLongr=Sheets("Sheet2").Range("a"&Rows.Count).End(xlUp).Row+1Ifr=2ThenSheets("Sheet2").Range("a"&r).Value=1ElseSheets("Sheet2").Range("a"&r).Value=Sheets("Sheet2").Range("a"&r-1).Value+1EndIfSheets("Sheet2").Range("b"&r).Value=TextBox1.TextSheets("Sheet2").Range("c"&r).Value=TextBox2.TextSheets("Sheet2").Range("d"&r).Value=TextBox3.TextSheets("Sheet2").Range("e"&r).Value=TextBox4.TextThisWorkbook.SaveEndSub
7、回到工作表窗口，在Sheet1添加命令按钮（ActiveX控件)：“CommandButton1”。
8、双击“CommandButton1”命令按钮打开VBE窗口。PrivateSubCom葡矩酉缸mandButton1_Click烫喇霰嘴()EndSub把下面代码替换上面：PrivateSubCommandButton1_Click()'2020-6-1322:20:10UserForm1.ShowEndSub
9、回到工作表窗口，取消设计模式，双击“CommandButton1”命令按钮，打开录入窗体，录入如果如下。
10、为了更直观输入情况，将锞蕈漉栽“CommandButton1”命令按钮代码改为PrivateSubCommandButton1忧溲枷茫_Click()'2020-6-1322:20:10UserForm1.Show(0)EndSub加了（0）可以不关闭窗体时操作Excel。运行情况如下：
11、如果觉得这篇经验帮到了您，请点击下方的“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！