雖然Excel中已有大量的內(nèi)置函數(shù)，但有時(shí)可能還會碰到一些計(jì)算無函數(shù)可用的情況。假如某公司采用一個(gè)特殊的數(shù)學(xué)公式計(jì)算產(chǎn)品購買者的折扣，如果有一個(gè)函數(shù)來計(jì)算豈不更方便？下面就說一下如何創(chuàng)建這樣的自定義函數(shù)。
自定義函數(shù)，也叫用戶定義函數(shù)，是Excel最富有創(chuàng)意和吸引力的功能之一，下面我們在Visual Basic模塊中創(chuàng)建一個(gè)函數(shù)。
在例子中，我們要給每個(gè)人的金額乘一個(gè)系數(shù)，如果是上班時(shí)的工作餐，就打六折；如果是加班時(shí)的工作餐，就打五折；如果是休息日來就餐，就打九折。
首先打開“工具”菜單，單擊“宏”命令中的“Visual Basic編輯器”，進(jìn)入Visual Basic編輯環(huán)境，在“工程－VBAobject”欄中的當(dāng)前表上單擊鼠標(biāo)右鍵，選擇“插入”-“模塊”，在右邊欄創(chuàng)建下面的函數(shù)rrr，代碼如下： （如圖1）
Function rrr(tatol, rr)
If rr = "上班" Then
rrr = 0.6 * tatol
ElseIf rr = "加班" Then
rrr = 0.5 * tatol
ElseIf rr = "休息日" Then
rrr = 0.9 * tatol
End If
End Function
圖1
? ? ? ? 這時(shí)關(guān)閉編輯器，只要我們在相應(yīng)的列中輸入rrr(F２，B２)，那么打完折后的金額就算出來了，是不是很容易也很有趣味？（如圖2）
圖2
