使用Excel VBA生成供應(yīng)鏈憑證

［摘 要］ 從物資供應(yīng)鏈系統(tǒng)中導(dǎo)出物資收發(fā)存Excel數(shù)據(jù)，運(yùn)用Excel VBA編寫(xiě)程序生成符合財(cái)務(wù)軟件要求的導(dǎo)入數(shù)據(jù)，完成大量供應(yīng)鏈憑證錄入工作，實(shí)現(xiàn)數(shù)據(jù)準(zhǔn)確、工作簡(jiǎn)化的目的。

［關(guān)鍵詞］ Excel VBA；導(dǎo)入；財(cái)務(wù)軟件；供應(yīng)鏈；憑證

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 17. 002

［中圖分類(lèi)號(hào)］ F232 ［文獻(xiàn)標(biāo)識(shí)碼］ A ［文章編號(hào)］ 1673 - 0194（2012）17- 0003- 06

在財(cái)務(wù)工作中經(jīng)常與Excel打交道，如果再學(xué)習(xí)一些ＶＢＡ知識(shí)，就可以幫助我們解決工作中需要解決的問(wèn)題。ＶＢＡ是Oｆｆｉｃｅ組件（主要是Excel）的內(nèi)置語(yǔ)言，是應(yīng)用程序開(kāi)發(fā)語(yǔ)言Ｖisual Ｂasic 的子集，它易于學(xué)習(xí)掌握，是一種自動(dòng)化語(yǔ)言，使常用的程序自動(dòng)化，創(chuàng)建自定義的解決方案，可以將Excel作為開(kāi)發(fā)平臺(tái)實(shí)現(xiàn)應(yīng)用程序。許多財(cái)務(wù)軟件都有Excel接口，將業(yè)務(wù)活動(dòng)、采購(gòu)活動(dòng)等輸入的信息自動(dòng)導(dǎo)入，生成總賬會(huì)計(jì)報(bào)表，取消輸入憑證這一繁瑣的過(guò)程，替代傳統(tǒng)手工操作，實(shí)現(xiàn)數(shù)據(jù)準(zhǔn)確、輸入迅速快捷。使憑證操作員的錄入工作簡(jiǎn)化，工作重心轉(zhuǎn)移到財(cái)務(wù)管理的其他方面。

1 基礎(chǔ)信息梳理

我院已有物資供應(yīng)鏈軟件，平時(shí)使用該軟件管理物資收發(fā)存，每月結(jié)賬后可以從該軟件的數(shù)據(jù)庫(kù)中導(dǎo)出符合要求的Excel數(shù)據(jù)。或者使用ＡＤＯ數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)鏈接ＳＱＬ數(shù)據(jù)庫(kù)，取得所需的Excel數(shù)據(jù)。醫(yī)院財(cái)務(wù)軟件使用金蝶ＥＡＳ，會(huì)計(jì)核算時(shí)要求物資數(shù)據(jù)入庫(kù)要核算到應(yīng)付賬款——供應(yīng)商，物資數(shù)據(jù)領(lǐng)用要能核算到使用科室。通過(guò)Excel ＶＢＡ程序設(shè)計(jì)自動(dòng)應(yīng)用程序，將已有的數(shù)據(jù)生成符合金蝶ＥＡＳ系統(tǒng)標(biāo)準(zhǔn)憑證導(dǎo)入要求的數(shù)據(jù)格式，可以滿足會(huì)計(jì)核算要求。

