您的位置：　首页 > 技术文章 > Access数据库-模块/函数/VBA

非Access环境使用——自定义NZ函数

来源:原创 点击数:7372 　 | 收藏 | 复制

时　间:2014-01-21 10:20:39
作　者:smileyoufu ID：1784 城市：成都
摘　要:非Access环境使用——自定义NZ函数
正　文:

有时候ACCESS中写的一些通用函数/过程可以移植到EXCEL和VB中使用，但如果在函数/过程中使用了NZ函数的话，就会出现麻烦，因为VB和EXCEL是没有NZ函数的，除了修改代码，那该怎么办呢？

当然是先百度一下……

百度也没好方法，那就自己动手编写一个自定义的NZ函数来替代吧。

'函数名：NZ

'函数作用：在EXCEL或者VB中替代Access中的NZ函数，而无需修改原通用模块

'调用方法：和ACCESS中的NZ语法一样

'作者smileyoufu

'创建日期：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

'限于作者水平，该函数可能编写不完美，请看客予以斧正。

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店

【打印此文】【关闭窗口】