（已解决）高分到低分自动排序（再次感谢一念老师）

ni57

如何用宏，实现对下拉菜单所选的科目进行高分到低分的自动排序，显示出来呢？谢谢大家！
------------------------上述问题我采用的是一念大侠的，使用无误。

现在又有了新的问题，当我在A1～E1输入内容时，在目标区域却得不到正确的排序了（按所选科目的分数从高到低）。麻烦大侠们再看看
重新上传附件 高低排序宏2.rar (8.59 KB, 下载次数: 11)

2010-4-30 00:27 上传

点击文件名下载附件

[ 本帖最后由 ni57 于 2010-4-30 07:43 编辑 ]

ni57

仅仅是排序问题不大，录制宏应该可以，问题是要有个关键字，还请各位大大出手相助

lorvoo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$1" Then
Dim i%
For i = 6 To 9
If [L1] = Cells(1, i) Then
你录制的宏
End If
Next
End If
End Sub

alzeng

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address <> "$L$1" Then Exit Sub
   
4.     Dim Arr, i%
   
5.    
   
6.     Arr = [E1].CurrentRegion.Offset(1)
   
7.     i = Application.Match(Target, [E1:I1], 0)
   
8.     [L3].Resize(UBound(Arr)) = Application.Index(Arr, , 1)
   
9.     [M3].Resize(UBound(Arr)) = Application.Index(Arr, , i)
   
10.     Range("L2", [L65536].End(3)(1, 2)).Sort key1:=[M2], order1:=2, header:=xlGuess
    
11.     [K3].Resize(UBound(Arr) - 1) = "=Row()-2"
    
12. End Sub
    

复制代码

ni57

非常感谢一念、lorvoo两位高手，谢谢

aidixiao

跟大师学习。

ni57

现在又有了新的问题，当我在A1～E1输入内容时，在目标区域却得不到正确的排序了（按所选科目的分数从高到低）。麻烦大侠们再看看
重新上传附件 高低排序宏2.rar (8.59 KB, 下载次数: 24)

2010-4-30 00:45 上传

点击文件名下载附件

[ 本帖最后由 ni57 于 2010-4-30 00:45 编辑 ]

alzeng

你所理解的 [F1].CurrentRegion区域有误，在这里它和 [A1].CurrentRegion是等价的：

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address <> "$BV$1" Then Exit Sub
   
4.     Dim Arr, i%
   
5.    
   
6.     Arr = [F1].CurrentRegion.Offset(1)
   
7.     i = Application.Match(Target, [A1:N1], 0)
   
8.     [BV3].Resize(UBound(Arr)) = Application.Index(Arr, , 6)
   
9.     [BW3].Resize(UBound(Arr)) = Application.Index(Arr, , i)
   
10.     Range("BV2", [BV65536].End(3)(1, 2)).Sort key1:=[BW2], order1:=2, header:=xlGuess
    
11.     [BU3].Resize(UBound(Arr) - 1) = "=Row()-2"
    
12. End Sub
    

复制代码

ni57

清晨，淡淡的凉意，清新的人，感觉如此的美好。十分感谢一念老师的教导，直指我心，祝您身体健康，合家幸福。