經(jīng)統(tǒng)計(jì)，我院目前有１．２萬(wàn)條四級(jí)明細(xì)物料。物料編碼規(guī)則是四級(jí)９位，即第一級(jí)１位，第二級(jí)１位，第三級(jí)３位，第四級(jí)４位，相同類(lèi)型的物料都?xì)w類(lèi)到同一三級(jí)物料下。如果給最明細(xì)物料（即四級(jí)明細(xì)物料）添加上財(cái)務(wù)信息，程序運(yùn)行時(shí)會(huì)影響其速度，而三級(jí)物料（約１ ３８０條）已經(jīng)歸納了相同的財(cái)務(wù)處理信息，因此可使用三級(jí)物料來(lái)作為程序的基礎(chǔ)信息。此外，若同一物料的使用部門(mén)不同則核算的會(huì)計(jì)科目也有所不同。按照新的《醫(yī)院財(cái)務(wù)制度》和《醫(yī)院會(huì)計(jì)制度》的規(guī)定以及《上海市醫(yī)療機(jī)構(gòu)醫(yī)療服務(wù)項(xiàng)目和價(jià)格匯編（２０１０版）》中的“可另收費(fèi)的一次性使用醫(yī)療器械目錄”中的明細(xì)分類(lèi)和解釋，會(huì)計(jì)科目“醫(yī)療業(yè)務(wù)成本”下設(shè)有“一次性醫(yī)療器械”，明細(xì)內(nèi)容有：手術(shù)器械類(lèi)、植入材料和人工器官、各類(lèi)介入器械、醫(yī)用材料及高分子生物材料、口腔材料、其他。為能準(zhǔn)確核算，在三級(jí)物料中將增設(shè)“手術(shù)器械類(lèi)”等類(lèi)別。對(duì)現(xiàn)有的四級(jí)明細(xì)物料進(jìn)行校對(duì)，將相同的財(cái)務(wù)信息歸類(lèi)在同一三級(jí)物料下。建立《三級(jí)物料表》給物料明細(xì)中添加上財(cái)務(wù)信息，該表中有以下９列：“三級(jí)物料代碼”、“三級(jí)物料名稱”、“存貨科目代碼”、“管理費(fèi)用科目代碼”、“管理費(fèi)用支出經(jīng)濟(jì)分類(lèi)＿編碼”，“管理費(fèi)用支出經(jīng)濟(jì)分類(lèi)＿名稱”、“醫(yī)療業(yè)務(wù)成本科目”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟(jì)分類(lèi)＿編碼”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟(jì)分類(lèi)＿名稱”。其中“存貨科目代碼”是物料入庫(kù)時(shí)的借方科目代碼，領(lǐng)用時(shí)的貸方科目代碼；“管理費(fèi)用科目代碼”、“醫(yī)療業(yè)務(wù)成本科目”是物料領(lǐng)用時(shí)借方科目代碼；“管理費(fèi)用支出經(jīng)濟(jì)分類(lèi)＿編碼”、“醫(yī)療業(yè)務(wù)成本支出經(jīng)濟(jì)分類(lèi)＿編碼”是借方科目輔助賬核算項(xiàng)目編碼。

此外，如果物資供應(yīng)鏈軟件中的科室設(shè)置與金蝶ＥＡＳ系統(tǒng)中的核算單元不一致，還需做一個(gè)核算單元對(duì)應(yīng)表。

經(jīng)過(guò)梳理后的三級(jí)物料格式見(jiàn)表1（節(jié)選）。

2 生成物料入庫(kù)憑證

生成物料入庫(kù)憑證時(shí)涉及3個(gè)工作表，分別是“三級(jí)物料”、“供應(yīng)鏈入庫(kù)”、“憑證”。將物資供應(yīng)軟件中的入庫(kù)數(shù)據(jù)導(dǎo)出后拷貝到“供應(yīng)鏈入庫(kù)”工作表中，物資供應(yīng)鏈入庫(kù)數(shù)據(jù)要包含“供貨單位代碼”、“供貨單位名稱”、“發(fā)票號(hào)”、“資產(chǎn)代碼”、“金額”等數(shù)據(jù)項(xiàng)。

