“编译错误:预期:声明结束”

时间:2015-11-03 18:45:05

标签: excel vba

当试图运行包含以下if语句的代码时,我得到一个编译错误:预期:该行Elself IsArray(rng(J))Then的语句结束。

If IsObject(rng(J)) = True Then
    TempX = rng(J).Rows.Count
    TempY = rng(J).Columns.Count
Elself IsArray(rng(J))Then
    TempX = UBound(rng(J), 1)
    TempY = UBound(rng(J), 2)
End If

现在尝试了一段时间,但似乎无法使其发挥作用。

2 个答案:

答案 0 :(得分:3)

解决Elself拼写错误,只需将End If添加到最后一行(在新行上):

If IsObject(rng(J)) = True Then
    TempX = rng(J).Rows.Count
    TempY = rng(J).Columns.Count
ElseIf IsArray(rng(J)) Then
    TempX = UBound(rng(J), 1)
    TempY = UBound(rng(J), 2)
End If

注意:您在技术上不需要= True位,您可以保留If IsObject(rng(J)) Then

答案 1 :(得分:3)

Elself应该用ElseIf替换(字母I不是L)