SQL如何自定义排序

作者：绿色风分类：时间：2022-08-17 浏览：318

楼主
芐雨

SQL如何自定义排序
排序用order by,如果要自定义排序，可以用 order by instr('自定义顺序' ,Id)

例子：

1.手写顺序

...... order by instr('3A,3B,3C,3E,3F,2G,2H,2J,3G,3H,3J',车间)

单引号括住顺序，顺序间用逗号隔开(空格隔开也可以)。

2.引用单元格区域

...... order by instr('" & Join(Application.Transpose([b23:b33])) & "',车间)

Application.Transpose([b23:b33]) '转置单元格区域。
Join(Application.Transpose([b23:b33])) '用join把单元格的内容连接为一维数组，空间隔开。

附件的SQL较复杂，下面是简化后的，排序代码在第7行

Sub SQL排序采取区域引用_芐雨()
Dim SQL$
Dim rst As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & ThisWorkbook.FullName
SQL = " select 车间,avg(上班小时) as 所有职务平均上班时间 from [明细$] where 车间 is not null group by 车间 " _
& " order by instr('" & Join(Application.Transpose([b8:b18])) & "',车间) "
Set rst = conn.Execute(SQL)
Range("H3:S" & Cells(Rows.Count, "h").End(3).Row).ClearContents
Range("h3").CopyFromRecordset conn.Execute(SQL), , 12
SQL = " select 'TOTAL',avg(上班小时) from[明细$A1:O] where 上班小时 >= 8"
Range("h3").End(xlDown).Offset(1).CopyFromRecordset conn.Execute(SQL)
Set conn = Nothing
End Sub

附件

SQL自定义排序_芐雨.zip

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表