怎样判断数组为空值？

babawu

我要使用的地方是函数的返回值的时候，既要返回一个空数组，
通过前面朋友的讲解，判断已经学习了，
就是通过自定义判断函数来解决。

那么，通过redim能把数组赋空吗？

babawu

是不是这样来实现？

dim a() as integer
redim a(1)'这里已经已经不为空
...
dim b() as integer
a=b'这里把a赋空

以上思路对不对？

huangwei0king

如果，数组下标是默认的0的话，上面的代码会存在一个问题，如下：
Sub y3231057()
Dim a() As Integer
On Error Resume Next
ReDim arr(0 To 0)
arr(0) = 1
If UBound(a()) < 1 Then
    MsgBox "数组为空"
End If
End Sub
运行结果为 数组为空，所以进行IF判断时候的数组下标的值，得根据实际情况进行选择！

hzruziniu

8楼少了下面一句API，把这一句放在模块的上边，就可以用函数判断了
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long

antique_star

针对我们这些对VBA知其然不知其所以然的初级人士来说，什么API之类确实够复杂，虽然有别人的东西可用，但总觉得不爽。
其实工作实例中我也遇到过类似的情况，但我所知道的是用自己明白VBA代码去堂而皇之的判断并解决问题，以下提供2种思路供参考：

第一种：通过错误进跳行执行代码。
意思就是说，之所以要判断数组是否为空，则说明你的数组是一个动态并临时存放数据的数组，现在面临一个将其扩展前要引用其上下标，如果数组为空，则引用代码会报错。此时可以利用下面的成对代码来包住引用上下标的代码：
On Error Go To +行标签
  ……对上下标引用的语句
On Error Go To 0 ‘零而非字母噢
行标签则是你当数组为空时需要跳转到初始赋值的地方。

第二种：不要围绕数组为空来纠结，通过另一个循环变量来转移问题
一般来说，动态数组的运用多用在循环语句中，那么在循环的一开始就定义一个变量，每循环一次这个变量就叠加1，那么下面的代码就可以分两条线执行。
if 变量=0 then
  初始赋值
else
  则正常引用上下标，然后再用redim preserve 数组来进行动态扩充
endif

个人拙见！希望能帮您解决问题。

antique_star

追回第三种方法：

将动态数组初始声明成这样：
dim Arr(1 to 1) 或者 dim Arr(1 to 1, 1 to 1)
再在程序执行代码中判断数组元素是否为空
if Arr(1) = ""  
   初始赋值
else
   追加赋值
endif

antique_star

来虚的没用，上个实例代码图片（并非为了防拷）吧，之所以不直接引用代码，是我之前每次粘入代码，排版就乱了，特别是批注乱跳行，不知道为什么。对于新手很难看懂，截图是我们对仗工整的格式，方便新人看懂。

VBA@BH

sub test1()
  dim arr1()
  if len(join(arr1))=0 then
     msgbox "arr1 is Null!"
  end if
end sub

cicnmg

Len(Join(array(1,2,3), ",")) > 0

夏天的风shh4695

antique_star 发表于 2016-11-18 10:07
针对我们这些对VBA知其然不知其所以然的初级人士来说，什么API之类确实够复杂，虽然有别人的东西可用，但总 ...

优秀！！！可以加个联系方式学习下吗？