VB function template

Option Explicit '变量显式声明
Option Compare Binary '大小写不同
Option Base 0 '数组首个元素编号为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