用Excel打印并保存记录的详细步骤与技巧
---
在工作中，经常需要打印一些票据或单据，并且希望将打印的数据方便地保存下来。比如，在每次打印销售单据时，同时也要将数据保存到另一个工作表中，以备后续核对和统计。这篇文章将介绍如何在Excel中实现这一功能。
设置两张工作表
首先，在同一工作簿中设置两张工作表，一张命名为“票据打印”，用于打印单据；另一张命名为“记录”，用于保存数据。在“票据打印”工作表中设计好所需的单据样式，包括单据编号、数量汇总公式、金额计算公式等。确保格式设置正确，比如日期格式等。
编写VBA代码
根据“票据打印”工作表中设计的项目，在“记录”工作表的第一行进行设置，以便数据保存的顺利进行。然后，通过VBA编写打印并保存数据的代码。插入一个用户模块，在其中粘贴以下代码：
```vba
Sub 打印()
'打印票据
Sheets("票据打印").Select
'保存数据
With Sheets("记录")
x .Range("a65536").End(xlUp).Row 1 '取得“记录”表中最后一个空行的行号（即写入位置）
For i 1 To 3 '商品信息分三行
.Cells(x i, 1) [b2] '客户
.Cells(x i, 2) [d2] '日期
.Cells(x i, 3) [e2] '单据编号
.Cells(x i, 4) Cells(i 3, 1) '商品名称
.Cells(x i, 5) Cells(i 3, 2) '规格
.Cells(x i, 6) Cells(i 3, 3) '数量
.Cells(x i, 7) Cells(i 3, 4) '单价
.Cells(x i, 8) Cells(i 3, 5) '金额
.Cells(x i, 9) [b8] '收款人
.Cells(x i, 10) [e8] '复核人
Next i
End With
'清除数据（单据编号E2格与有公式的单元格不用清除）
Range("b2,d2,a4:d6,b8,e8").ClearContents
'让票据的号码自动加1
s Range("e2")
Range("e2") Left(s, 2) Right("0000" Right(s, 4) 1, 4)
MsgBox "打印并保存完毕", , "提示"
End Sub
```
添加按钮并执行代码
为了方便执行上述代码，可以在Excel中添加一个按钮，并将其指定为执行“打印”宏。对于Excel 2003用户，可以通过“视图－工具栏－窗体”工具栏添加按钮；而对于Excel 2007及以上版本用户，则需在“开发工具－表单控件”中添加按钮。添加按钮后，命名为“打印并保存”，并在点击按钮后触发上述VBA代码的执行。
统计数据和灵活应用
通过以上操作，每次点击“打印并保存”按钮，数据将自动保存在“记录”表中。在需要统计数据时，可以使用Excel的函数来实现，比如SUM函数用于统计总销售金额，SUMIF函数用于筛选特定条件下的数据等。根据实际需求，适当调整代码中的项目对应关系，即可轻松应用于其他场景。
通过学习本文介绍的方法，希望您能掌握如何在Excel中打印并保存记录的技巧，并灵活运用于实际工作中。无论是处理销售单据还是其他类型的数据记录，都能借助这种方法轻松实现，提高工作效率和准确性。
---
这篇文章总结了如何在Excel中打印并保存记录的方法，从设置工作表到编写VBA代码再到添加按钮执行，详细介绍了每个步骤。通过学习本文，您可以轻松应用这一技巧，提升工作效率。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
