[已解决]求助如何修改这条代码自动排序

qinhuan66 · 发表于 2013-6-14 22:57

本帖最后由 qinhuan66 于 2013-6-14 23:58 编辑

求助：从ACCESS数据库提取黄色区域的数据（姓名、身份证号码、报考职位）按报考职位升序来排列后如何不影响到其他数据

求助.rar (27.49 KB, 下载次数: 3)

hwc2ycy · 发表于 2013-6-14 23:14

把当时你录了排序的整个发上来吧。这里缺窗体。

qinhuan66 · 发表于 2013-6-14 23:49

hwc2ycy 发表于 2013-6-14 23:14
把当时你录了排序的整个发上来吧。这里缺窗体。

老师不好意思，我已上传是第一个附件。下面这个不是的。删除不了。

qinhuan66 · 发表于 2013-6-15 00:20

hwc2ycy 发表于 2013-6-14 23:14
把当时你录了排序的整个发上来吧。这里缺窗体。

谢谢老师

求助.rar (27.49 KB, 下载次数: 8)

ligh1298 · 发表于 2013-6-15 05:30

Range("A3:C1000").Sort Key1:=Range("C3"), Order1:=xlAscending 'xlAscending是升序。xlDescending是降序。
这晨 Range("A3:C1000")是要排序的区域，按C3关键字（无标题）排序，不会影响D:K列。
如果想要D:K列随着C列排序，可将区域 Range("A3:C1000")改成 Range("A3:K1000")
不知是不是这个意思？

hwc2ycy · 发表于 2013-6-15 06:46

现在的代码不真是A-C列排序，没有影响到其他列嘛。

qinhuan66 · 发表于 2013-6-15 09:16

hwc2ycy 发表于 2013-6-15 06:46
现在的代码不真是A-C列排序，没有影响到其他列嘛。

为什么提取时D6--Z1000(比如)后面的数据全丢失。如下图动画

hwc2ycy · 发表于 2013-6-15 11:13

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

Range("a1").CurrentRegion.Offset(5).ClearContents
你把这句注释就不会丢了。

hwc2ycy · 发表于 2013-6-15 11:14

这句会把A1所在的区域从第5行开始，全部内容清除。
你可以改成 msgbox Range("a1").CurrentRegion.Offset(5).address就明白了。

hwc2ycy · 发表于 2013-6-15 11:16

你的排序代码是在03里录的吧。
10里是用的WORKSHEET的SORT对象了。

		自动登录	找回密码
密码			注册

[已解决]求助如何修改这条代码自动排序

相关帖子

评分