有时候ACCESS中写的一些通用函数/过程可以移植到EXCEL和VB中使用，但如果在函数/过程中使用了NZ函数的话，就会出现麻烦，因为VB和EXCEL是没有NZ函数的，除了修改代码，那该怎么办呢？     可以自己动手编写一个自定义的NZ函数来替代吧。'函 数 名：NZ'函数作用：在EXCEL或者VB中替代Access中的NZ函数，而无需修改原通用模块'作      者：席主习'创建日期：2014-1-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 IfEnd Function

'调用示例：Sub test()    Dim a As Variant    a = NZ(a, 0)    Debug.Print "OUT:"; aEnd Sub