[已解决]下标越界问题

木牙水 · 发表于 2013-8-21 21:12

本帖最后由木牙水于 2013-8-22 15:49 编辑

我想判断 I列有数据的单元格是否为日期格式，写了一段代码，但是总提示下标越界，请帮忙找出下原因？
Sub 检查数据()
Dim arr
Dim j
Dim rn
j = Sheets("汇总表").Range("b65536").End(3).Row
arr = Sheets("汇总表").Range("i5:i" & j).Value
For k = 1 To UBound(arr)
      If IsDate(arr(k)) = False And rn = "" Then
            rn = Range("i" & k + 4).Address
      ElseIf IsDate(arr(k)) = False Then
            rn = rn & "、" & Range("i" & k + 4)
      End If
Next k
If rn = "" Then
MsgBox "数据无误"
Else
MsgBox rn
End If
End Sub

问题.rar (34.43 KB, 下载次数: 4)

我心飞翔410 · 发表于 2013-8-21 21:22

本帖最后由我心飞翔410 于 2013-8-21 21:25 编辑

Sub 检查数据()
Dim arr
Dim j
Dim rn
j = Sheets("汇总表").Range("b65536").End(3).Row
arr = Sheets("汇总表").Range("i5:i" & j).Value
For k = 1 To UBound(arr)
      If Not IsDate(arr(k, 1)) And rn = "" Then
            rn = Range("i" & k + 4).Address
      ElseIf IsDate(arr(k, 1)) = False Then
            rn = rn & "、" & Range("i" & k + 4)
      End If
Next k
If rn = "" Then
MsgBox "数据无误"
Else
MsgBox rn
End If
End Sub
那是arr是二维数组不是一维数组

djyjysxxs · 发表于 2013-8-21 21:25

这个最佳答案由 djyjysxxs 给出，感谢 djyjysxxs 的回答。

单击隐藏图章

1、j = Sheets("汇总表").Range("b65536").End(3).Row
arr = Sheets("汇总表").Range("i5:i" & j).Value
由于B列无数据，所以j=1，第二行arr得到的就是Sheets("汇总表").Range("i1:i5")的值

2、下标越界是因为：arr = Sheets("汇总表").Range("i5:i" & j).Value后arr是个二维数组，而后面引用时是arr(k)，这是一维的方式，当然就出错了。把arr(k)改成arr(k,1)就成了

3、循环中的判断还可优化一下

木牙水 · 发表于 2013-8-22 19:02

djyjysxxs 发表于 2013-8-21 21:25
1、j = Sheets("汇总表").Range("b65536").End(3).Row
arr = Sheets("汇总表").Range("i5:i" & j).Val ...

请问 djyjysxxs 代码还能如何简化啊？

djyjysxxs · 发表于 2013-8-22 21:26

木牙水发表于 2013-8-22 19:02
请问 djyjysxxs 代码还能如何简化啊？

你是想得到地址还是内容？
以下是得到地址，在数据量大时速度略快点点
Sub 检查数据()
Dim arr()
Dim j&
Dim rn$
j = Sheets("汇总表").Range("i65536").End(3).Row
arr = Sheets("汇总表").Range("i5:i" & j).Value
For j = 1 To UBound(arr)
      If IsDate(arr(j, 1)) = False Then
         rn = rn & "、$i$" & j + 4
      End If
Next
If rn = "" Then
MsgBox "数据无误"
Else
MsgBox Mid(rn, 2)
End If

End Sub

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

[已解决]下标越界问题

评分

评分