（１）對(duì)物資供應(yīng)鏈入庫(kù)數(shù)據(jù)中的“供貨單位名稱”和“發(fā)票號(hào)”進(jìn)行排序，為以后同一家供貨單位的相同發(fā)票號(hào)生成在同一張入庫(kù)憑證內(nèi)做準(zhǔn)備。

Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ａ１：Ｖ＂＆ｐ）．ＳｏｒｔＫｅｙ１：＝Ｒａｎｇｅ（＂Ｅ２＂），Ｏｒｄｅｒ１：＝ｘｌＡｓｃｅｎｄｉｎｇ，Ｋｅｙ２：＝Ｒａｎｇｅ（＂Ｇ２＂），Ｏｒｄｅｒ２：＝ｘｌＡｓ

ｃｅｎｄｉｎｇ，Ｈｅａｄｅｒ：＝ｘｌＧｕｅｓｓ，ＯｒｄｅｒＣｕｓｔｏｍ：＝１，ＭａｔｃｈＣａｓｅ：＝Ｆａｌｓｅ，Ｏｒ

ｉｅｎｔａｔｉｏｎ：＝ｘｌＴｏｐＴｏＢｏｔｔｏｍ，ＳｏｒｔＭｅｔｈｏｄ：＝ｘｌＰｉｎＹｉｎ，ＤａｔａＯｐｔｉｏｎ１：＝ｘｌ

ＳｏｒｔＮｏｒｍａｌ，ＤａｔａＯｐｔｉｏｎ２：＝ｘｌＳｏｒｔＮｏｒｍａｌ

（2）為每條物料添加上存貨科目代碼，作用在于可以分清該物料入庫(kù)時(shí)核算的庫(kù)存物資科目。

ｍ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“三級(jí)物料”數(shù)據(jù)表的記錄數(shù)

ｐ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ’取“供應(yīng)鏈入庫(kù)”數(shù)據(jù)表的記錄數(shù)

Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｗ１＂）．Ｖａｌｕｅ＝＂存貨科目代碼＂

Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ

ｚｃｄｍ ＝ ＣＳｔｒ（Ｍｉｄ（Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｐ＂ ＆ ａ）．Ｖａｌｕｅ， １， ５））

Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ

ｓｊｄｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂Ａ＂ ＆ ｂ）．Ｖａｌｕｅ）

Ｉｆ ｚｃｄｍ ＝ ｓｊｄｍ Ｔｈｅｎ

Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ）．Ｖａｌｕｅ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂共有＂ ＆ ｐ ＆ ＂條記錄，正在計(jì)算第＂ ＆ ａ ＆ ＂條數(shù)據(jù)．．．．．．＂

Ｎｅｘｔ

（3）生成入庫(kù)憑證。物料入庫(kù)數(shù)據(jù)中財(cái)務(wù)信息已添加完成，接下來(lái)就可以生成入庫(kù)憑證數(shù)據(jù)。同一張發(fā)票上可以有多條物料，付款時(shí)是按每張發(fā)票付款，每一張發(fā)票生成一張入庫(kù)憑證，即供貨單位相同且發(fā)票號(hào)也相同生成一張憑證。憑證借方是入庫(kù)的物料，貸方是應(yīng)付賬款，掛“往來(lái)單位”輔助核算。借方摘要填寫(xiě)入庫(kù)物料名稱，貸方摘要填寫(xiě)供應(yīng)商名稱加發(fā)票號(hào)，付款時(shí)可方便進(jìn)行校對(duì)。運(yùn)行到每張發(fā)票的最后一條記錄后要增加一次該發(fā)票的貸方數(shù)據(jù)，顯示出該發(fā)票的合計(jì)金額。

ｐ ＝ Ｓｈｅｅｔｓ（“供應(yīng)鏈入庫(kù)”）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

ｙ ＝ １

ｆｌｈ ＝ ０ ＇ｆｌｈ：分錄號(hào)

ｐｚｈ ＝ ＂０００１＂ ＇ｐｚｈ：憑證號(hào)

ｐｚｘｈ ＝ ＴｅｘｔＢｏｘ２．Ｖａｌｕｅ ＇ｐｚｈ：憑證序號(hào)

ｊｅｈｊ ＝ ０ ＇ｊｅｈｊ：金額合計(jì)

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂憑證＂）

Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ

