excel每录入一条就自动排序

roych

回复 pureshadow 的帖子

1、这个貌似发错版块了。小妖姐姐看看可否移动一下？
2、诚如小妖姐姐所说，虽然很简单（就一行），但必须用代码才能实现：

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. '对A列进行升序排序，如果是降序请把最后一个参数改为：xlDescending
   
4. Range("A:A").Sort Range("A1"),xlAscending
   
5. End Sub

复制代码

3、如果无法执行，很可能因为您的Excel禁用了宏，请按附图修改宏的安全性（以2003版本为例）：

roych

回复 jl128 的帖子

操作的东西不好说，附上一个录像吧：

roych

改成这个试试看？

1. If Target.Column = 1 And Target.Row > Range("E:E").CurrentRegion.Rows.Count Then Range("A:E").Sort Range("A1"), xlAscending
   

复制代码

你可以把里面的E列即Range("E:E")，改为其它一些不可为空的列（即可用以判断到底是否已经完整输入一条记录的单元格），例如Range("A:A")。

roych

你传个附件上来吧。附件都是俺在做（听起来好像是俺在求助似的）……老板经常说，“上班时间聊Q的同事，你们辛苦了”，所以我不敢上Q。

roych

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

roych

回复 jl128 的帖子

废话少说，请看招：

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

复制代码