Excel VBA当我们有更多if then else函数时如何使用索引

时间:2017-06-09 07:56:36

标签: excel vba excel-vba

我有一个VBA代码,包含超过50行的If Then ElseIf函数。当我运行宏时,它将满足一个"如果"条件。如果数据满足,第50个Elseif条件,那么如果条件,宏将通过49。我知道,符合条件的一个基本价值。由于我能够找到满足条件的值,如果条件可以直接跳转到那个特定的值吗?任何帮助将不胜感激

If A=10 and B=39 then
Do Something....
Elseif A=11 and B=30 and C=56 then
Do Something....
Elseif A=13 and B=35 and C=60 then
Do Something....
...
etc

这里因为我知道A = 13,我可以直接跳到

Elseif A=13 and B=35 and C=60 then

如果条件没有通过前两个?

1 个答案:

答案 0 :(得分:0)

对于您的问题 - 您是否可以优先考虑49. ElseIf条件 -

但如果你想在调试中更快地完成它,你可以把它放在数字1或2中。 像这样:

Public Sub TestMe()

    Dim a As Long
    a = 5

    If a < 6 Then
        Debug.Print "The most popular"
    ElseIf a = 5 Then
        Debug.Print "The 2. most popular"
    ElseIf a > 2 Then
        Debug.Print "The 3. most popular"
    End If

End Sub

正如评论中所提到的,您将进行大约50次小型评估这一事实不会减慢您的代码速度(除非评估中存在非优化函数,或者您正在访问数据库)。