标题: 非ACCESS环境处理空值——自定义NZ函数 [打印本页] 作者: smileyoufu 时间: 2014-1-21 10:25 标题: 非ACCESS环境处理空值——自定义NZ函数 有时候ACCESS中写的一些通用函数/过程可以移植到EXCEL和VB中使用，但如果在函数/过程中使用了NZ函数的话，就会出现麻烦，因为VB和EXCEL是没有NZ函数的，除了修改代码，那该怎么办呢？
当然是先百度一下……
百度也没好方法，那就自己动手编写一个自定义的NZ函数来替代吧。
'函 数 名：NZ
'函数作用：在EXCEL或者VB中替代Access中的NZ函数，而无需修改原通用模块
'作 者：席主习
'创建日期：2014-1-17
'注意事项：作者编写此函数时，主要是为处理文本和数字使用，其它类型数据未作测试。请根据实际需求测试后使用。-17
Public Function NZ(varValue As Variant, Optional varValueIfNull As Variant = "") As Variant
If Len(varValue) = 0 Then
If Len(varValueIfNull) = 0 Then
varValue = ""
Else
varValue = varValueIfNull
NZ = varValue
End If
Else
NZ = varValue
End If
End Function
'调用示例：
Sub test()
Dim a As Variant
a = NZ(a, 0)
Debug.Print "OUT:"; a
End Sub
'限于作者水平，该函数可能编写不完美，请看客予以斧正。