excel自定義函數(shù)在水質(zhì)工作中的應(yīng)用

Excel是大家非常熟悉的應(yīng)用軟件，其使用非常方便。尤其是其強大的函數(shù)功能，為我們帶來了極大方便，但有時我們?yōu)閷崿F(xiàn)一項規(guī)定的功能，可能用到幾個函數(shù)或者采用嵌套函數(shù)，這樣應(yīng)用起來，也不太方便；或者使用自定義公式進行計算，就沒有現(xiàn)成的公式可用。可喜的是，我們可以創(chuàng)建自定義函數(shù)UDF(User—defined function) ，它的運行與Excel中自帶的函數(shù)完全相同。建立自定義函數(shù)有以下幾個優(yōu)點：建立自己特殊的功能和名稱的函數(shù)；能將復(fù)雜的、嵌套的、多個原有的函數(shù)組合在一起，發(fā)揮更大的威力，使用、維護更加方便。
　　比如在水質(zhì)計算中，高錳酸鹽指數(shù)的計算公式非常繁瑣，而且含必須將結(jié)果修約至0.1，還得考慮逢5奇進偶舍的問題。利用計算器逐步計算很是麻煩；在EXCEL中利用單元格引用計算稍有不注意，可能造成計算上差錯，而且每次都得建立，很不方便。現(xiàn)在我們利用EXCEL自帶的VBA編輯器建立自己的函數(shù)來解決這個問題。
　　首先進入Excel，在[工具]→[宏]→[Visul Basic編輯器](也可按組合鍵[Alt+F11])，在“Visul Basic編輯器”中選擇[插入]→[添加模塊]，將模塊名稱改為“高錳酸鹽指數(shù)濃度計算公式”，在代碼窗口輸入下列函數(shù)：
Public Function CImn(C As Single, V0 As Single, V1 As Single, V2 As Single, V As Integer)‘高錳酸鹽指數(shù)計算公式
Dim DotLocation As Integer ‘定義小數(shù)點位置變量
‘*************************************************************************
CImn = ((((10 + V1) * 10 / V2 - 10) - (((10 + V0) * 10 / V2 - 10) * (100 - V) / 100))) * C * 8000 / V
‘*************************************************************************
‘保留一位小數(shù)
‘當CIMN值小于1時，自動補上個位0
If CImn < 1 Then
CImn = 0 & CImn
End If
‘確定小數(shù)點的位置
DotLocation = InStr(CImn, ".")
‘判斷小數(shù)點后第二位是否為5
If Mid(CImn, DotLocation + 2, 1) = 5 Then
If Len(CImn) <= DotLocation + 2 And Mid(CImn, DotLocation + 1, 1) Mod 2 = 0 Then
CImn = Left(CImn, DotLocation + 1) ‘為5且5后沒有數(shù)和5前一位為偶數(shù)，直接用round()函數(shù)修約
Else
CImn = Round(CImn, 1)
End If
Else
CImn = Round(CImn, 1) ‘不為5，直接用round()函數(shù)修約
End If
CImn = Format(Round(CImn, 1), "#0.0")
End Function
　　我們知道，Excel中函數(shù)都有一個說明用以幫助使用，我們也要給這個函數(shù)添加一個說明。在工具欄中選擇“對象瀏覽器”(如圖1)，選擇我們所做“高錳酸鹽指數(shù)濃度計算公式”模塊，在其[右鍵]→[屬性]中添加關(guān)于對這個函數(shù)的描述，這個描述將出現(xiàn)在Excel中關(guān)于函數(shù)的說明中，如果你要對軟件保密的話，在“模塊”上按右鍵，[VBAproject屬性]→[保護中設(shè)置密碼]，別人就看不到你的源程序了。