excel自定義函數在水質工作中的應用

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