存書和出單都大同小異，一般在填寫相關(guān)數(shù)據(jù)后打印出來，然后將圓圈引用到其他表中存檔。

入庫單

保存效果

10年前我就是做這個工作的，那時我的出入庫單到此都是合并單元格，需要分好多次復(fù)制才能將數(shù)據(jù)保存到另外的工作表。每天大概花半小時在復(fù)制粘貼。

后來，就用VBA一鍵生成。今天，學(xué)員這個問題，對當年的代碼略作修改就可以用。

現(xiàn)在我已經(jīng)錄入好數(shù)據(jù)，看看VBA的效果?？丶钦{(diào)整入庫單號用的，打印并保存的按鈕是執(zhí)行打印和保存的工作的，因為我電腦現(xiàn)在沒有連接打印機，打印的代碼被我禁用了。

這一步平常一定要做，月底統(tǒng)計和對賬會用到。

財務(wù)工作中，你是否遇到焦頭爛額不知如何解決的問題呢？

（此處已添加小程序，請到今日頭條客戶端查看）

綠色字體部分是用來打印的，如果需要打印就前面的單引號去掉就可以。

Option Explicit

Sub 保存并打印001()

Dim i&, j&, k&, sh As Worksheet

Set sh = Sheets("主材入庫單")

i = 7

Do While (i, "C") <> ""

i = i + 1

j = j + 1

Loop

With Sheets("歷史數(shù)據(jù)保存")

k = .U + 1

.Columns(1).NumberFormatLocal = "yyyy/mm/dd"

.Cells(k, 1).Resize(j, 1) = Date

.Cells(k, 2).Resize(j, 1) = ("i2")

.Cells(k, 3).Resize(j, 9) = ("c7:K" & i).Value

End With

'MsgBox "確認打印，并保存！"

'

End Sub

來源：Excel不加班

這里相信有許多想要學(xué)習(xí)會計的同學(xué)，大家可以關(guān)注小編頭條號，

下方評論區(qū)留言：想要學(xué)習(xí)，并收藏本文；私信小編：學(xué)習(xí)

即可領(lǐng)取一整套系統(tǒng)的會計學(xué)習(xí)資料！還可以免費試學(xué)會計課程15天！

因領(lǐng)取人數(shù)太多，不能及時回復(fù)，請大家耐心等待。。。。