ｊｅ ＝ Ｓｈｅｅｔｓ（“供應(yīng)鏈入庫(kù)”）．Ｒａｎｇｅ（＂ｖ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｊｅ：金額

ｆｐｈ ＝ Ｓｈｅｅｔｓ（“供應(yīng)鏈入庫(kù)”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｆｐｈ：發(fā)票號(hào)

Ｉｆ Ｓｈｅｅｔｓ（“供應(yīng)鏈入庫(kù)”）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＜＞ ｆｐｈ Ｔｈｅｎ

ｆｌｈ ＝ ｆｌｈ ＋ １

ｙ ＝ ｙ ＋ １

ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ

Ｆｏｒ ｂ ＝ １ Ｔｏ ２

ｙ ＝ ｙ ＋（ ｂ – １）

．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＊＊＊＊＂ ＇＊＊＊＊：是公司代碼，此處隱去

．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ ＇ ＤＴＰｉｃｋｅｒ：日期控件

．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）

．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂

．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）

．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂

．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １

．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂

Ｉｆ ｂ ＝ １ Ｔｈｅｎ

．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ

．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）

．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｗ＂ ＆ ａ）

．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂

．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ

．Ｒａｎｇｅ（＂ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ

Ｅｌｓｅ

ｆｌｈ ＝ ｆｌｈ ＋ １

Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ

．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，發(fā)票號(hào)：№＂ ＆ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇摘要欄顯示供應(yīng)商名稱及發(fā)票號(hào)

．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ＂２２０２．０２＂

．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇０＂

．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ

．Ｒａｎｇｅ（＂Ｑ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅｈｊ

．Ｒａｎｇｅ（＂ＡＧ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂，發(fā)票號(hào)：№＂ ＆ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ ＇輔助賬摘要

．Ｒａｎｇｅ（＂ＡＨ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂往來(lái)單位＂

．Ｒａｎｇｅ（＂ＡＩ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＺＹ０２．＂ ＆ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｄ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＡＪ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂Ｅ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＢＮ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＢＯ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂２０９９／７／１＂ ＇到期日

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

ｊｅｈｊ ＝ ０

ｆｌｈ ＝ ０

ｐｚｈ ＝ ｐｚｈ ＋ １

ｐｚｘｈ ＝ ｐｚｘｈ ＋ １

Ｅｌｓｅ

ｙ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

ｙ ＝ ｙ ＋ １

ｆｌｈ ＝ ｆｌｈ ＋ １

．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂１１ＺＹ＂

．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）

．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂

．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）

．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｆｌｈ

．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈入庫(kù)＂）．Ｒａｎｇｅ（＂ｗ＂ ＆ ａ）

．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂

．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １

．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇１＂

．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ

．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｊｅ

．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ２．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂

ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｊｅ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

Ｅｎｄ Ｗｉｔｈ

3 生成物料出庫(kù)憑證

生成物料出庫(kù)領(lǐng)用憑證時(shí)涉及5個(gè)工作表，分別是“核算單元對(duì)應(yīng)表”、“三級(jí)物料”、“供應(yīng)鏈出庫(kù)”、“出庫(kù)整理”、“憑證”。物料出庫(kù)的數(shù)據(jù)，先按“存貨科目代碼”和“核算單元名稱”進(jìn)行排序，參考整理好的“三級(jí)物料”信息，在“出庫(kù)整理”工作表中添加財(cái)務(wù)信息。生成出庫(kù)領(lǐng)料憑證時(shí)以一個(gè)存貨科目為一張憑證，即貸方科目是一條記錄，借方科目則是多條記錄，是領(lǐng)用該物料的所有部門(mén)。

3.1 添加財(cái)務(wù)信息

