在工作表中调用执行:A2=hanshu(A1)
'在代码中调用执行:
Sub diaoyong()
Dim d As Long
d = hanshu(10)
End Sub
Function hanshu(a As Variant) As Long
If Val(a) > 0 Then
hanshu = 1
Else
hanshu = 0
End If
End Function
好像是 ALT + F8 选择你的自定义函数,然后点 执行
不要放sheet1 模块下,你右键---插入--模块,把代码放在这个模块里,再试一下
2007里面点插入→函数→自定义函数
就可以用自己的函数了
你在主函数里调用了就执行