[已解决]自动提醒！！

qian123 · 发表于 2012-10-5 14:49

管理人员名册1.rar (25.56 KB, 下载次数: 26)

hwc2ycy · 发表于 2012-10-5 14:51

不是已经好了嘛？

hwc2ycy · 发表于 2012-10-5 14:52

“哪个再添加就不行了”，这个啥意思啊。

qian123 · 发表于 2012-10-5 14:53

本帖最后由 qian123 于 2012-10-5 15:01 编辑

hwc2ycy 发表于 2012-10-5 14:52
“哪个再添加就不行了”，这个啥意思啊。

管理人员名册.rar (41.34 KB, 下载次数: 8)

无聊的疯子 · 发表于 2012-10-5 15:15

qian123 发表于 2012-10-5 14:53
我再添加一些名册进去！！哪些新的数据就不提示了？过了109行以后的数据就不行了

iRow = [a2].End(xlDown).Row

而你的A列时没有增加数据进去，你是从B列开始添加数据的，所以应该改为

iRow = [B2].End(xlDown).Row

hwc2ycy · 发表于 2012-10-5 15:16

Private Sub Workbook_Open()
Dim arrName, arrDate
Dim iRow As Long, i As Long
Dim sName As String
Dim dDate As Date
iRow = [h2].End(xlDown).Row
If Cells(iRow, "h") = "" Then Exit Sub
arrName = Range("h2:h" & iRow).Value
arrDate = Range("w2:w" & iRow).Value
For i = 1 To UBound(arrName)
dDate = arrDate(i, 1)
If Date < dDate And dDate - Date <= 15 Then
sName = IIf(sName = "", arrName(i, 1) & " " & arrDate(i, 1), sName & vbCr & arrName(i, 1) & " " & arrDate(i, 1))
Else
If Date > dDate Then sName = IIf(sName = "", arrName(i, 1) & " " & arrDate(i, 1), sName & vbCr & arrName(i, 1) & " " & arrDate(i, 1))
End If
Next
If Len(sName) > 0 Then
MsgBox "合同马上到期人员名单:" & vbCr & sName
End If
End Sub

复制代码

你踩中我的地雷了，我是会判断A列最后一行数据是否为空，如果为空，就自动结束了。

hwc2ycy · 发表于 2012-10-5 15:17

管理人员名册.rar (41.86 KB, 下载次数: 53)

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