VBA排序在ElseIf内部被忽略

编程问答 2022-06-11

问题描述

任何人都可以向我解释为什么试图通过E1过滤我的数据的以下行在第一个位置不起作用（请参阅“ 

Private Sub CommandButton31_Click()

Call CreateDataSheet

If ToggleButtonFrontTeam.Value = False And ComboBox1.Value = "Designer" Then
    Call FilterFrontTeamSortDesigner
    Sheets("Data_Sheet").Range("A2:I10000").sort Key1:=Range("E1"),Order1:=xlAscending,Header:=xlNo   '<<< 1st Location
ElseIf ToggleButtonMidTeam.Value = False And ComboBox1.Value = "Designer" Then
    Call FilterMidTeamSortDesigner

ElseIf ToggleButtonRearTeam.Value = False And ComboBox1.Value = "Designer" Then
    Call FilterRearTeamSortDesigner

Else
    Unload Me

End If

Sheets("Data_Sheet").Range("A2:I10000").sort Key1:=Range("E1"),Header:=xlNo    '<<< 2nd Location

Unload Me
End Sub

解决方法

您的第二个位置排序在if语句之外，无论if结果如何，该语句都会执行。

因此，您的结果将始终为以下类别。

Sheets("Data_Sheet").Range("A2:I10000").Sort Key1:=Range("E1"),Order1:=xlAscending,Header:=xlNo    '<<< 2nd Location
if-statementsortingvba