折腾一晚上, 卡在判断数组是否为空, 有这么难吗?

cgx5871

Dim  arr(2), Dim brr(3)
arr(1)=brr

if arr  ------------要怎么判断为空呢?

1. Dim arr(2) As Variant, brr(3) As Variant
   
2. arr(1) = brr
   
3. 
   
4. if arr  '------------要怎么判断为空呢?

复制代码

没有输入任何内容到数组.
之后要怎么判断, 这个数组里面, 其实没有任何东西呢?

------------------
方法1:   API   的 SafeArrayGetDim  因为是64们Excel  , 下面这句出错
            Private ptrSafe Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
方法2:  用Join之类,

论坛搜了一晚上,
似乎都不理想. 有没有比较完美的判断方案?

yf_home

Sub Macro1()
    Dim arr()
    If abc(arr) Then MsgBox "数组不为空!" Else MsgBox "数组为空!"
    ReDim arr(1 To 9)
    If abc(arr) Then MsgBox "数组不为空!" Else MsgBox "数组为空!"
End Sub

Public Function abc(arr) As Boolean
    Dim i&
    On Error Resume Next
    i = UBound(arr)
    If Err = 0 Then abc = True
End Function
来源：http://club.excelhome.net/thread-1087733-1-1.html

zopey

数组元素 循环判断：
Sub 按钮2_Click()
Dim arr(2)
'arr(1) = 12

k0 = "为空"
For Each a In arr
   If Not IsEmpty(a) Then k0 = "有值": Exit For
Next

MsgBox k0
End Sub

lipton

不太明白你的目的，从声明到赋值到使用整个过程都是可控的，如果是要传递参数给另一个函数由使用方判断可以参照_VARIANT_T结构体的使用，其中成员VT就表达结构体内部是什么类型，是否为空。

简易版的VARIANT_T例子：

1. Enum varEnum
   
2.     null_t = 0
   
3.     num = 1
   
4.     text = 2
   
5.     var_t = 3
   
6. End Enum
   
7. 
   
8. Type VARIANT_T
   
9.     VT As varEnum
   
10.     ARR As Variant
    
11.     BOOL As Boolean
    
12. End Type
    
13. 
    
14. 
    
15. Sub test()
    
16.     Dim var1 As VARIANT_T
    
17.     Dim var2 As VARIANT_T
    
18.     Dim rng As Range
    
19.    
    
20.     Set rng = Sheet1.Range("a1:a10")
    
21.     var1.ARR = rng.Value
    
22.     var1.VT = varEnum.var_t '赋值类型标记
    
23.    
    
24.     testType var1 '赋值的结构体
    
25.     testType var2 '没有赋值的结构体
    
26.    
    
27.    
    
28. End Sub
    
29. 
    
30. Sub testType(varTemp As VARIANT_T)
    
31.     '检测参数类型
    
32.     If varTemp.VT <> varEnum.null_t Then
    
33.         Debug.Print varTemp.VT
    
34.     End If
    
35. End Sub
    

复制代码