[已解决]关于排序sort的问题

sxmhj · 发表于 2010-7-13 00:02

关于排序sort的问题,这段代码不知道到底错在哪里,还请高手指点.

usAK3PjT.rar (12.74 KB, 下载次数: 14)

2010-7-13 00:02 上传

点击文件名下载附件
关于排序sort的问题

最佳答案

月排行榜 / 总排行榜

bbwsj

2010-7-13 07:07

LZ的是07版的吧，没07打不开，看不到代码，单排序代码说一下吧

录个宏体会一下就能明白代码了，我一般不记具体代码，就记大致意思，每次都是录宏后改一下

Range("A1:z100").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("D1"), Order2:=xlDescending, _
Header :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= xlSortNormal

如这段代码

Range(区域).Sort Key1:=Range(第1关键字单元格), Order1:=xlAscending升序, Key2:=Range(第2关键字单元格), Order2:=xlDescending降序

以下是3个关键字段共有的选项

Header :=xlNo 无标题行，如：Header:=xlGuess，就是有标题行

后面都是排序“选项”按钮里的东东，都是默认项，可以省略

OrderCustom:=1 自定义选项的第1个（默认），一般为普通，如果你要选择自定义选项的其他，是第几个如第2个，OrderCustom:=2

MatchCase:=False 不区分大小写（默认）， MatchCase:=True 区分大小写

Orientation:=xlTopToBottom 排序顺序，按列（默认）， Orientation:=xlLeftToRight 按行

SortMethod:=xlPinYin 按拼音排序（默认）， SortMethod:=xlStroke 按笔画

DataOption1:=xlSortNormal 对应上面的关键字1，正常排序即分别对数值数据和文本数据排序（默认） =xlSortTextAsNumbers　将文本数据视为数值数据进行排序

一般我改的排序代码

Range(区域).Sort Key1:=Range(第1关键字单元格), Order1:=xlAscending（xlDescending），（Key(1\2\3)和Order（1、2、3）是成对的，必须有的代码），Header :=xlNo（xlGuess）也是写的

但后面的一长串，就看需要了，如果都是和默认的一样，我就全部省略了，给楼主参考一下

如果楼主的排序代码和上面对的上的，就是其他代码的问题了

[此贴子已经被作者于2010-7-13 10:11:28编辑过]

跳转到最佳答案楼层

那么的帅 · 发表于 2010-7-13 00:10

V入班作业，你拿到论坛公开提问，不合适。

你是班级的几号啊，我是班级21号

bbwsj · 发表于 2010-7-13 07:07