Funtion 函数丢失如何判断?

cgx5871

1. 
   
2. Function tttt(Optional x As Variant, Optional rng As Range) As Variant
   
3.     If x = "" Then MsgBox "无"
   
4.     If rng = "" Then MsgBox "无"
   
5.    
   
6.     '当没有参数值传递进来时.
   
7.     '如何判断上面的x  rng 值是空的,  尝试用IsEmpty  Null  Is Nothing之类,  都提示类型错误. 要求对象  错误424
   
8.     '调试时鼠标提示是----"丢失"    意思就是如何去判断这个"丢失"  状态?
   
9. End Function
   
10. 
    
11. 
    
12. Sub test()
    
13.     arr = tttt   '测试
    
14. End Sub
    

复制代码

用IsMissing  已解决,  请版主删帖.

lsdongjh

未传参判断，需要根据参数类型的
    If IsMissing(x) Then MsgBox "无"  'Variant 用ismissing
    If rng Is Nothing Then MsgBox "无" '对象可用 is nothing