由 MS Excel 中的日期范围生成的报告答案

【问题标题】：Report generated by a date range in MS Excel由 MS Excel 中的日期范围生成的报告
【发布时间】：2014-07-23 03:01:08
【问题描述】：

我正在尝试生成一份报告，其中包含我的仓库中存储的东西的总计费天数。到目前为止，我已经设置了一个带有日计数器的数据透视表。

 =IF(F3 < G3, G3 - F3, TODAY() - F3)

这是我要修改以执行此任务的代码。

 Private Sub Worksheet_Change(ByVal Target As Range)

 Dim i, LastRow
 LastRow = Range("E" & Rows.Count).End(xlUp).Row

         For i = 2 To LastRow

             If UCase(Cells(i, "J").Value) >= "START DATE" AND <= "END DATE" Then
                 Cells(i, "J").EntireRow.Copy Destination:= _
                 Sheets("Report").Range("A" & Rows.Count).End(xlUp).Offset(1)
             End If

         Next

 End Sub

我试图创建的是一个宏，它允许我输入一个日期范围，如“2014 年 12 月 7 日至 2014 年 7 月 20 日”，并在该范围内的多个工作表中生成报告总和列。谁能给我指点一些文档或写一些良性的 vba 来为我指明正确的方向？

谢谢！

【问题讨论】：

这可能很难，因为您没有提供您尝试过的东西。所以即使我们能想出一些东西，我们也不确定你是否能理解这个想法。如果您可以使用您尝试过的代码的特定问题来修改您的问题，那就太好了。照原样，你的问题是题外话。
很抱歉，我还没有弄清楚该怎么做。问题是如何根据日期范围选择行？我可以弄清楚一旦选择如何移动行。我的代码已经在另一个宏中工作了。我只需要知道如何根据开始日期和结束日期选择行。有人可以给我看一些基本代码吗？
只需检查测试单元格的日期是否在开始日期和结束日期之间。在上面的代码中，您正在检查字符串，而不是日期；并且您的第二个比较格式不正确。
想通了！无论如何谢谢:)

标签： excel vba

【解决方案1】：

    Sub TestRun()
Dim rSheet As Worksheet
Dim sSheet As Worksheet
Dim mSheet As Worksheet
Dim rRow As Long
Dim sRow As Long
Dim iRow As Long
Dim nRow As Long
Dim mRow As Long
Set mSheet = ThisWorkbook.Worksheets("Report")
Set rSheet = ThisWorkbook.Worksheets("Received")
Set sSheet = ThisWorkbook.Worksheets("Shipped")
rRow = rSheet.Cells(Rows.Count, 1).End(xlUp).Row
sRow = sSheet.Cells(Rows.Count, 1).End(xlUp).Row
mRow = mSheet.Cells(Rows.Count, "D").End(xlUp).Row + 1
mSheet.Range("A7:G" & mRow).ClearContents
mRow = mSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
With rSheet
    .Range("A1:N" & rRow).AutoFilter Field:=6, Criteria1:=">=" & Sheet5.Range("B3"), Operator:=xlAnd, _
                                Criteria2:="<=" & Sheet5.Range("B4")
    .Range("F2:F" & rRow).Copy
        mSheet.Range("A" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("B2:B" & rRow).Copy
        mSheet.Range("B" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("J2:J" & rRow).Copy
        mSheet.Range("C" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("D2:D" & rRow).Copy
        mSheet.Range("D" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("N2:N" & rRow).Copy
        mSheet.Range("E" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("A2:A" & rRow).Copy
        mSheet.Range("G" & mRow).PasteSpecial Paste:=xlPasteValues
    .AutoFilterMode = False
End With
mRow = mSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
With sSheet
    .Range("A1:N" & rRow).AutoFilter Field:=6, Criteria1:=">=" & Sheet5.Range("B3"), Operator:=xlAnd, _
                                Criteria2:="<=" & Sheet5.Range("B4")
    .Range("F2:F" & rRow).Copy
        mSheet.Range("A" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("B2:B" & rRow).Copy
        mSheet.Range("B" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("J2:J" & rRow).Copy
        mSheet.Range("C" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("D2:D" & rRow).Copy
        mSheet.Range("D" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("N2:N" & rRow).Copy
        mSheet.Range("E" & mRow).PasteSpecial Paste:=xlPasteValues
    .Range("A2:A" & rRow).Copy
        mSheet.Range("G" & mRow).PasteSpecial Paste:=xlPasteValues
    .AutoFilterMode = False
End With
For i = 7 To mRow
    mSheet.Cells(i, "F") = mSheet.Cells(i, "D") * mSheet.Cells(i, "E")
Next
mRow = mSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
mSheet.Range("D" & mRow + 3) = "TOTAL GROSS LBS"
mSheet.Range("E" & mRow + 3) = "TOTAL DAYS"
mSheet.Range("F" & mRow + 3) = "TOTAL BILLABLE LBS"
mSheet.Range("D" & mRow + 4) = Application.WorksheetFunction.Sum(mSheet.Range("D7:D" & mRow))
mSheet.Range("E" & mRow + 4) = Application.WorksheetFunction.Sum(mSheet.Range("E7:E" & mRow))
mSheet.Range("F" & mRow + 4) = Application.WorksheetFunction.Sum(mSheet.Range("F7:F" & mRow))
If Not Right(Sheet5.Range("B2"), 1) = "\" Then Sheet5.Range("B2") = Sheet5.Range("B2") & "\"
mSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Sheet5.Range("B2") & "\" & Sheet5.Range("D2"), Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

【讨论】：