---在工作中，經(jīng)常需要打印一些票據(jù)或單據(jù)，并且希望將打印的數(shù)據(jù)方便地保存下來。比如，在每次打印銷售單據(jù)時(shí)，同時(shí)也要將數(shù)據(jù)保存到另一個(gè)工作表中，以備后續(xù)核對(duì)和統(tǒng)計(jì)。這篇文章將介紹如何在Excel中實(shí)現(xiàn)

---

在工作中，經(jīng)常需要打印一些票據(jù)或單據(jù)，并且希望將打印的數(shù)據(jù)方便地保存下來。比如，在每次打印銷售單據(jù)時(shí)，同時(shí)也要將數(shù)據(jù)保存到另一個(gè)工作表中，以備后續(xù)核對(duì)和統(tǒng)計(jì)。這篇文章將介紹如何在Excel中實(shí)現(xiàn)這一功能。

設(shè)置兩張工作表

首先，在同一工作簿中設(shè)置兩張工作表，一張命名為“票據(jù)打印”，用于打印單據(jù)；另一張命名為“記錄”，用于保存數(shù)據(jù)。在“票據(jù)打印”工作表中設(shè)計(jì)好所需的單據(jù)樣式，包括單據(jù)編號(hào)、數(shù)量匯總公式、金額計(jì)算公式等。確保格式設(shè)置正確，比如日期格式等。

編寫VBA代碼

根據(jù)“票據(jù)打印”工作表中設(shè)計(jì)的項(xiàng)目，在“記錄”工作表的第一行進(jìn)行設(shè)置，以便數(shù)據(jù)保存的順利進(jìn)行。然后，通過VBA編寫打印并保存數(shù)據(jù)的代碼。插入一個(gè)用戶模塊，在其中粘貼以下代碼：

```vba

Sub 打印()

'打印票據(jù)

Sheets("票據(jù)打印").Select

'保存數(shù)據(jù)

With Sheets("記錄")

x .Range("a65536").End(xlUp).Row 1 '取得“記錄”表中最后一個(gè)空行的行號(hào)（即寫入位置）

For i 1 To 3 '商品信息分三行

.Cells(x i, 1) [b2] '客戶

.Cells(x i, 2) [d2] '日期

.Cells(x i, 3) [e2] '單據(jù)編號(hào)

.Cells(x i, 4) Cells(i 3, 1) '商品名稱

.Cells(x i, 5) Cells(i 3, 2) '規(guī)格

.Cells(x i, 6) Cells(i 3, 3) '數(shù)量

.Cells(x i, 7) Cells(i 3, 4) '單價(jià)

.Cells(x i, 8) Cells(i 3, 5) '金額

.Cells(x i, 9) [b8] '收款人

.Cells(x i, 10) [e8] '復(fù)核人

Next i

End With

'清除數(shù)據(jù)（單據(jù)編號(hào)E2格與有公式的單元格不用清除）

Range("b2,d2,a4:d6,b8,e8").ClearContents

'讓票據(jù)的號(hào)碼自動(dòng)加1

s Range("e2")

Range("e2") Left(s, 2) Right("0000" Right(s, 4) 1, 4)

MsgBox "打印并保存完畢", , "提示"

End Sub

```

添加按鈕并執(zhí)行代碼

為了方便執(zhí)行上述代碼，可以在Excel中添加一個(gè)按鈕，并將其指定為執(zhí)行“打印”宏。對(duì)于Excel 2003用戶，可以通過“視圖－工具欄－窗體”工具欄添加按鈕；而對(duì)于Excel 2007及以上版本用戶，則需在“開發(fā)工具－表單控件”中添加按鈕。添加按鈕后，命名為“打印并保存”，并在點(diǎn)擊按鈕后觸發(fā)上述VBA代碼的執(zhí)行。

統(tǒng)計(jì)數(shù)據(jù)和靈活應(yīng)用

通過以上操作，每次點(diǎn)擊“打印并保存”按鈕，數(shù)據(jù)將自動(dòng)保存在“記錄”表中。在需要統(tǒng)計(jì)數(shù)據(jù)時(shí)，可以使用Excel的函數(shù)來實(shí)現(xiàn)，比如SUM函數(shù)用于統(tǒng)計(jì)總銷售金額，SUMIF函數(shù)用于篩選特定條件下的數(shù)據(jù)等。根據(jù)實(shí)際需求，適當(dāng)調(diào)整代碼中的項(xiàng)目對(duì)應(yīng)關(guān)系，即可輕松應(yīng)用于其他場(chǎng)景。

通過學(xué)習(xí)本文介紹的方法，希望您能掌握如何在Excel中打印并保存記錄的技巧，并靈活運(yùn)用于實(shí)際工作中。無論是處理銷售單據(jù)還是其他類型的數(shù)據(jù)記錄，都能借助這種方法輕松實(shí)現(xiàn)，提高工作效率和準(zhǔn)確性。

---

這篇文章總結(jié)了如何在Excel中打印并保存記錄的方法，從設(shè)置工作表到編寫VBA代碼再到添加按鈕執(zhí)行，詳細(xì)介紹了每個(gè)步驟。通過學(xué)習(xí)本文，您可以輕松應(yīng)用這一技巧，提升工作效率。