大师你好！用什么代码判断数组arr()是否存在？谢谢！

fsydw · 发表于 2010-4-27 20:48

原帖由 lb_bn 于 2010-4-27 20:29 发表
因为数组还没有赋值。
arr只是类型是数组。

谢谢大师赐教！
怎么写这个代码：如果数组已赋值，执行代码一，如果数组未赋值，执行代码二。怎么写才不会报错、才正确呢？

lb_bn · 发表于 2010-4-27 20:54

Sub bbb()
'Dim ar1
Dim ar1()
'ar1 = [a1]
'ar1 = [a1:b3].Value
If IsArray(ar1) Then
On Error Resume Next
ub = UBound(ar1)
If Err.Number <> 0 Then
MsgBox "数组未赋值"
Err.Clear
Else
MsgBox "数组已赋值"
End If
On Error GoTo 0
Else
MsgBox "不是数组"
End If
End Sub

复制代码

aidixiao · 发表于 2010-4-27 21:50

谢谢分享。

fsydw · 发表于 2010-4-28 00:05

原帖由 lb_bn 于 2010-4-27 20:54 发表
Sub bbb()
'Dim ar1
Dim ar1()
'ar1 = [a1]
'ar1 = [a1:b3].Value
If IsArray(ar1) Then
      On Error Resume Next
      ub = UBound(ar1)
      If Err.Number  0 Then
   ...

谢谢大师赐教！珍藏！

fsydw · 发表于 2010-4-28 08:30

大师你好！这段代码错在哪了？谢谢！

1、 arr是有数据的数组，brr这样生成：brr = Application.Transpose(arr)
2、MsgBox brr(1, 1)，会提示“下标越界”。

alzeng · 发表于 2010-4-28 08:34

可能brr是一维数组：
Msgbox brr(1)

fsydw · 发表于 2010-4-28 08:45

原帖由 alzeng 于 2010-4-28 08:34 发表
可能brr是一维数组：
Msgbox brr(1)

谢谢大师赐教！
我的arr是二维数组啊！2行、3列。怎么办呢？

alzeng · 发表于 2010-4-28 08:59

应该没有问题，除非你Arr赋值错误。

fsydw · 发表于 2010-4-28 09:06

原帖由 alzeng 于 2010-4-28 08:59 发表
应该没有问题，除非你Arr赋值错误。
707756

谢谢大师赐教！
我查查看。

fsydw · 发表于 2010-4-28 09:16

大师你好！正如您所说：我的brr是一维。见图：arr2是已有数据的二维数组，arr3是用arr2转置生成的新数组（一维）。所以出错！！！
数组错误.jpg

怎么办呢？我的代码要求，arr3也应是二维数组。烦请大师赐教！

		自动登录	找回密码
密码			免费注册

[求助] 大师你好！用什么代码判断数组arr()是否存在？谢谢！