代码调试与优化--如何判断某列日期大于当前日期(优化)

Yi_Idea · 发表于 2011-8-20 10:55

本帖最后由 Yi_Idea 于 2011-8-20 11:05 编辑

表格中的代码与19楼有点不一定~
19楼出错是因为,range里面应该是位置信息,而你的代码返回的是数值...
Cells(X, X)后面加.address返回位置信息即可.
如果想字段短一点可以这样~
sht4.Cells(n - 7, 2) = Application.WorksheetFunction.SumIf(sht1.Cells(4, n).Resize(k - 3, 1), "<>", sht1.Range("E4:E" & k - 1))
但是最好还琢磨一下BZ的代码,学习一下字典,其实不算复杂的~
因为这样的表格做到一定程度,还是只是用VBA调用函数的话,速度肯定不理想的...

---------
饿...刚刚有调试了一下...
不加.address有时也可以,而修改之后的代码则貌似没出错了
希望其他朋友解答一下~

shanchuan · 发表于 2011-8-20 12:37

本帖最后由 shanchuan 于 2011-8-21 10:00 编辑

Yi_Idea 发表于 2011-8-20 10:55
表格中的代码与19楼有点不一定~
19楼出错是因为,range里面应该是位置信息,而你的代码返回的是数值...
Cel ...

您说的没错，谢谢参与解答。运行成功了。
For i = 737 To 2000
If sht1.Cells(i, 3) <> "上线日期" And sht1.Cells(i, 3) > Date Then
k = i ’得到的k=i是大于当前日期的最上面一行的行号。如何能得到第三列中最新最大日期的最上面一行的行号？
GoTo line1
End If
Next

shanchuan · 发表于 2011-8-25 20:44

怎无人问津了{:soso_e132:}

imonior · 发表于 2013-9-14 13:19

好好学习下，是好东西

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

[求助] 代码调试与优化--如何判断某列日期大于当前日期(优化)