VBA激活表时自动排序

自动排序

今天给大家分享个excel表激活后自动排序的方法。

名称

A

102

124

21

Z

106

128

25

X

105

127

24

D

103

125

22

C

104

126

23

如何实现将上图自动排序呢?名称所在单元格为A1,实现代码如下:

 

 
  1. Private Sub Worksheet_Activate()   
  2. Range("A2:A6").Sort key1:=Range("A1"), ORDER1:=xlAscending   
  3. End Sub   

其实代码都很简短,Key1为第一排序字段,Key2为第二排序字段;order为排序方式,升序为xlAscending,降序为xlDescending。

代码解释到这了,其实只例举了一个方法,举一反三就看你自己了!good luck~

分享到:

6 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 太子虹

    真不错,呵呵

    1. Kael.Z

      太子你就不能说点别的吗~~~~

  2. 阿星

    呵呵,很蛋疼的告诉你,我不会用Excel 哦!
    希望以后能看懂你的这些 HOHO~~~

    1. Kael.Z

      如果你接触数据多了,肯定能接触到excel

  3. YinYan博客

    学习了,确实关键在运用!

    1. Kael.Z

      是的,代码可以是死的,但还得看你活用在哪~