范围类的排序方法失败

Question

我是VBA的新手，很难搞清楚这段代码。我在做一个在线课程，我按照相同的步骤，但不知何故，我得到一个错误。我最近安装了Excel 2013和不知道如果多数民众赞成在issue.I试图把.Range（“A4”），但给了我“无效的或不合格的参考”错误

Sub DivisionSort() 
' 
' Sort List by Division Ascending 
' 

' 
    Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 

End Sub 

Sub CategorySort() 
' 
' Sort List by Category Ascending 
' 

' 
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 

End Sub 

Sub TotalSort() 
' 
' Sort List by Total Sales Ascending 
' 

' 
    Selection.Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _ 
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 
     DataOption1:=xlSortNormal 

End Sub 


Public Sub SortList() 
    Dim userinput As String 
    userinput = InputBox("1=Sort by Division, 2=Sort by Category,3=Sort by Total") 
    If userinput = "1" Then 
    DivisionSort 
    ElseIf userinput = "2" Then 
    CategorySort 
    ElseIf userinput = "3" Then 
    TotalSort 

    End If 
End Sub 

Answer 1

尽量避免使用“选择”的。尝试，而不是一个完整的参考：

ThisWorkbook.Sheets("Sheet1").Range("Table1").Sort