作者：乔山办公网日期：
返回目录：excel表格制作
在语句中调用函数
直接 ok 就可以了
或者 call ok
在模块里定义：
function aa(a)
aa=a
end function
窗体里调用：
x=aa(1)
msgbox x
一、利用单zd元格公式返回值
Sub t5()
Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式回表达式转化为数值
Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub
二、借用工作表答函数
Sub t6()
Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'
三、利用VBA函数
Sub t7()
Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub
可以呀，VBA 里面可以调用内置函数，比如SUM vba里面是这样的，application.worksheetfunction.sum