如何启用<em>excel</em>中用<em>VBA</em>自定义的

Public Function FD(rng As Range)
i = Fix(rng.Value / 72)
k = rng.Value Mod 72
If k <= 40 Then
FD = 300 * i + (k / 40) * 200
ElseIf 40 < k <= 46 Then
FD = 300 * i + 200
ElseIf 46 < k <= 66 Then
FD = 300 * i + 200 + ((k - 40) / 20) * 100
Else
FD = 300 * i + 300
End If
End Function

使用
b1=FD(a1)

问题真的太大。
打开excel按F1,里面几乎有VBA的全部教程。excel中的函数可以在VBA中调用的。用Dim声明变量，具体操作看帮助。

Sub 声明变zhidao量()
Dim compname As String '声明变量compname为字符串类型
Dim startdate As Date '声明变量startdate为日期版型
Dim comyears As Integer '声明变量comyears为数值型
compname = "1+2" '为变量赋值为字符型
startdate = "2008-3-25" '日期需用引号括起来
comyears = 1+2 '为数值型变量赋值字符型
MsgBox "变量compname的值权:" & compname & Chr(10) & "变量startdate的值:" & startdate & Chr(10) & "变量comyears的值:" & comyears
End Sub