[已解决]输入完数字后,要自动变数字顺序

niko88819

当A2:C2输入完数字后,要自动排列由小到大

当A5:C5输入完数字后,要自动排列由大到小

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-10 17:03

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, Arr()

    If Target.Column < 4 And Target.Count = 1 Then
        Set rng = Cells(Target.Row, 1).Resize(1, 3)
        If Application.Count(rng) = 3 Then
            If Target.Column = 3 Then    '增加一个条件：为方便修改数据，仅在C列发生改变时排序
                Arr = rng.Value
                Arr = Application.Transpose(Arr)
                Arr = Application.Transpose(Arr)
                Call SelectionSort(Arr)
                rng = Arr
            End If
        End If
    End If
End Sub

Sub SelectionSort(Arr)
    Dim i&, j&, val, idx&
    For i = LBound(Arr) To UBound(Arr) - 1
        val = Arr(i): idx = i
        For j = i + 1 To UBound(Arr)
            If val > Arr(j) Then val = Arr(j): idx = j    '升序
        Next j
        If idx <> i Then Arr(idx) = Arr(i): Arr(i) = val
    Next i
End Sub

Book3b.rar (11.34 KB, 下载次数: 8)

2015-11-10 17:03 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, Arr()

    If Target.Column < 4 And Target.Count = 1 Then
        Set rng = Cells(Target.Row, 1).Resize(1, 3)
        If Application.Count(rng) = 3 Then
            If Target.Column = 3 Then    '增加一个条件：为方便修改数据，仅在C列发生改变时排序
                Arr = rng.Value
                Arr = Application.Transpose(Arr)
                Arr = Application.Transpose(Arr)
                Call SelectionSort(Arr)
                rng = Arr
            End If
        End If
    End If
End Sub

Sub SelectionSort(Arr)
    Dim i&, j&, val, idx&
    For i = LBound(Arr) To UBound(Arr) - 1
        val = Arr(i): idx = i
        For j = i + 1 To UBound(Arr)
            If val > Arr(j) Then val = Arr(j): idx = j    '升序
        Next j
        If idx <> i Then Arr(idx) = Arr(i): Arr(i) = val
    Next i
End Sub

Book3b.rar (11.34 KB, 下载次数: 8)

2015-11-10 17:03 上传

点击文件名下载附件

niko88819

超级版主,感谢您