按領(lǐng)用資產(chǎn)名稱添加存貨科目代碼；按領(lǐng)用部門(mén)的性質(zhì)進(jìn)行判斷添加“部門(mén)類(lèi)別＿編碼”、“部門(mén)類(lèi)別＿名稱”；按領(lǐng)用部門(mén)及領(lǐng)用資產(chǎn)的性質(zhì)進(jìn)行判斷添加“支出科目代碼”、“支出經(jīng)濟(jì)分類(lèi)＿編碼”、“支出經(jīng)濟(jì)分類(lèi)＿名稱”。

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）

ｎ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

ｍ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

Ｆｏｒ ｂ ＝ ２ Ｔｏ ｍ

Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ ＂《添加財(cái)務(wù)信息》運(yùn)算，共有＂ ＆ ｎ ＆ ＂條記錄，正在計(jì)算第＂ ＆ ｂ ＆ ＂條記錄，請(qǐng)等候．．．．．．＂

ｚｃｍ ＝ ＣＳｔｒ（Ｌｅｆｔ（．Ｒａｎｇｅ（＂ｐ＂ ＆ ｂ）．Ｖａｌｕｅ， ５）） ＇ｚｃｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｐ列資產(chǎn)代碼

Ｆｏｒ ｄ ＝ ２ Ｔｏ ｗ

ｗｌｍ ＝ ＣＳｔｒ（Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ａ＂ ＆ ｄ）．Ｖａｌｕｅ） ＇ｗｌｍ：Ｓｈｅｅｔｓ（＂三級(jí)物料＂）中的ａ列物料三級(jí)代碼

ｂｍｌｂ ＝ ＣＳｔｒ（Ｍｉｄ（．Ｒａｎｇｅ（＂ｆ＂ ＆ ｂ）．Ｖａｌｕｅ， ３， ２）） ＇ｂｍｌｂ：部門(mén)類(lèi)別＿編碼

Ｉｆ ｚｃｍ ＝ ｗｌｍ Ｔｈｅｎ

．Ｒａｎｇｅ（＂ｘ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ｄ）．Ｖａｌｕｅ

Ｉｆ （ｂｍｌｂ ＝ ＂１０＂ Ｏｒ ｂｍｌｂ ＝ ＂２０＂ Ｏｒ ｂｍｌｂ ＝ ＂３０＂） Ｔｈｅｎ

．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ｄ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｈ＂ ＆ ｄ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｉ＂ ＆ ｄ）．Ｖａｌｕｅ

Ｅｌｓｅ

．Ｒａｎｇｅ（＂ａａ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ｄ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ａｂ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｅ＂ ＆ ｄ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ａｃ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂三級(jí)物料＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ｄ）．Ｖａｌｕｅ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

．Ｒａｎｇｅ（＂ｙ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｂｍｌｂ

Ｓｅｌｅｃｔ Ｃａｓｅ ＣＳｔｒ（Ｍｉｄ（．Ｒａｎｇｅ（＂ｆ＂ ＆ ｂ）．Ｖａｌｕｅ， ３， ２））

Ｃａｓｅ ＂１０＂

．Ｒａｎｇｅ（＂ｚ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂臨床服務(wù)成本＂

Ｃａｓｅ ＂２０＂

．Ｒａｎｇｅ（＂ｚ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂醫(yī)療技術(shù)成本＂

Ｃａｓｅ ＂３０＂

．Ｒａｎｇｅ（＂ｚ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂醫(yī)療輔助成本＂

Ｃａｓｅ ＂４０＂

．Ｒａｎｇｅ（＂ｚ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂行政后勤成本＂

Ｃａｓｅ ＂５０＂

．Ｒａｎｇｅ（＂ｚ＂ ＆ ｂ）．Ｖａｌｕｅ ＝ ＂公用成本＂

Ｅｎｄ Ｓｅｌｅｃｔ

Ｎｅｘｔ

Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｔｕｓＢａｒ ＝ Ｆａｌｓｅ

Ｎｅｘｔ

Ｅｎｄ Ｗｉｔｈ

Ｅｎｄ Ｓｕｂ

3.2 進(jìn)行出庫(kù)整理

