如何用VBA按输入的日期段内将数据库中相同单号进行汇总统计显示到该表相应的单元格中

liw0311041 · 发表于 2020-3-15 10:33

如何通过开始日期到结束日期用VBA按输入的日期段内将数据库中相同单号进行汇总统计显示到该表相应的单元格中,如表是所示

3190496160 · 发表于 2020-3-15 13:02

很搞笑，需要按日期段统计，但是，数据库中根本就没有日期，

liw0311041 · 发表于 2020-4-30 08:49

本帖最后由 liw0311041 于 2020-4-30 08:57 编辑

3190496160 发表于 2020-3-15 13:02
很搞笑，需要按日期段统计，但是，数据库中根本就没有日期，

不好意思，，，，，没注意删错了。。。。

liw0311041 · 发表于 2020-4-30 08:50

本帖最后由 liw0311041 于 2020-4-30 08:55 编辑

哦抱歉，，，这就加个日期段。

3190496160 · 发表于 2020-4-30 08:58

liw0311041 发表于 2020-4-30 08:49
不好意思，，，，，没注意删错了。。。。

可是，在你的数据库工作表中看不到你说的日期呀，你自己看看呗

yylucke · 发表于 2020-4-30 09:15

Private Sub CommandButton1_Click()
Sheet1.Range("B4:I9999").ClearContents
arr = Sheet2.Cells(1, 1).CurrentRegion
StartDate = Sheet1.Cells(1, 3)
EndDate = Sheet1.Cells(1, 5)

If Not IsDate(StartDate) Then MsgBox "开始日期不正确，请重新输入。": Sheet1.Cells(1, 3).Select: Exit Sub
'同样原理，你自己写判断

tmpRow = 3
For i = 2 To UBound(arr)
      tmpDate = DateSerial(Left(arr(i, 2), 4), Mid(arr(i, 2), 5, 2), Mid(arr(i, 2), 7, 2))
      If tmpDate >= StartDate And tmpDate <= EndDate Then
         tmpRow = tmpRow + 1
         With Sheet1
            .Cells(tmpRow, 2) = tmpDate
            .Cells(tmpRow, 3) = arr(i, 2)
            .Cells(tmpRow, 4) = arr(i, 3)
            .Cells(tmpRow, 5) = arr(i, 4)
            .Cells(tmpRow, 6) = arr(i, 8)
            .Cells(tmpRow, 7) = arr(i, 9)
            .Cells(tmpRow, 8) = arr(i, 15)
            .Cells(tmpRow, 9) = arr(i, 13)
         End With
      End If
Next i
End Sub

yylucke · 发表于 2020-4-30 09:17

请参见附件，我直接用订单号做为查询条件

相同单号汇总统计.rar (33.01 KB, 下载次数: 13)

liw0311041 · 发表于 2020-5-7 21:08

yylucke 发表于 2020-4-30 09:17
请参见附件，我直接用订单号做为查询条件

搞不明白。。。

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

如何用VBA按输入的日期段内将数据库中相同单号进行汇总统计显示到该表相应的单元格中

最新热点 /1