VBA——自定义函数（1）

自定义函数，就是自己定义的函数。（哈哈哈哈）
为什么使用自定义函数：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