相同的存貨科目、部門(mén)名稱、支出科目、支出經(jīng)濟(jì)分類(lèi)的數(shù)據(jù)將歸集到一張憑證中，摘要欄內(nèi)添加上各部門(mén)領(lǐng)用的資產(chǎn)名稱和出庫(kù)單號(hào)。

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）

ｎ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

．Ｒａｎｇｅ（＂ａ１＂）．Ｖａｌｕｅ ＝ ＂核算單元代碼＂

．Ｒａｎｇｅ（＂ｂ１＂）．Ｖａｌｕｅ ＝ ＂核算單元名稱＂

．Ｒａｎｇｅ（＂ｃ１＂）．Ｖａｌｕｅ ＝ ＂總金額＂

．Ｒａｎｇｅ（＂ｄ１＂）．Ｖａｌｕｅ ＝ ＂存貨科目代碼＂

．Ｒａｎｇｅ（＂ｅ１＂）．Ｖａｌｕｅ ＝ ＂部門(mén)類(lèi)別＿編碼＂

．Ｒａｎｇｅ（＂ｆ１＂）．Ｖａｌｕｅ ＝ ＂部門(mén)類(lèi)別＿名稱＂

．Ｒａｎｇｅ（＂ｇ１＂）．Ｖａｌｕｅ ＝ ＂支出科目代碼＂

．Ｒａｎｇｅ（＂ｈ１＂）．Ｖａｌｕｅ ＝ ＂支出經(jīng)濟(jì)分類(lèi)＿編碼＂

．Ｒａｎｇｅ（＂ｉ１＂）．Ｖａｌｕｅ ＝ ＂支出經(jīng)濟(jì)分類(lèi)＿名稱＂

．Ｒａｎｇｅ（＂ｊ１＂）．Ｖａｌｕｅ ＝ ＂摘要＂

ｂ ＝ ２

ｊｅｈｊ ＝ ０

Ｆｏｒ ａ ＝ ２ Ｔｏ ｎ

ｋｍｄｍ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｘ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｋｍｄｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｘ列科目代碼

ｋｍｄｍ１ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｘ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＇ｋｍｄｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｘ列科目代碼

ｈｓｄｗｍ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｆ列核算單元代碼

ｈｓｄｗｍ１ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＇ｈｓｄｗｍ１：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｆ列核算單元代碼

ｚｃｋｍ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａａ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ａａ列支出科目代碼

ｚｃｋｍ１ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａａ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ａａ列支出科目代碼

ｚｃｊｊ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａｂ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ａｂ列支出經(jīng)濟(jì)分類(lèi)代碼

ｚｃｊｊ１ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａｂ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ａｂ列支出經(jīng)濟(jì)分類(lèi)代碼

ｚｊｅ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｗ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｗ列總金額

ｚｙ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｑ列摘要

ｚｙ１ ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｑ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ ＇ｈｓｄｗｍ：Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）中的ｑ列摘要

Ｉｆ ｋｍｄｍ ＝ ｋｍｄｍ１ Ａｎｄ ｈｓｄｗｍ ＝ ｈｓｄｗｍ１ Ａｎｄ ｚｃｋｍ ＝ ｚｃｋｍ１ Ａｎｄ ｚｃｊｊ ＝ ｚｃｊｊ１ Ｔｈｅｎ

ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｚｊｅ ＇金額合計(jì)

＇以下部分是添加摘要內(nèi)容

Ｉｆ ｚｙ ＜＞ ｚｙ１ Ｔｈｅｎ

ｚｙｈｊ ＝ ｚｙｈｊ ＋ ＂、＂ ＋ ｚｙ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｉｆ

Ｉｆ ｋｍｄｍ ＜＞ ｋｍｄｍ１ Ｏｒ ｈｓｄｗｍ ＜＞ ｈｓｄｗｍ１ Ｏｒ ｚｃｋｍ ＜＞ ｚｃｋｍ１ Ｏｒ ｚｃｊｊ ＜＞ ｚｃｊｊ１ Ｔｈｅｎ

