VBA 用SQL统计年龄段人数

cunfu2010

jsgj2023 发表于 2018-1-23 13:48
那这个你也可以移植一下了!

您好，这个有点复杂，我多次移植没成功，麻烦指点一下，谢谢！

jsgj2023

第1问第2种情形精确计算年龄段,
第1问第1种情形见18楼Sql语句!

1. SELECT nld AS 精确计算年龄段,count(*) as  人数 from
   
2.   (
   
3.           SELECT 姓名,datediff(dd,出生年月,getdate())/365 as 精确年龄,
   
4.         case
   
5.         when datediff(dd,出生年月,getdate())/365>=36 and datediff(dd,出生年月,getdate())/365 <=40 THEN '36-40'
   
6.         when datediff(dd,出生年月,getdate())/365>=41 and datediff(dd,出生年月,getdate())/365 <=45 THEN '41-45'
   
7.         when datediff(dd,出生年月,getdate())/365>=46 and datediff(dd,出生年月,getdate())/365 <=50 THEN '46-50'
   
8.         when datediff(dd,出生年月,getdate())/365>=51 and datediff(dd,出生年月,getdate())/365 <=55 THEN '51-55'
   
9.         when datediff(dd,出生年月,getdate())/365>=56 and datediff(dd,出生年月,getdate())/365 <=60 THEN '56-60'
   
10.         when datediff(dd,出生年月,getdate())/365>=61 and datediff(dd,出生年月,getdate())/365 <=65 THEN '61-65'
    
11.         when datediff(dd,出生年月,getdate())/365>=66 and datediff(dd,出生年月,getdate())/365 <=70 THEN '66-70'
    
12.         when datediff(dd,出生年月,getdate())/365>=71 and datediff(dd,出生年月,getdate())/365 <=75 THEN '71-75'
    
13.         when datediff(dd,出生年月,getdate())/365>=76 and datediff(dd,出生年月,getdate())/365<=80 THEN '76-80'
    
14.         when datediff(dd,出生年月,getdate())/365>=81 and datediff(dd,出生年月,getdate())/365 <=85 THEN '81-85'
    
15.         when datediff(dd,出生年月,getdate())/365>=86 and datediff(dd,出生年月,getdate())/365 <=90 THEN '86-90'
    
16.         END AS nld
    
17.   from dbo.Sheet1$
    
18.   ) a
    
19.   GROUP BY nld

复制代码

jsgj2023

cunfu2010 发表于 2018-1-23 14:17
您好，这个有点复杂，我多次移植没成功，麻烦指点一下，谢谢！

对了,excel里的sql语句没有when then这样的写法,得另外改写!
你这种情形的查询我就倾向于直接用数据库啦!
不过,也许还会有更好的sql语句!

cunfu2010

jsgj2023 发表于 2018-1-23 14:21
对了,excel里的sql语句没有when then这样的写法,得另外改写!
你这种情形的查询我就倾向于直接用数据库啦 ...

期盼解答！！！！

jiangxiaoyun

可以试试partition函数，vba应该可以用的。

t7856

在Access中调好SQL语句，然后在EXCEL的VBA中运行SQL，可以配上参数。具体看《EXCEL SQL》那本书。

乐乐2006201505

照猫画虎，看看第3问的答案符不符合你的要求。其实就是实现了分类汇总的效果。
Sub Test4按部门求和()
    Dim Conn As Object, Rst As Object
    Dim strConn As String, strSQL As String
    Dim i As Integer, PathStr As String
    Set Conn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    '设置SQL查询语句
    strSQL = "SELECT 部门 as 部门, SUM(奖金) as 奖金 From [Sheet1$] GROUP BY  部门"
    Conn.Open strConn    '打开数据库链接
    Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    With Sheet3.Range("l:m")
        .Cells.Clear
        For i = 0 To Rst.Fields.Count - 1    '填写标题
            .Cells(1, i + 1) = Rst.Fields(i).Name
        Next i
        .Range("A2").CopyFromRecordset Rst
        .Cells.EntireColumn.AutoFit  '自动调整列宽
    End With
    Rst.Close    '关闭数据库连接
    Conn.Close
    Set Conn = Nothing
    Set Rst = Nothing
End Sub

cunfu2010

乐乐2006201505 发表于 2018-1-23 19:41
照猫画虎，看看第3问的答案符不符合你的要求。其实就是实现了分类汇总的效果。
Sub Test4按部门求和()
   ...

谢谢！第3问已经解决了，现在请教的主要是第1问和第2问

cunfu2010

jsgj2023 发表于 2018-1-23 14:21
对了,excel里的sql语句没有when then这样的写法,得另外改写!
你这种情形的查询我就倾向于直接用数据库啦 ...

能写一段适用于excel的sql语句吗？

cunfu2010

jiangxiaoyun 发表于 2018-1-23 18:28
可以试试partition函数，vba应该可以用的。

能具体写写吗？刚学习sql，有些还不会。谢谢