排序不工作

Question

在這個用戶的形式

我有以下代碼（升序默認是TRUE，而降序爲False）

Private Sub OKButton_Click() 
Dim rRange As Range 
lastRow = Sheets("overview").Range("G1000").End(xlUp).Row 
On Error Resume Next 
Application.DisplayAlerts = False 
Set rRange = Application.InputBox(Prompt:="Please select a cell in the column you want 
_to sort", Title:="SPECIFY COLUMN", Type:=8) 
Col = rRange.Columns(1).Column 
On Error GoTo 0 
Application.DisplayAlerts = True 
If rRange Is Nothing Then 
    Exit Sub 
Else 
    If AscendingOption Then 
     Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14:" & Col & lastRow), Order1:=xlAscending, Header:=xlNo, key2:=Range("C14:C" & lastRow), Order2:=xlAscending, Header:=xlNo 
    End If 
    If DescendingOption Then 
     Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14:" & Col & lastRow), Order1:=xlDescending, key2:=Range("C14:C" & lastRow), Order2:=xlAscending   
    End If 
End If 
End Sub 

當我點擊確定沒有任何反應：不是錯誤信息，也不是任何行動。 任何人都可以幫我找到錯誤嗎？

Answer 1

這是正常工作的代碼版本：

Private Sub OKButton_Click() 
Dim rRange As Range 
lastRow = Sheets("overview").Range("G1000").End(xlUp).Row 
Application.DisplayAlerts = False 
Set rRange = Application.InputBox(Prompt:="Please select a cell in the column 
_you want to sort", Title:="SPECIFY COLUMN", Type:=8) 
Col = rRange.Columns(1).Column 
On Error GoTo 0 
Application.DisplayAlerts = True 
If rRange Is Nothing Then 
    Exit Sub 
Else 
    If AscendingOption Then 
     Range("A14:CE" & lastRow).Sort key1:=Range(Cells(14, Col), Cells(lastRow, Col)), 
     _Order1:=xlAscending, Header:=xlNo, key2:=Range("C14:C" & lastRow), 
     _Order2:=xlAscending, Header:=xlNo 
    End If 
    If DescendingOption Then 
     Range("A14:CE" & lastRow).Sort key1:=Range(Cells(14, Col), Cells(lastRow, Col)), 
     _Order1:=xlDescending, Header:=xlNo, key2:=Range("C14:C" & lastRow), 
     _Order2:=xlAscending, Header:=xlNo 
    End If 
Unload UserForm1 
End If 
End Sub 

Answer 2

變量AscendingOption和DescendingOption都未初始化，所以設置爲false。您需要將其中一個值更改爲TRUE進行排序。但是，在當前的代碼中，如果兩者都是TRUE，那麼您將對它進行兩次排序 - 首先是上升，然後是下降。你可以通過一個變量減少代碼爲：

If AscendingOption Then 
     Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14:" & Col & lastRow), Order1:=xlAscending, Header:=xlNo, key2:=Range("C14:C" & lastRow), Order2:=xlAscending, Header:=xlNo 
    Else 
     Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14", Col & lastRow), Order1:=xlDescending, key2:=Range("C14:C" & lastRow), Order2:=xlAscending 
    End If 

如果AscendingOption是真實的，它在排序中升序排列，否則降。