侯照君

摘 要：通過VBA編程，將大顆粒的銷售預(yù)測信息轉(zhuǎn)化為小顆粒的訂單信息，為生產(chǎn)計劃的制作提供基本素材，大量節(jié)約生產(chǎn)計劃編制時間，生成的訂單在完整體現(xiàn)預(yù)測信息的同時還更加貼合實際需求。運用此方法生成訂單編制的生產(chǎn)計劃用時短，信息準(zhǔn)確。細(xì)化后的訂單對計劃的調(diào)整可快速應(yīng)對，從而確保了物料需求信息的及時、準(zhǔn)確傳遞。

關(guān)鍵詞：VBA 訂單 均勻分布 透視表

A Method of Generating Orders Based on VBA and Finalizing the Planning of the Vehicle

Hou Zhaojun

Abstract：Through VBA programming， the large-particle sales forecast information is converted into the small-particle order information， which provides basic materials for the production plans， which greatly saves the time for preparing production plans. The generated orders not only fully reflect the forecast information， but also are more similar to the demand. Using this method to generate the production plan for order preparation takes a short time and the information is accurate. The detailed order can quickly respond to plan adjustments， thereby ensuring timely and accurate delivery of material demand information

Key words：VBA， order， even distribution， pivot table

1 引言

隨著汽車市場的飛速發(fā)展，終端市場需求的多樣化對整車企業(yè)提出了更高的要求。為了加快市場響應(yīng)速度，整車生產(chǎn)企業(yè)需縮短訂單的凍結(jié)周期，提高生產(chǎn)靈活性。這就要求生產(chǎn)計劃員根據(jù)有限的預(yù)測信息制作完整的生產(chǎn)計劃，實現(xiàn)“少米之炊”。

2 需求分析

由圖1可以看出，訂單凍結(jié)周期縮短后，可用來制作生產(chǎn)計劃的訂單僅剩余2周，從N+3到N+12周之間不再有訂單，僅為預(yù)測信息（細(xì)分車型、外飾、內(nèi)飾及選裝包比例）。若要實現(xiàn)生產(chǎn)計劃的快速制作，必須將這些預(yù)測信息轉(zhuǎn)化為訂單?？紤]整車生產(chǎn)及物料供應(yīng)的需求，各種配置的整車訂單的均勻化排產(chǎn)更有利于供應(yīng)商供貨。因此預(yù)測信息轉(zhuǎn)化為訂單后，要保證各種配置的訂單均勻分布，更有利于生產(chǎn)安排及供貨。

3 設(shè)計思路

已獲取配置信息如圖2所示，接下來的任務(wù)是根據(jù)訂單總量以及以下配置比例模擬生成訂單，生成的訂單數(shù)量上不僅要符合以下比例，同時要滿足物料供應(yīng)需求。

最終的目標(biāo)信息如圖3

若要根據(jù)以上已知信息生成目標(biāo)信息，需要將車型，外飾，內(nèi)飾及選裝包根據(jù)比例信息逐列填充至表格中，針對每一列信息，需要運用其Mix計算出各種配置在所有訂單的數(shù)量，通過設(shè)置同一種配置的訂單間的間隔來達(dá)到訂單均勻分布的目標(biāo)。

4 功能實現(xiàn)

根據(jù)設(shè)計思路，其功能實現(xiàn)的流程圖如圖4。

部分程序代碼如下：

For i=1 To sum_these‘枚舉法，確定大間隔與小間隔的訂單數(shù)量

average_temp=（i*jiange_little+（sum_these-i）*jiange_big）/sum_these

error_temp=VBA.Abs（average_temp-average）

Do Until error_min

error_min=error_temp

count_little=i

Exit Do

Loop

Next

count_big=sum_these-count_little

If count_big=0 Then

For ii=1 To sum_these

Cells（row_general，7）=i_Model+first

Cells（row_general，8）=EC

row_general=row_general+1

count_little_temp=count_little_temp+1

i_Model=i_Model+jiange_little

Next

Exit Sub

…

End Sub

5 實現(xiàn)效果

生成訂單后，需要通過vlookup對每個訂單指定生產(chǎn)日期，具體步驟如下

1）在模擬生成的訂單中添加輔助列，從0開始排序，見圖5

2）在生產(chǎn)計劃中增加輔助列，從0開始，做生產(chǎn)計劃的累加，見圖5

3）通過VLOOKUP函數(shù)在G列針對每個訂單賦生產(chǎn)日期，見圖5

4）以帶有生產(chǎn)日期的訂單明細(xì)作為源數(shù)據(jù)，插入透視表，結(jié)果見圖6

到此為止，我們完成了從訂單生成到生產(chǎn)計劃制作的全部步驟，無論預(yù)測信息如何調(diào)整，我們都能夠通過刷新透視表迅速更新計劃。

6 結(jié)束語

本文通過VBA編程，考慮均勻排產(chǎn)的原則，將預(yù)測需求信息轉(zhuǎn)變?yōu)橛唵危诖嘶A(chǔ)之上，利用VLOOKUP函數(shù)對每個訂單的生產(chǎn)日期進(jìn)行賦值，最終通過數(shù)據(jù)透視表生成了完整的整車生產(chǎn)計劃，為整車及下級散件的生產(chǎn)準(zhǔn)備提供了數(shù)據(jù)指導(dǎo)。在缺乏實際訂單的情況下，通過該方法可高效、準(zhǔn)確地制作生產(chǎn)計劃，指導(dǎo)實際生產(chǎn)。

參考文獻(xiàn)：

[1]別怕，Excel VBA其實很簡單 第二版 Excel Home 編著 北京大學(xué)出版社 2016年.

[2]Microsoft? Office Excel 2016 幫助文檔.