Excel VBA Run-Time Lỗi 1004

Question

Tôi đang sử dụng VBA cho Excel 2010 và ngẫu nhiên nhận được lỗi sau:

Run-time error '1004': "The sort reference is not valid. Make sure it's within the data you want to sort, and the first Sort By box isn't the same or blank."

Đây là mã

'Sort the active rows 
With ActiveWorkbook.Worksheets("Product Backlog").Sort 
    .SetRange Range("A4:F51") 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

Answer 1

Các sắp xếp theo hộp là trống, mà đó là vấn đề của bạn. Tôi chưa bao giờ sử dụng một đối tượng Sắp xếp như bạn đang làm, nhưng tôi có thể thấy rằng bạn chưa xác định một khóa hoặc một dải ô để sắp xếp theo, chỉ phạm vi được sắp xếp. Một khóa nên được định nghĩa như Range ("A4") hoặc một cái gì đó. Tôi nhìn nó, nó cần phải có .sortfields.add (range) trong nó, chẳng hạn như:

'Sort the active rows 

    With ActiveWorkbook.Worksheets("Product Backlog").Sort 
     .SetRange Range("A4:F51") 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 

     .SortFields.Add Key:=Range("A4:F51").Columns(1), SortOn:=xlSortOnValues, _ 
     Order:=xlDescending, DataOption:=xlSortNormal 

     .Apply 
    End With 

tôi sử dụng Sắp xếp chức năng như sau:

ActiveWorkbook.Worksheets("Product Backlog").Range("A4:F51").Sort _ 
    Key1:= ActiveWorkbook.Worksheets("Product Backlog").Range("A4:F51").Columns(1), _ 
    Header:= xlYes, _ 
    Orientation:=xlSortColumns, _ 
    MatchCase:=False, _ 
    SortMethod:=xlPinYin