如何解决VBA排序在ElseIf内部被忽略
任何人都可以向我解释为什么试图通过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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
