Question

为什么我在用VB自定义函数的时候，编程完成后，却不能调用该函数。

Function triarea(a, b, c)
Dim a, b, c As Integer
s = (a + b + c)
area = Sqr(s * (s - a) * (s - b) * (s - c))
Select Case c
Case Is > a - b
Select Case c
Case Is < a + b
triarea = area
Case Else:
triarea = 0
End Select
End Function
改程序为求输出A,B,C为三角形三边，在满足条件的状况下，求三角形面积。

Answer 1

public function
你想在那里调用？
如要要调用的话，请做成 DLL 文件。然后在别的程序中引用。
直接写类就行了

追问

我是继续在EXCEL里面当做函数使用。我直接在输入栏上打=triarea(a, b, c)
，显示#NAME。这是VBA编程。

追答

在上述Excel工作表中，选择菜单“工具→宏→Visual Basic编辑器”命令，打开Visual Basic窗口，然后选择菜单“插入→模块”命令，插入一个名为“模块1”的模块。
在新窗口中拷贝以下代码：

function v(a,b)
v=a*b
end function

关闭

回到EXCEL工作表界面，输入公式
=V(B1,C1)
如果B1=9，C1=9，则自定义函数执行结果为B1*C1=81(就是代码中的a*b)

完毕之后点文件-另存格式为-加载宏。
宏的保存与调用
菜单--文件--另存为 保存类型选-加载宏.xla
菜单--工具--加载宏，找出V