Question

当我尝试运行我的代码时，运行第7行（2d Elseif）时出现运行时错误（1004）

If InStr(1, Sheets("Distancier").Range("A1:AAA20000").Cells(i, 1), "Car", vbTextCompare) > 0 Then 'si le lieu est une source alors on cherche ses coordonnées dans l'onglet source
    startv = WorksheetFunction.VLookup(Sheets("Distancier").Range("A1:AAA20000").Cells(i, 1).Text, Sheets("Sources").Range("A2:AAA2000"), 5, True)

        If (InStr(1, Sheets("Distancier").Range("A1:AAA20000").Cells(1, j), "Gare", vbTextCompare) > 0 And WorksheetFunction.VLookup(Sheets("Distancier").Range("A1:AAA20000").Cells(1, j).Text, Sheets("Embranchements ferroviaires").Range("A2:AAA2000"), 6, True) = "Oui") Then
                    endv = WorksheetFunction.VLookup(Sheets("Distancier").Range("A1:AAA20000").Cells(1, j).Text, Sheets("Embranchements ferroviaires").Range("A2:AAA2000"), 5, True)

        Else:
                    startv = vbNullString
                    endv = vbNullString

        End If
End If

给我一个运行时错误的文本值是＆＃34; App2＆＃34;，它链接到＆＃34; Non＆＃34;在它的表格中（而不是＆＃34; Oui＆＃34;这是我正在测试的条件之一）。我不明白为什么它没有工作，因为没有达到任何标准，它应该转移到Else：。

任何线索？

谢谢，逗乐

导致运行时错误的VBA Elseif语句

0 个答案: