快捷搜索:  美女    as  交警  美食  李江  名称  大公

运行时错误13:类型不匹配【excel吧】

就是上次你为我做的代码,有的列表使用可以,但有的列表就不能了,我检查第14列的到期日除了有空行,格式是日期格式。

Sub htqs()
Dim s(4)
Dim seq%, out$, i%, xstr$
For r = 4 To [a65536].End(xlUp).Row - 1 '从第4行开始
seq = 0
If Cells(r, 15) + 1 = Date Then seq = 1 '第15列是到期日
If Cells(r, 15) - 2 = Date Then seq = 2
If Cells(r, 15) - 1 = Date Then seq = 3
If Cells(r, 15) = Date Then seq = 4
s(seq) = s(seq) & "第" & Cells(r, 1) & "笔: " & Cells(r, 5) & vbCrLf '第1列是笔号,第5列是单位名称
Next
If s(1) & s(2) & s(3) & s(4) = "" Then
out = "**近日没有到期和过期情况!**"
Else For i = 1 To 4
If i = 1 Then xstr = "已过期一天名单"
If i = 2 Then xstr = "差二天到期名单"
If i = 3 Then xstr = "差一天到期名单"
If i = 4 Then xstr = "今天到期名单"
If s(i) = "" Then s(i) = " 【空】" & vbCrLf out = out & "——" & xstr & "——" & vbCrLf & s(i) & vbCrLf
Next
End If
MsgBox out, vbInformation, "到期提醒"
End Sub

您可能还会对下面的文章感兴趣: