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

白云2011

公式不太熟练全部用数组计算不错哦

shanchuan

答题{:soso__8830200024113506276_3:}

shanchuan

在VBA里 如何比较日期，日期的大小，如何象函数那样返回序列号？

shanchuan

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")))      
运行显示 类型不匹配

shanchuan

sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumProduct((sht1.Range("G$4:$G$654").Offset(0, n - 7) <> "") * (sht1.Range("$C$4:$C$654") > date)*(sht1.Range("$E$4:$E$654")))      
运行显示 类型不匹配  问题出在哪？

zhaogang1960

短信收到，请测试：

Sub Macro1()
    Dim arr, brr(), MyDate As Date, d As Object, i&, j&
    Set d = CreateObject("scripting.dictionary")
    MyDate = Date
    With Sheets("Sheet4")
        arr = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
    End With
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = i
    Next
    arr = [c3].Resize([c65536].End(3).Row - 2, [iv3].End(1).Column - 2)
    For i = 3 To UBound(arr)
        If IsDate(arr(i, 1)) Then
            If arr(i, 1) <= MyDate Then
                For j = 7 To UBound(arr, 2)
                    If Len(arr(i, j)) Then brr(d(arr(1, j)), 1) = brr(d(arr(1, j)), 1) + arr(i, 3)
                Next
            Else
                For j = 7 To UBound(arr, 2)
                    If Len(arr(i, j)) Then brr(d(arr(1, j)), 2) = brr(d(arr(1, j)), 2) + arr(i, 3)
                Next
            End If
        End If
    Next
    Sheets("Sheet4").[b2].Resize(d.Count, 2) = brr
End Sub

zhaogang1960

请看附件：


副本.rar (43.01 KB, 下载次数: 59)

2011-8-19 21:25 上传

点击文件名下载附件

Yi_Idea

sheet4跟sheet1的物料编码都有重复的数据~
正式的表格是否也如此?
如果正式表格Sheet4没有重复的编码,BZ的代码基本就可以使用了~

shanchuan

Sub sheet4明细()
    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 = 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” 应用程序定义或对象定义错误。
   sht4.Cells(n - 7, 4) = Application.WorksheetFunction.SumIf(sht1.Range(Cells(k, 7), Cells(2000, 7)).Offset(0, n - 7), "<>", sht1.Range(Cells(k, 5), Cells(2000, 5)))
Next   
End Sub
我把自己最初的程序改了一下，有时候运行成功，有时候运行不成功。

shanchuan

zhaogang1960 发表于 2011-8-19 21:26
请看附件：

  bz程序比较高级 比较复杂 一时看不懂  
manmankan