VBA排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → VBA排序

共有3418人关注过本帖树形打印复制链接主题：VBA排序

zhuxinhui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2035 积分：6610 威望：0 精华：0 注册：2017/11/8 17:37:00

VBA排序

Post By：2019/8/31 14:31:00 [只看该作者]

VBA排序代码：Sheets("???").Range("a2:N" & K).Sort key1:=Range("A2"), order1:=xlAscending, key2:=Range("D2"), order2:=xlAscending, key3:=Range("K2"), order3:=xlDescending, Header:=xlGuess

改为FORTABLE代码：ws.Range("a2:N" & K).Sort(key1:=ws.Range("A2"),order1:=MSExcel.XlSortOrder.xlAscending,key2:=ws.Range("D2"),order2:=MSExcel.XlSortOrder.xlAscending,key3:=ws.Range("K2"),order3:=MSExcel.XlSortOrder.xlAscending)

最后这个Header:=xlGuess怎样改

上面句改后执行得出的结果有点像是列前后排序了

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111388 积分：567004 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/31 14:55:00 [只看该作者]

https://docs.microsoft.com/zh-cn/dotnet/api/microsoft.office.interop.excel.xlyesnoguess?redirectedfrom=MSDN&view=excel-pia

zhuxinhui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2035 积分：6610 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/8/31 15:30:00 [只看该作者]

看不懂，请指点下

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111388 积分：567004 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/31 15:56:00 [只看该作者]

Header:= MSExcel.XlYesNoGuess.xlGuess

zhuxinhui

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2035 积分：6610 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/8/31 16:53:00 [只看该作者]

ws.Range("a2:N" & K).Sort(key1:=ws.Range("A2"),order1:=MSExcel.XlSortOrder.xlAscending,key2:=ws.Range("D2"),order2:=MSExcel.XlSortOrder.xlAscending,key3:=ws.Range("K2"),order3:=MSExcel.XlSortOrder.xlAscending,Header:=MSExcel.XlYesNoGuess.xlGuess)得出的结果不是对列中的行进行排序，而是对列进行了调换位，不知是什么回事

zhuxinhui

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：2035 积分：6610 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2019/8/31 17:12:00 [只看该作者]

关于使用FORTABLE操作VBA相关知识点，就是将VBA转化成FORTABLE相关的知识点，有什么书介绍下

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111388 积分：567004 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/31 17:15:00 [只看该作者]

试试，自行把换行去掉

ws.Range("a2:N" & K).Sort(ws.Range("A2"),
System.Reflection.Missing.Value,
System.Reflection.Missing.Value, 
MSExcel.XlSortOrder.xlAscending,
System.Reflection.Missing.Value,
MSExcel.XlSortOrder.xlAscending,
Excel.XlYesNoGuess.xlNo, 
System.Reflection.Missing.Value, 
System.Reflection.Missing.Value,
MSExcel.XlSortOrientation.xlSortRows,
MSExcel.XlSortMethod.xlStroke,
MSExcel.XlSortDataOption.xlSortNormal,
MSExcel.XlSortDataOption.xlSortNormal,
MSExcel.XlSortDataOption.xlSortNormal)

下一主题 >> << 上一主题

主题：VBA排序