于春洋

摘要：按照勞動定額行業(yè)標準編制勞動定額技術(shù)標準，是軌道交通制造業(yè)常用的技術(shù)手段。但是，隨著軌道交通車輛產(chǎn)品型號增加，加之行業(yè)標準中技術(shù)參數(shù)繁多、計算公式復雜，勞動定額技術(shù)標準的制定工作變得繁重。運用EXCEL中VBA技術(shù)實現(xiàn)勞動定額技術(shù)標準制定程序化，可大幅縮減技術(shù)標準制定時間，從而提高工作效率。

關(guān)鍵詞：勞動定額技術(shù)標準;程序化;VBA技術(shù)

中圖分類號：F24文獻標識碼：Adoi：10.19311/j.cnki.1672-3198.2019.16.026

目前，軌道交通制造業(yè)勞動定額技術(shù)標準的制定方法一般包括經(jīng)驗估工法、類推比較法、技術(shù)測定法等。隨著軌道交通制造業(yè)的發(fā)展，軌道交通車輛產(chǎn)品型號日漸增加，使用經(jīng)驗估工法等傳統(tǒng)方法很難在產(chǎn)品投產(chǎn)前科學合理的制定出新產(chǎn)品勞動定額技術(shù)標準，使用勞動定額行業(yè)標準制定勞動定額技術(shù)標準時，需投入大量時間查閱行業(yè)標準確定各類技術(shù)參數(shù)，存在耗時長、計算精度低等缺點。本文以軌道交通制造業(yè)鉚工勞動定額制定行業(yè)標準為例，介紹通過EXCEL VBA技術(shù)使勞動定額技術(shù)標準制定的程序化方法，減少技術(shù)標準制定時間，從而提高工作效率。

1VBA技術(shù)簡介

VBA（簡稱“Visual Basic for Applications”） 是Visual Basic的一種宏語言，是微軟開發(fā)出來在其應用程序中執(zhí)行通用的自動化（OLE）任務的編程語言。VBA的主要功能是用來擴展Windows的應用程序功能，尤其是Microsoft Office軟件。通過VBA技術(shù)，用戶可以創(chuàng)建自定義的功能，從而實現(xiàn)用戶所的個性化需求。

2軌道交通制造業(yè)勞動定額技術(shù)標準制定流程

以鐵路工業(yè)鉚工勞動定額制定標準（LD/T71.8-2000）為例，首先介紹勞動定額技術(shù)標準制定流程。

（1）確定各工序適用標準。新產(chǎn)品的技術(shù)文件確定后，勞動定額技術(shù)標準編制人員首先對各個工藝流程進行詳細分解，確定各個工序所適用的行業(yè)標準，軌道交通制造業(yè)勞動定額標準包括鐵路工業(yè)鉚工勞動定額制定標準（LD/T71.8-2000）、軌道交通裝備制造業(yè)鉆床加工勞動定額（LD/T 71.5-2009）等行業(yè)標準，本文以鉚工工序為例，即適用標準為前者。

（2）確定技術(shù)參數(shù)。適用標準確定后，根據(jù)標準中所適用的數(shù)學模型確定技術(shù)參數(shù)。技術(shù)參數(shù)包括兩部分：第一部分技術(shù)參數(shù)來自工序所加工部件的自身屬性，如板材厚度、公差、重量等技術(shù)參數(shù)，這部分技術(shù)參數(shù)需通過查閱相關(guān)工序的技術(shù)圖紙以及工藝流程來確定。第二部分技術(shù)參數(shù)為標準中數(shù)學模型的系數(shù)，如公差系數(shù)、批量系數(shù)等技術(shù)參數(shù)。通常第二部分技術(shù)參數(shù)的選取取決于第一部分技術(shù)參數(shù)。

（3）勞動定額技術(shù)標準計算。技術(shù)參數(shù)確定完畢后，需將所有數(shù)據(jù)帶入對應標準的對應數(shù)學模型中，從而確定本工序的勞動定額技術(shù)標準。

3勞動定額技術(shù)標準制定程序化方法

勞動定額技術(shù)標準制定程序化的方法是利用EXCEL中VBA代碼將勞動定額技術(shù)標準制定的流程進行程序化處理，從而使工作變得高效精準。

現(xiàn)對鉚工勞動定額技術(shù)標準進行程序化處理。鉚工勞動定額技術(shù)標準的數(shù)學模型如下所示，第一個公式適用于組裝部件總質(zhì)量小于36千克的情況;第二個公式適用于組裝部件總質(zhì)量介于36-400千克的情況;第三個公式適用于組裝部件總質(zhì)量大于400千克的情況。

