如何启用excel中用VBA自定义的函数公式

Question

新建一个2007Excel工作表，在VBA中是ThisWorkbook中输入以下代码，关闭并切换到表格中却不能使用这个自定义函数，之前可以正常使用这个函数，现在却不行，请问是哪里出问题了？
求教各位高手。
Public Function zidingyiqiuhe(r) As Single
Dim k As Range
Dim s As Single
For Each k In r
If k.Value <> "" Then s = s + k
Next
zidingyiqiuhe = s
End Function

Answer 1

什么叫做vba自定义的函数公式？
你是想说：如何进入vba代码编辑窗口吗？

不要把代码放在表格的代码里，插入一个新模块，代码放在模块里

Answer 2

你这个不是和sum函数一样吗，直接用Sum函数不就行 了，况且你的这个函数比sum函数运行的速度慢多了，如果一定要用你这个函数，你可以将这个函数放到模块中，而不是放在thisworkbook中。谢谢

Answer 3

自定义函数Function 代码要存在 模块里
界面单元格写公式才可以调用得到