VBA激活表时自动排序

• VBA • 6 条评论 • •7,732 次查阅

自动排序

今天给大家分享个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

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