Tdn=（1.6955N0.7685+0.3286G+1.71）K1K2K3K4

Tdn=（4.9955N0.6162+0.0671G+3.65）K1K2K3K4

Tdn=（5.5683N0.7685+0.0128G+11.9）K1K2K3K4

通過分析，不同質(zhì)量區(qū)間的組裝部件對應不同的數(shù)學模型。利用InputBox函數(shù)彈出輸入對話框，用戶輸入組裝部件的配件數(shù)量N及總質(zhì)量G，然后通過If函數(shù)自行選擇數(shù)學模型。

InputBox函數(shù)語法結(jié)構(gòu)：

InputBox[$]（提示[，標題][，默認值][，x坐標，y坐標]）

If函數(shù)語法結(jié)構(gòu)：

If條件表達式then

語句塊1

Else

語句塊2

End If

系數(shù)K1、K2、K3、K4分別為批量系數(shù)、厚度系數(shù)、胎模工裝系數(shù)、公差系數(shù)。這四個系數(shù)具有同一個特點，即在有限的選擇情況下，不同的輸入數(shù)據(jù)對應不同的系數(shù)，如表1批量系數(shù)所示。根據(jù)這樣的系數(shù)選擇特點，可通過InputBox函數(shù)實現(xiàn)，在InputBox的提示信息欄注明系數(shù)選擇的原則，便于用戶閱讀即可。

最終的計算結(jié)果通過消息對話框Msgbox輸出，將計算結(jié)果告知用戶。

Msgbox函數(shù)語法結(jié)構(gòu)：

Msgbox（prompt[，buttons][，title][，helpfile，context]）

綜合分析后，鉚工勞動定額技術(shù)標準程序化處理的VBA代碼如下所示。由于文章篇幅有限，在編寫代碼時，四個系數(shù)中只考慮批量系數(shù)K1，其余三個代碼的加載方式完全類似。

Sub 鉚工勞動定額技術(shù)標準（）

Dim T， N， G， K1 As Single

N = InputBox（“請輸入配件數(shù)量”， “配件數(shù)量輸入框”）

G = InputBox（“請輸入組裝部件總質(zhì)量”， “組裝部件總質(zhì)量輸入框”）

K1 = InputBox（“批量小于等于10，系數(shù)為2” & Chr（10） & Chr（13） & “批量大于10小于50，系數(shù)為1.6” & Chr（10） & Chr（13） & “批量大于50小于等于100，系數(shù)為1.3” & Chr（10） & Chr（13） & “批量大于100，系數(shù)為1”）

If G <= 36 Then

T = （1.6955 * N ^ （0.7685） + 0.3286 * G + 1.71） * K1

Else

If G < 400 Then

T=（4.9555 * N ^ （0.6162） + 0.0671 * G + 3.65） * K1

Else

T = （5.5683 * N ^ （0.7685） + 0.0128 * G + 11.9） * K1

End If

End If

MsgBox （“計算結(jié)果為” & T）

End Sub

4結(jié)語

通過實例應用可以將計算勞動定額技術(shù)標準的傳統(tǒng)計算方法與程序化計算方法進行比較，各過程的實現(xiàn)方式對比如表2所示。通過對比分析，程序化方法主要在第二、三步節(jié)省了大量時間，在確定技術(shù)參數(shù)時，傳統(tǒng)計算方法需要花費大量時間查閱標準中的各類系數(shù)，而程序化方法將選擇的過程程序化。在計算數(shù)學模型時，傳統(tǒng)計算方法通過手工輸入計算公式求解，而程序化方法已經(jīng)將數(shù)學模型程序化，無需反復輸入數(shù)學模型，從而節(jié)省大量時間。當進行批量計算勞動定額技術(shù)標準時，程序化方法的效率優(yōu)勢將更加明顯。

通過鉚工勞動定額技術(shù)標準程序化計算方法，大幅減少計算時間，可以采用同樣的思想，將焊接、機加工等常用工序的標準進行程序化處理，以便在新產(chǎn)品投產(chǎn)前以較少的人工投入編織出科學合理的勞動定額技術(shù)標準。

參考文獻

[1]張巖艷，嚴晨.活用EXCEL VBA讓你的工作化繁為簡[M].北京：機械工業(yè)出版社，2016：17-20.

[2]LD/T 71.5-2009， 鐵路工業(yè)鉚工勞動定額制定標準[S].2009.

[3]明日科技.Visual Basic從入門到精通[M].北京：清華大學出版社，2016：258-259.