1、第一步：新建一个名为“销售开单系统表”的excel表格，并且填写好大致需要的框架内容。
2、第二步：点击“插入”。
3、第三步：在“形状”编辑栏下选择“矩形”工具。
4、第四步：选择矩形工具后便可在空白处绘制矩形控件。
5、第五步：右击矩形控件，在下拉框点击选择“编辑文字”。对控件进行命名。
6、第六步：点击“编辑文字”后，便可对控件进行命名“清除”。
7、第七步：再次右击“清除”控件，在下拉框点击选择“指定宏”。
8、第八步：点击“指定宏”之后，弹出新的对话框，位置选择“销售开单系统表”，然后点击“新建”。
9、第九步：点击“新建”后，填入以下代码：Sub 新增()Sheets(1).Range("A7:I300") = ""End Sub其中“A7：I300”是指需要清除的单元格。这个可以按照你自己的表格需要而改变的。比如你指需要清除A5和A9单元格，你可以写成：Sub 新增()Sheets(1).Range("A5") = ""Sheets(1).Range("A9") = ""End Sub
10、第十步：填写好代码之后，点击右上角的关闭按钮即可。
11、第十一步：再次右击“清除”宏控件，在新对话框依次选择位置为“销售开单系统表”，点击刚新建的“新增”宏代码，最后点击确定即可。
12、第十二步：重复第二步至第五步，新建一个新的矩形控件。
13、第十三步：对新的矩形控件命名为“保存”。
14、第十四步：重复第七步至第八步对新建的“保存”控件编辑宏代码。
15、第十五步：输入新的保存宏代码如下：Public Sub save1()Dim f, n%ThisWorkbook.Savef = Dir("d:\备份\" & Format(Now, "yyyy-mm-dd") & "*.xls")Do While f <> "" n = n + 1 f = DirLoopThisWorkbook.SaveCopyAs "d:\备份\" & Format(Now, "yyyy-mm-dd") & IIf(n = 0, "", n) & ".xls"End Sub注意：在新建保存宏代码之前需要再D盘新建一个名为“备份”的文件夹，专门来保存文件。
16、第十六步：再次右击“保存”宏控件，在新对话框依次选择位置为“销售开单系统表”，点击刚新建的“保存”宏代码，最后点击确定即可。
17、第十七步：同理，我们还可以新建一个“打印”宏的代码，以后直接点击打印控件就可以打印并且自动为销售开单表编号。打印宏的代洁船诼抨码如下：Sub 自动编号并打印()y = Format(Now, "mm")h4 = [h4]y2 = Mid(h4, 7, 2)If y = y2 Then h = Mid(h4, 9, 4)Else h = 0End If Range("h4") = "№:" & Format(Now, "yyyy") & y & Format(h + 1, "0000") ActiveWindow.SelectedSheets.PrintOutEnd Sub
