作为一个销售，每次接到新订单是否都要填制销售开单表，那么今天我就教大家用宏做一份便捷容易的开单表，只需点击控件即可清除上次已填内容，自动保存文件到指定文件夹，并且自动编号打印销售开单表。是不是很期待，下面一起来学习吧。工具/原料more电脑Excel软件方法/步骤1/17分步阅读

第一步：新建一个名为“销售开单系统表”的excel表格，并且填写好大致需要的框架内容。

2/17

第二步：点击“插入”。

3/17

第三步：在“形状”编辑栏下选择“矩形”工具。

4/17

第四步：选择矩形工具后便可在空白处绘制矩形控件。

5/17

第五步：右击矩形控件，在下拉框点击选择“编辑文字”。对控件进行命名。

6/17

第六步：点击“编辑文字”后，便可对控件进行命名“清除”。

7/17

第七步：再次右击“清除”控件，在下拉框点击选择“指定宏”。

8/17

第八步：点击“指定宏”之后，弹出新的对话框，位置选择“销售开单系统表”，然后点击“新建”。

9/17

第九步：点击“新建”后，填入以下代码：

Sub 新增()

Sheets(1).Range(A7:I300) =

End Sub

其中“A7：I300”是指需要清除的单元格。这个可以按照你自己的表格需要而改变的。比如你指需要清除A5和A9单元格，你可以写成：

Sub 新增()

Sheets(1).Range(A5) =

Sheets(1).Range(A9) =

End Sub

10/17

第十步：填写好代码之后，点击右上角的关闭按钮即可。

11/17

第十一步：再次右击“清除”宏控件，在新对话框依次选择位置为“销售开单系统表”，点击刚新建的“新增”宏代码，最后点击确定即可。

12/17

第十二步：重复第二步至第五步，新建一个新的矩形控件。

13/17

第十三步：对新的矩形控件命名为“保存”。

14/17

第十四步：重复第七步至第八步对新建的“保存”控件编辑宏代码。

15/17

第十五步：输入新的保存宏代码如下：

Public Sub save1()

Dim f, n%

ThisWorkbook.Save

f = Dir(d:\备份\ Format(Now, yyyy-mm-dd) *.xls)

Do While f

n = n + 1

f = Dir

Loop

ThisWorkbook.SaveCopyAs d:\备份\ Format(Now, yyyy-mm-dd) IIf(n = 0, , n) .xls

End Sub

注意：在新建保存宏代码之前需要再D盘新建一个名为“备份”的文件夹，专门来保存文件。

16/17

第十六步：再次右击“保存”宏控件，在新对话框依次选择位置为“销售开单系统表”，点击刚新建的“保存”宏代码，最后点击确定即可。

17/17

第十七步：同理，我们还可以新建一个“打印”宏的代码，以后直接点击打印控件就可以打印并且自动为销售开单表编号。

打印宏的代码如下：

Sub 自动编号并打印()

y = Format(Now, mm)

h4 =

y2 = Mid(h4, 7, 2)

If y = y2 Then

h = Mid(h4, 9, 4)

Else

h = 0

End If

Range(h4) = №: Format(Now, yyyy) y Format(h + 1, 0000)

ActiveWindow.SelectedSheets.PrintOut

End Sub

注意事项

需要表格模板的可以联系我哟