excel每录入一条就自动排序

pureshadow

移了。
个人觉得，这么点事用代码实在是有点麻烦，其实排序也就是点一下鼠标而已。

roych

当然麻烦啦……只是，既然LZ希望用代码实现，那做个实例给Ta参考下也无妨。

jl128

回复 roych 的帖子


就是这个表，我以后还要在这个里面添加很多内容，想输入完后他自动排序，但每一行的数据不能改变，否则就变乱了。同时要把这一行输入完后才自动排序。谢谢！

roych

回复 jl128 的帖子

废话少说，请看招：

jl128

回复 roych 的帖子

虽然没有得到解决，但还是非常谢谢你！

游戏人生

roych 发表于 2011-3-29 19:31
回复 jl128 的帖子

废话少说，请看招：

请教仁兄，如果在此基础上，再选第二，第三个对象排序，代码如何变化？
如第一为A例，第二为B例，第三为C例。

roych

多加几个Key就好了。例如：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Row > Range("A4:F4").End(xlDown).Row Then
   
3. Range("A4:F" & Range("A4:F4").End(xlDown).Row).Sort key1:=Range("B4"), order1:=xlAscending, header:=xlGuess, key2:=Range("E4"), order1:=xlAscending, header:=xlGuess, key3:=Range("C4"), order1:=xlAscending, header:=xlGuess
   
4. End If
   
5. End Sub

复制代码

joyark

跟一贴,楼主,thank you!!!