vba数据分类条件汇总排序求大佬指导

sdg1345

1. Sub 统计1()
   
2. Dim cnn As Object
   
3. Dim sqlstr As String
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. s = Worksheets("催回明细登记").[n2]
   
8. 
   
9. Set cnn = CreateObject("adodb.connection")
   
10. cnn.Open "provider=microsoft.jet.oledb.4.0;" _
    
11.         & "extended properties='excel 8.0;" _
    
12.         & "hdr=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
    
13. sqlstr = "select '" & s & "' , count('" & s & "') AS 催回数量 from [催回明细登记$a3:j1000] GROUP BY '" & s & "' HAVING 登记时间=date"
    
14. Worksheets("催回登记明细").[ab2].CopyFromRecordset cnn.Execute(strsql)
    
15. cnn.Close
    
16. Set cnn = Nothing
    
17. 
    
18. End Sub
    

复制代码

要求:
1、仅统计登记日期为今日
2、按照分类数量分别统计；
M2/M3 合并统计；
M4单独统计。"
3、金额只要满足条件是今日即按照统计的机构求和
4、按照总数降序排序
5、结果模拟在sheets("模拟结果")
能够自动生成每列的标题，vba数据库+sql处理。



sql 语法不怎么会希望有大佬帮忙解决，谢谢！

效果截图

opiona

1.     If SH0.Range("N2").Value = "一级机构" Then
   
2.         StrBT = "一级机构"
   
3.     Else
   
4.         If SH0.Range("N2").Value = "二级机构" Then
   
5.             StrBT = "一级机构,二级机构"
   
6.         Else
   
7.             StrBT = "一级机构,二级机构,三级机构"
   
8.         End If
   
9.     End If
   
10.     StrSQL = ""
    
11.     StrSQL = StrSQL & "SELECT " & StrBT
    
12.     StrSQL = StrSQL & ",COUNT(一级机构) AS 总数"
    
13.     StrSQL = StrSQL & ",SUM(IIF([类型M2/M3/M4]='M2' OR [类型M2/M3/M4]='M3',1,0)) AS [M2/M3]"
    
14.     StrSQL = StrSQL & ",SUM(IIF([类型M2/M3/M4]='M4' ,1,0)) AS [M4]"
    
15.     StrSQL = StrSQL & ",SUM(金额) AS 金额"
    
16.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$A2:J]"
    
17.     StrSQL = StrSQL & " WHERE [登记时间]=#" & "2018-07-05" & "#"    '//FORMAT(NOW,"yyyy-MM-dd")
    
18.     StrSQL = StrSQL & " GROUP BY " & StrBT

复制代码

opiona

QQ14885553.rar (39.14 KB, 下载次数: 23)

2018-7-13 14:03 上传

点击文件名下载附件

sdg1345

opiona 发表于 2018-7-13 14:02

大佬 之前就是学习了你的帖子 自己目前才入门 谢谢大佬出手帮忙！

sdg1345

opiona 发表于 2018-7-13 14:03

老师 能按照总数降序排列吗

sdg1345

opiona 发表于 2018-7-13 14:03

老师，还有个问题，就是如果不要自动输出标题，只需要输出数据，这个能提供下吗，谢谢。

opiona

sdg1345 发表于 2018-7-13 14:19
老师 能按照总数降序排列吗

StrSQL = StrSQL & " order BY SUM(金额) DESC

opiona

sdg1345

opiona 发表于 2018-7-13 15:06

大佬，排序先收藏，能给个不含标题
直接输出结果的吗。，

opiona

图片看不到么：True 改成 False

希望能仔细看看那提供的代码
不是每个字母 都要帮助者来改吧！