function template

Option Explicit
Option Compare Binary
Option Base 0

'【函数模板】
Function MyTemplate() As Boolean '我的函数模板

'函数开始
Debug.Print
Debug.Print "_______________________________[Fun MyTemplate]"

'初始化函数值
MyTemplate = False '初始化为：函数失败

'错误处理
'根据模块变量"debug模式"状态设定：错误处理方式
If Not gbFLAG_DebugMode Then On Error GoTo Err

'处理模块变量

'定义过程变量

'应用控制
Application.ScreenUpdating = False

'函数体————
If MsgBox("所选单元格取负值？", vbYesNo, "操作") = vbYes Then
End If

'应用控制恢复
Application.ScreenUpdating = True

'清空过程变量

'处理模块变量恢复

'设定函数值
MyTemplate = True '设定函数值为：函数成功

'函数正常结束
Debug.Print
Debug.Print "MyTemplate completed."

Exit Function
Err:

'函数异常结束
Debug.Print
Debug.Print "MyTemplate ERROR."

'错误处理
If Not ErrorHandle("(MyTemplate) in Module(zzTemplate).", gl_Err_Medium) Then Debug.Print

'应用控制恢复
Application.ScreenUpdating = True

'清除过程变量

'处理模块变量恢复

End Function

标签：function,函数,MyTemplate,Print,template,Debug,错误处理,变量
来源： https://www.cnblogs.com/bluefallyou/p/15825302.html