ｊｅｈｊ ＝ ｊｅｈｊ ＋ ｚｊｅ

ｚｙｈｊ ＝ ｚｙｈｊ ＋ ＂、＂ ＋ ｚｙ

．Ｒａｎｇｅ（＂ａ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｂ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｃ＂ ＆ ｂ） ＝ Ｒｏｕｎｄ（ｊｅｈｊ， ２）

．Ｒａｎｇｅ（＂ｄ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｘ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｅ＂ ＆ ｂ） ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ｙ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｆ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂Ｚ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｂ） ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａａ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｈ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａｂ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ｉ＂ ＆ ｂ） ＝ Ｓｈｅｅｔｓ（＂供應(yīng)鏈出庫(kù)＂）．Ｒａｎｇｅ（＂ａｃ＂ ＆ ａ）．Ｖａｌｕｅ

Ｉｆ Ｌｅｎ（ｚｙｈｊ） ＞ １５０ Ｔｈｅｎ

．Ｒａｎｇｅ（＂ｊ＂ ＆ ｂ） ＝ Ｍｉｄ（ｚｙｈｊ， ２， １５０） ＋ ＂等＂

Ｅｌｓｅ

．Ｒａｎｇｅ（＂ｊ＂ ＆ ｂ） ＝ Ｍｉｄ（ｚｙｈｊ， ２， １５０）

Ｅｎｄ Ｉｆ

ｚｙｈｊ ＝ ＂＂

ｊｅｈｊ ＝ ０

ｂ ＝ ｂ ＋ １

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

Ｅｎｄ Ｗｉｔｈ

3.3 生成出庫(kù)憑證

生成憑證時(shí)要進(jìn)行判斷，有些物料的支出科目下掛核算項(xiàng)目，而有些則不掛，在生成輔助賬時(shí)處理方法是不同的。

ｐ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂憑證＂）

ｐｚｈ ＝ ＴｅｘｔＢｏｘ３．Ｖａｌｕｅ

ｐｚｘｈ ＝ ＴｅｘｔＢｏｘ２．Ｖａｌｕｅ

ｄｆｊｅ ＝ ０

ｎ ＝ １

Ｆｏｒ ａ ＝ ２ Ｔｏ ｐ

ｂｊ１ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ａ）．Ｖａｌｕｅ

ｂｊ２ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ａ ＋ １）．Ｖａｌｕｅ

ｈｊｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ａ）．Ｖａｌｕｅ

ｙ ＝ ．Ｒａｎｇｅ（＂ａ６５５３６＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

ｙ ＝ ｙ ＋ １

．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＊＊＊＊＂

．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）

．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂

．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）

．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｎ

．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｂ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂領(lǐng)料＂

．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｇ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂

．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １

．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ＂１＂

．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂

．Ｒａｎｇｅ（＂ＡＧ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｂ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂領(lǐng)料＂

Ｉｆ Ｎｏｔ ＩｓＥｍｐｔｙ（Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｈ＂ ＆ ａ）．Ｖａｌｕｅ） Ｔｈｅｎ

．Ｒａｎｇｅ（＂ＡＨ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂支出經(jīng)濟(jì)分類(lèi)＂

．Ｒａｎｇｅ（＂ＡＩ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｈ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＡＪ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｉ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ａｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂部門(mén)類(lèi)別＂

．Ｒａｎｇｅ（＂Ａｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｅ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ａｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ａｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂部門(mén)名稱＂

．Ｒａｎｇｅ（＂Ａｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ａ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ａｐ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｂ＂ ＆ ａ）．Ｖａｌｕｅ

Ｅｌｓｅ

．Ｒａｎｇｅ（＂ＡＨ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂部門(mén)類(lèi)別＂

．Ｒａｎｇｅ（＂ＡＩ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｅ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＡＪ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｆ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＡＫ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂部門(mén)名稱＂

