运行时错误“9”，下标越界。跪求高手指点

sophia_yang

下面这段代码是编制“提示到龄退休员工”
运行显示“运行时错误“9” 下标越界”

点击调试，“arrRmContent(1, k) = arrData(i, 1)” 上面语句变成黄色。

请问如何处理。

我学的这段编程excel中录入的“员工信息”条目为10条，如果“员工信息”条目为20条，请问编程该如何修改。谢谢，请高手们指点。

全部编程如下：
Dim iRemindTimes As Integer
Const AllowRtTimes = 100
Const BefDays = 60
Private Function RetireDay(ByVal datBirthDay As Date, ByVal strSex As String, ByVal strCap As String) As Date
Dim iRtage As Integer
iRtage = IIf(strSex = "男", 60, IIf(strCap = "工人", 50, 55))
RetireDay = DateSerial(Year(datBirthDay) + iRtaAge, Month(datBirthDay), Day(datBirthDay))
End Function
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim arrData
Dim i As Integer
Dim k As Integer
Dim datRtr As Date
Dim arrRmContent
if iRemindTimes >= AllowRtTimes Then Exit Sub
If Sh.Name = "人事数据表" Then
iRemindTimes = iRemindTimes + 1
arrData = Range("b3:k3" & [b65536].End(xlUp).Row)
ReDim arrRmContent(1 To 11, 1 To UBound(arrData))
arrRmContent(1, 1) = "工号"
arrRmContent(2, 1) = "姓名"
arrRmContent(3, 1) = "部门"
arrRmContent(4, 1) = "学历"
arrRmContent(5, 1) = "生日"
arrRmContent(6, 1) = "性别"
arrRmContent(7, 1) = "入职"
arrRmContent(8, 1) = "职称"
arrRmContent(9, 1) = "职务"
arrRmContent(10, 1) = "身份"
arrRmContent(11, 1) = "退休日期"
k = 1
For i = 1 To UBound(arrData)
datRtr = RetireDay(arrData(i, 5), arrData(i, 6), arrData(i, 10))
If RetireDay(arrData(i, 5), arrData(i, 6), arrData(i, 10)) - Now < BefDays Then
k = k + 1
arrRmContent(1, k) = arrData(i, 1)
arrRmContent(2, k) = arrData(i, 2)
arrRmContent(3, k) = arrData(i, 3)
arrRmContent(4, k) = arrData(i, 4)
arrRmContent(5, k) = arrData(i, 5)
arrRmContent(6, k) = arrData(i, 6)
arrRmContent(7, k) = arrData(i, 7)
arrRmContent(8, k) = arrData(i, 8)
arrRmContent(9, k) = arrData(i, 9)
arrRmContent(10, k) = arrData(i, 10)
arrRmContent(11, k) = datRtr
End If
Next i
ReDim Preserve arrRmContent(i To 11, 1 To k)
If k > 1 Then
UsfRtRmnd.lstRtRmnd.List = Application.Transpose(arrRmContent)
UsfRtRmnd.Show False
End If
End If
End Sub
Private Sub Workbook_Activate()
If ActiveSheet.Name = "人事数据表" Then Call Workbook_SheetActivate(ActiveSheet)
End Sub

antlia

下标越界可能是数组访问超下标，也可能是访问到不存在的对象。
你最好上个附件，说明想要做什么。光看一段代码是无法确定问题所在的。

sophia_yang

antlia 发表于 2014-1-14 14:52
下标越界可能是数组访问超下标，也可能是访问到不存在的对象。
你最好上个附件，说明想要做什么。光看一段 ...

谢谢，马上上传，忘您多指点。

sophia_yang

还望大侠们多多指导，谢谢了。附件已上传。

antlia

sophia_yang 发表于 2014-1-14 15:11
还望大侠们多多指导，谢谢了。附件已上传。

你原来的程序除了这句 ReDim Preserve arrRmContent(i To 11, 1 To k) 造成的运行时错误之外，
还有退休年龄计算函数Private Function RetireDay(ByVal datBirthDay As Date, ByVal strSex As String, ByVal strCap As String) As Date 内部代码的逻辑错误，造成计算退休日期不准确的问题，我已经一并帮你修复了。

此外还有2 个问题：
1. 你原表的 “入职时间” 列似乎应该是记录的员工年龄
2. 所有已经退职的员工记录不应该再存在于这张表格中，本表中应该仅提醒60天内即将退休的员工记录。

目前按照你原有程序的逻辑，将已经退休的员工与即将退休的员工一并提示在那个窗口里了。

具体请参考附件

sophia_yang

antlia 发表于 2014-1-14 16:03
你原来的程序除了这句 ReDim Preserve arrRmContent(i To 11, 1 To k) 造成的运行时错误之外，
还有退 ...

谢谢了，我刚接触编程，这段编程从昨天就开始看了，看到现在也不太明白。

前辈还有一个问题，现在统计的员工是10人，如果员工增加至20人，需要如何修改程序？
您有空了，再指点我一下，谢谢了。

antlia

sophia_yang 发表于 2014-1-14 16:14
谢谢了，我刚接触编程，这段编程从昨天就开始看了，看到现在也不太明白。

前辈还有一个问题，现在统计 ...

你是说条目从10条修改为20条？
等俺给修改一下程序变成条目自适应的。

antlia

antlia 发表于 2014-1-14 16:03
你原来的程序除了这句 ReDim Preserve arrRmContent(i To 11, 1 To k) 造成的运行时错误之外，
还有退 ...

已修改完成。
现在程序会自适应表格的条目，即有多少条都自动读取。

sophia_yang

antlia 发表于 2014-1-14 17:10
已修改完成。
现在程序会自适应表格的条目，即有多少条都自动读取。

谢谢了。 我还要再研究好几天了。

sangweidd

感觉有的不需要重复写，用循环语句应该简单点