求助如何做数计

chxw68

参与一下。

limonet

代码审核中，透视表也可以实现。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select 发货日期,[称重/KG],物流方式 from [明细$A3:L] where year(发货日期)=" & [K2] & "and month(发货日期)=" & [M2]
    StrSQL = "select 发货日期,count(*),sum([称重/KG]),first(物流方式) from (" & StrSQL & ") group by 发货日期"
    Range("B4").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

月落天涯

ykcbf1100 发表于 2023-7-10 17:46
运输方式如果有多个，那一起列出。

你好，可否每种运输方式单列，比如某一天，极兔多少单，总重多少，韵达多少单，总重多少，一种运输方式用一列体现，而不是集中在一列体现，有劳大神！

ykcbf1100

月落天涯 发表于 2023-7-11 08:19
你好，可否每种运输方式单列，比如某一天，极兔多少单，总重多少，韵达多少单，总重多少，一种运输方式用 ...

你求助时说有鲜花，结果啥也没有。发现已经不是一次了。
你好自为之吧。

月落天涯

ykcbf1100 发表于 2023-7-11 09:00
你求助时说有鲜花，结果啥也没有。发现已经不是一次了。
你好自为之吧。

我每次求助，只要承诺有鲜花，都会如约送出，但只送给我认为满意的作品。如若做的不好，便不会送出鲜花，这是人之常情，见谅

grf1973

13楼代码小改一下即可。

准提部林

月落天涯 发表于 2023-7-11 09:25
我每次求助，只要承诺有鲜花，都会如约送出，但只送给我认为满意的作品。如若做的不好，便不会送出鲜花， ...

給的是幫助, 也是參考方案, 不是選秀!!!
代碼多樣化你才能學到東西, 只這點...送朵鮮花天經地義~~

cidanji

月落天涯 发表于 2023-7-10 17:00
你好，测试了一下，如果一天内的发货采用两种运输方式，代码就只能统计一种运输方式的数据，可否修改一下 ...

这个不难，小改一句即可