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

入庫(kù)單

保存效果

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

后來(lái)，就用VBA一鍵生成。今天，學(xué)員這個(gè)問(wèn)題，對(duì)當(dāng)年的代碼略作修改就可以用。

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

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

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

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

綠色字體部分是用來(lái)打印的，如果需要打印就前面的單引號(hào)去掉就可以。

Option Explicit

Sub 保存并打印001()

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

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

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 "確認(rèn)打印，并保存！"

'

End Sub

來(lái)源：Excel不加班

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

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

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

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