于春洋

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

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

中圖分類號：F24文獻(xiàn)標(biāo)識碼：Adoi：10.19311/j.cnki.1672-3198.2019.16.026

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

1VBA技術(shù)簡介

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

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

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

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

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

（3）勞動定額技術(shù)標(biāo)準(zhǔn)計(jì)算。技術(shù)參數(shù)確定完畢后，需將所有數(shù)據(jù)帶入對應(yīng)標(biāo)準(zhǔn)的對應(yīng)數(shù)學(xué)模型中，從而確定本工序的勞動定額技術(shù)標(biāo)準(zhǔn)。

3勞動定額技術(shù)標(biāo)準(zhǔn)制定程序化方法

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

現(xiàn)對鉚工勞動定額技術(shù)標(biāo)準(zhǔn)進(jìn)行程序化處理。鉚工勞動定額技術(shù)標(biāo)準(zhǔn)的數(shù)學(xué)模型如下所示，第一個公式適用于組裝部件總質(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ū)間的組裝部件對應(yīng)不同的數(shù)學(xué)模型。利用InputBox函數(shù)彈出輸入對話框，用戶輸入組裝部件的配件數(shù)量N及總質(zhì)量G，然后通過If函數(shù)自行選擇數(shù)學(xué)模型。

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

InputBox[$]（提示[，標(biāo)題][，默認(rèn)值][，x坐標(biāo)，y坐標(biāo)]）

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

If條件表達(dá)式then

語句塊1

Else

語句塊2

End If

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

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

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

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

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

Sub 鉚工勞動定額技術(shù)標(biāo)準(zhǔn)（）

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 （“計(jì)算結(jié)果為” & T）

End Sub

4結(jié)語

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

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

參考文獻(xiàn)

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

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

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