Question

我正在尝试调整我为Excel 2007编写的xla加载项，以便在Excel 2003中工作。我已将大部分问题排序，但我无法找到在工作表中对字段进行排序的方法。我有数据行需要按创建日期的顺序排序（其值在列H中）。这是我正在使用的Excel 2007代码：

        'sort issues into descending order
        Sheets("In Progress").Sort.SortFields.Clear
        Sheets("In Progress").Sort.SortFields.Add _
                Key:=Range("H:H"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
        With Sheets("In Progress").Sort
            .SetRange Range("A2:M" & rowCount - 1)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

有人可以帮助我使用Excel 2003吗？

Answer 1

最好的方法是在较低版本中编写代码，以便它适用于所有版本。

我会使用此代码进行排序，这将适用于所有版本。

With Sheets("In Progress")
    .Range("A2:M" & rowCount - 1).Sort Key1:=.Range("A2"), _
    Order1:=xlDescending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End With

将Excel 2007 VBA转换为Excel 2003

1 个答案: