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

shanchuan

副本.zip (53.25 KB, 下载次数: 32)

2011-8-19 19:40 上传

点击文件名下载附件
附件

题目：
1、要求用VBA程序的方法；
2、实现根据C列日期对E列数量求和，要求对应物料编号；
3、结果放在sheet4中，分两部分，B列结果是截止到今天的求和数量,C列是今天之后的结果（要求程序最好有判断大于当前日期的语句）。

shanchuan

代码调试与优化  9楼 先总结最初的程序。

shanchuan

shanchuan 发表于 2011-8-15 20:58 诊断sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumProduct((sht1.Range("G$448:$G$2000").Off ...

诊断：为什么显示 类型不匹配？
     sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumProduct((sht1.Range("G$4:$G$2000").Offset(0, n - 7) <> "") * (CDate(Application.WorksheetFunction.Text(sht1.Range("$C$4:$C$2000").Value, "yyyy-mm-dd"))) > Date) * (sht1.Range("$E$4:$E$2000"))     

如何判断某一列的日期 大于 当前日期

shanchuan

{:soso__11546567555708439703_1:}{:soso_e132:}

shanchuan

{:soso_e117:}在线等解答

ctp_119

没看明白你的意思！！！很遗憾……

shanchuan

ctp_119 发表于 2011-8-16 13:13
没看明白你的意思！！！很遗憾……

哪里不明白了{:soso_e132:}

cbtaja

不知道理解对了没有，或许，SQL+数据透视表方法比较简单。

注意：附件需解压到D盘根目录下D:\，才能刷新透视表的结果，否则需要“编辑 OLE DB 查询”，指定新的绝对路径。

shanchuan

Sub sheet4明细0()
    Dim n%   
    Dim sht4 As Worksheet, sht1 As Worksheet
    Set sht4 = ThisWorkbook.Worksheets("sheet4")
    Set sht1 = ThisWorkbook.Worksheets("sheet1")
For n = 9 To 200   
   sht4.Cells(n - 7, 1) = sht1.Cells(3, n)
   sht4.Cells(n - 7, 3) = Application.WorksheetFunction.SumIf(sht1.Range("G$4:$G$526").Offset(0, n - 7), "<>", sht1.Range("$E$4:$E$526"))
   sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumIf(sht1.Range("G$526:$G$2000").Offset(0, n - 7), "<>", sht1.Range("$E$526:$E$2000"))   
   '这一句就是4天的计划数量，是通过手工更改行数（大于等于当前日期的行数，比如526）来实现的，每过一天，需要重新改一次，现在想通过增加一个判断日期一列大于当前日期的条件来实现自动计算。
    Next   
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumProduct((sht1.Range("G$4:$G$654").Offset(0, n - 7) <> "") * (Day(sht1.Range("$C$4:$C$654")) > Day(Now)), (sht1.Range("$E$4:$E$654")))      
想法是将上面程序的2个条件求和变为三个条件求和，但是可能第三个条件表达的语句有问题，运行显示“类型不匹配” 请诊断
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
错误“1004” 应用程序定义或对象定义错误。
Sub sheet4明细1()
    Dim n%   
    Dim  sht4 As Worksheet, sht1 As Worksheet
    Set sht4 = ThisWorkbook.Worksheets("sheet4")
    Set sht1 = ThisWorkbook.Worksheets("sheet1")
For i = 730 To 2000
    If sht1.Cells(i, 3) <> "上线日期" And sht1.Cells(i, 3) > Date Then    ‘想法是 由于 将三个条件求和中的大于当前日期一句一直调试不成。退而求其次考虑将这个条件移出，提前判断出行号。
    k = i
GoTo line1
    End If
    Next
line1:
For n = 9 To 180   
   sht4.Cells(n - 7, 1) = sht1.Cells(3, n)
   sht4.Cells(n - 7, 3) = Application.WorksheetFunction.SumIf(sht1.Range(Cells(4, 7), Cells(k - 1, 7)).Offset(0, n - 7), "<>", sht1.Range(Cells(4, 5), Cells(k - 1, 5))) ’有时候成功，有时候运行到这里报错：运行时错误“1004” 应用程序定义或对象定义错误。
Next   
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
运行成功
Sub sheet4明细2()
    Dim n%
    Dim k
    Dim i
       Dim sht4 As Worksheet, sht1 As Worksheet
    Set sht4 = ThisWorkbook.Worksheets("sheet4")
    Set sht1 = ThisWorkbook.Worksheets("sheet1")
   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
line1:
For n = 9 To 180   
   sht4.Cells(n - 7, 1) = sht1.Cells(3, n)
   sht4.Cells(n - 7, 2) = Application.WorksheetFunction.SumIf(sht1.Cells(4, n).Resize(k - 3, 1), "<>", sht1.Range("E4:E" & k - 1))
   sht4.Cells(n - 7, 3) = Application.WorksheetFunction.SumIf(sht1.Range(Cells(k, 7).Address, Cells(2000, 7).Address).Offset(0, n - 7), "<>", sht1.Range(Cells(k, 5).Address, Cells(2000, 5).Address))
Next   
End Sub

shanchuan

{:soso__13857433363807363611_1:}谁能解决这个问题