vba中判断〇维数组的简便方法

coby001

在vba中使用 动态数组 方便又灵活。
但有时候要判断一下数组是否初始化，没初始化的动态数组是 0维 的。

一般的方法有
1、API 的 SafeArrayGetDim 方法
2、用 UBound()  试错。

如果只是判断数组是否是 0维 的，比较简便的方法是：
((Not Arr) = -1)

示例：

1. Sub 零维数组()
   
2.     Dim iArr0&(), iArr2&(2)
   
3. 
   
4.     Debug.Print Not iArr0    '零维数组 显示 -1
   
5.     Debug.Print Not iArr2    '显示 其他值
   
6.    
   
7.     Debug.Print IsZeroDim(iArr0)    '零维数组 显示 True
   
8.     Debug.Print IsZeroDim(iArr2)     '显示 False
   
9. 
   
10.     ReDim iArr0&(5)
    
11.     Debug.Print Not iArr0    '不再是零维数组 显示 其他值
    
12. 
    
13. End Sub
    
14. 
    
15. Function IsZeroDim(iArr&()) As Boolean
    
16.     IsZeroDim = ((Not iArr) = -1)
    
17. End Function
    

复制代码

coby001

由于vba是强类型语言，要分别针对其他类型些特定函数，
示例中只写了个 long型数组的函数。
Function IsZeroDim(iArr&()) As Boolean

bluexuemei

Not iArr0=-1,去掉前面的Not程序运行出错，这是为什么?

coby001

bluexuemei 发表于 2014-10-14 12:33
Not iArr0=-1,去掉前面的Not程序运行出错，这是为什么?

iArr0是数组名，不能赋值

香川群子

这个虽然很有趣，但其实在VBA中应该没有使用价值。

数组变量在写代码时就已经定义好了，没有任何需要在中途进行是否空数组的判断。

coby001

香川群子 发表于 2014-10-14 14:51
这个虽然很有趣，但其实在VBA中应该没有使用价值。

数组变量在写代码时就已经定义好了，没有任何需要在中 ...

你多写点程序就知道了。

如果都定义好了，就没必要出现 动态数组 这玩意了~

香川群子

coby001 发表于 2014-10-14 15:21
你多写点程序就知道了。

如果都定义好了，就没必要出现 动态数组 这玩意了~

动态数组？ Redim arr() 是不成立的。

coby001

香川群子 发表于 2014-10-14 15:30
动态数组？ Redim arr() 是不成立的。

。。。莫。名。其。妙。。。。。。。。。。。。。。。。。

coby001

lee1892  多写一行代码的事，If 条件 Then ReDim 函数名(-1 To -1): Exit Function

多写这行代码干什么呀？

香川群子

coby001 发表于 2014-10-14 15:21
你多写点程序就知道了。

如果都定义好了，就没必要出现 动态数组 这玩意了~

【你多写点程序就知道了。】

如果我说世界上并没有黑天鹅，你回答说：你多抓一些天鹅来看就能看到了……

还不如你直接上一段代码，让我看一看，你是如何有必要使用这个语句来【判断数组变量是否为空数组】的。