．Ｒａｎｇｅ（＂ＡＬ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ａ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＡＭ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｂ＂ ＆ ａ）．Ｖａｌｕｅ

Ｅｎｄ Ｉｆ

．Ｒａｎｇｅ（＂ＢＮ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂ＢＯ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂２０９９／７／１＂

ｄｆｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｃ＂ ＆ ａ）．Ｖａｌｕｅ

ｄｆｊｅ ＝ ｄｆｊｅ ＋ ｄｆｅ

Ｉｆ ｂｊ１ ＜＞ ｂｊ２ Ｔｈｅｎ

ｃｓ ＝ １

ｙ ＝ ｙ ＋ １

ｎ ＝ ｎ ＋ １

．Ｒａｎｇｅ（＂Ａ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂１１ＺＹ＂

．Ｒａｎｇｅ（＂Ｂ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｃ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｄ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｍｉｄ（ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ６， ＩｎＳｔｒ（６， ＤＴＰｉｃｋｅｒ１．Ｖａｌｕｅ， ＂－＂） － ６）

．Ｒａｎｇｅ（＂Ｅ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂物＂

．Ｒａｎｇｅ（＂Ｆ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｆｏｒｍａｔ（ｐｚｈ， ＂００００＂）

．Ｒａｎｇｅ（＂Ｇ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｎ

．Ｒａｎｇｅ（＂Ｈ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｂ＂ ＆ ａ）．Ｖａｌｕｅ ＆ ＂等領(lǐng)料＂

．Ｒａｎｇｅ（＂Ｉ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ Ｓｈｅｅｔｓ（＂出庫(kù)整理＂）．Ｒａｎｇｅ（＂ｄ＂ ＆ ａ）．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｊ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＢＢ０１＂

．Ｒａｎｇｅ（＂Ｋ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ １

．Ｒａｎｇｅ（＂Ｌ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ＂０＂

．Ｒａｎｇｅ（＂Ｍ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｄｆｊｅ

．Ｒａｎｇｅ（＂Ｎ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｏ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｑ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ｄｆｊｅ

．Ｒａｎｇｅ（＂Ｒ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＣｏｍｂｏＢｏｘ１．Ｖａｌｕｅ

．Ｒａｎｇｅ（＂Ｕ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ０

．Ｒａｎｇｅ（＂Ｖ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｘ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂ＦＡＬＳＥ＂

．Ｒａｎｇｅ（＂Ｙ＂ ＆ ｙ）．Ｖａｌｕｅ ＝ ＂＇＂ ＆ ｐｚｘｈ ＆ ＂－－０＂

ｎ ＝ ０

ｐｚｈ ＝ ｐｚｈ ＋ １

ｐｚｘｈ ＝ ｐｚｘｈ ＋ １

ｄｆｊｅ ＝ ０

Ｅｎｄ Ｉｆ

ｎ ＝ ｎ ＋ １

Ｎｅｘｔ

Ｅｎｄ Ｗｉｔｈ

4 結(jié)束語(yǔ)

本文介紹使用Excel ＶＢＡ生成供應(yīng)鏈憑證的具體方法。在實(shí)際操作過(guò)程中加入人性化操作界面，如增加用戶窗體操作界面、處理數(shù)據(jù)量較大時(shí)在狀態(tài)欄中顯示數(shù)據(jù)處理的程度、數(shù)據(jù)的校驗(yàn)等。我院每月自動(dòng)錄入物料憑證約４００張，記錄條數(shù)約２ ４００條，物料數(shù)據(jù)約９ ０００條，在準(zhǔn)確性、完整性得到保證的前提下，物資會(huì)計(jì)工作量大幅下降。這種思路和做法可以運(yùn)用到會(huì)計(jì)核算工作的各個(gè)方面，為管理層及各有關(guān)方面提供更為詳盡的會(huì)計(jì)數(shù)據(jù)。