EXCEL 2013:workheet_change中的自动排序未触发

时间:2015-07-21 14:04:07

标签: excel vba sorting

当我所选范围内的数据发生变化时,我试图根据两列自动对数据进行排序。

此数据根据单独表格中输入的数据计算得出。就目前而言,必须通过突出显示数据集并在每次更改时转到DATA / SORT菜单来手动对数据进行排序。我的研究似乎表明,在显示数据集的工作表中输入Worksheet_Change Sub应该有效。

所讨论的数据集范围是A3:J11,A3:J3代表列标题。我希望它首先在C列下降,然后列I下降。此数据集下方显示的数据不希望受到排序的影响。

我尝试了各种各样的方法来实现这一目标。我通过右键单击适用的工作表名称并选择查看代码来输入子。

由于某种原因,它没有开火。以下是我尝试过的最新代码。任何帮助表示赞赏。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Range("A3:J11").Sort _
            Key1:=Range("C4"), Order1:=xlDescending, _
            Key2:=Range("I4"), Order2:=xlDescending, _
            Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom
    End If
End Sub

非常感谢....

0 个答案:

没有答案