作者：乔山办公网日期：
返回目录：excel表格制作
可能是 oldtime 和 newtime 两个类型取Abs的时候类型不对了
你zd转下型试试版
Cint(oldtime)
Cint(newtime)
-----------------------------------
如果是前一句报错
你debug一下
看循环到多少出错的
并且看看出错的单元格的内容是什么
就很容易权解决了
请尝试按照以下结构调整代码复：
' 其他变量定义请自行补上.
Dim title As Variant ' 把原先制的数据类型 String 换成 Variant
Dim titleRange As Range
On Error Resume Next
Set titleRange = Application.InputBox("机构名称", Type:=8)
' /* 用户点击 OK 按钮. */
If Not (titleRange Is Nothing) Then
title = titleRange.Value
' /* 单元格值无误. */
If Not IsError(title) Then
' 其他代码zd
End If
End If
I的值必须大于等于3.不能小zd于回3.否则肯定访问失败。
另外你的.Range("C3:C" & i)
写法还是写答清楚
If Trim(ActiveSheet.Range("C3:C" & I).Value) = Str Then
在这报错的一行前面加一句
msgbox .cells(i,4) & "|" & datevalue(.cells(i,4))
就能看出是什么格式问题了