请问自定义的Fucntion函数怎样才能只被VBA引用？

cyradg

我定义了一个函数，如： Function TT() End Function 那么这个TT函数会在Excel里“菜单”->“插入”->“函数”里的“自定义”里会出现TT函数，我不想让TT函数出现在这里，但又希望它能被整个VBA宏代码里使用（即其它模块，窗口能调用它），请问怎么实现，是不是无法实现？谢谢。

FENGJUN

Try:

Private Function IT()

cyradg

如果是private,那就不能被其他模块使用

Long_III

用一个子过程来替代这个自定义函数即可。给你个简单例子

Option Explicit

Function IT(a As Integer) As Double
IT = a * 1.2
End Function

Sub iit(a As Integer, ByRef b As Double)
b = a * 1.2
End Sub

Sub hjs()
Dim s As Double
MsgBox IT(2)
iit 2, s
MsgBox s
End Sub

taller

可以变通一下，函数属性仍然为Public，但是代码放在工作表对象中，这样在工作表中插入时就看不到这个函数，但是其它模块仍然可以调用
'---------------------------------------------------------Sheet1---------------------------------------------------------

Function aa(a As Integer) As Integer
aa = a + 1
End Function
'--------------------------------------------------------Module1--------------------------------------------------------
Sub macro()
MsgBox Sheet1.aa(5)
End Sub

Long_III

还是taller版主的方法比较好！

sky62118

感谢

hwb_101

好方法，学习了

dlhwtt

学习了，谢谢

zuolufeifei

好东西，学会了，谢谢斑竹