Excel如何利用宏制作销售开单系统表

电脑

Excel软件

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

第二步：点击“插入”。

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

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

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

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

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

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

第九步：点击“新建”后，填入以下代码：Sub 新增() Sheets(1).Range('A7:I300') = '' End Sub其中“A7：I300”是指需要清除的单元格。这个可以按照你自己的表格需要而改变的。比如你指需要清除A5和A9单元格，你可以写成：Sub 新增()Sheets(1).Range('A5') = ''Sheets(1).Range('A9') = '' End Sub

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

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

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

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

第十五步：输入新的保存宏代码如下：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盘新建一个名为“备份”的文件夹，专门来保存文件。

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

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