自定义函数，就是自己定义的函数。（哈哈哈哈）
为什么使用自定义函数：Excel内置的函数都不能满足工作需求。
作用:简化复杂公式，可以和工作表函数嵌套使用。
image.png
Function 函数名（参数1，参数2，...）
代码
函数名=代码执行的结果
end function
实例：
Public Function stname()
stname = ActiveSheet.Name '返回当前工作表名
End Function
--------------------------
Public Function wbname()
wbname = ThisWorkbook.Name '返回工作簿名
End Function
-------------------------------------------
'有参数的自定义函数
Function nas(num As Integer) '提取工作表名或工作簿名
If num = 0 Then
nas = ActiveSheet.Name
ElseIf num = 1 Then
nas = ThisWorkbook.Name
End If
End Function
GIF.gif
网友评论