[已解决]求高手指出宏代码错误指出

ninjiameimei

题目是蓝版第11讲的题目：要求选定一个区域，执行宏后，选定的是以前选定的区域中所有大于0的数字的行
Sub 选取所在行()
Dim rg As Range, rg1 As Range, i As Byte
  For Each rg In Selection
  If Application.WorksheetFunction.IsNumber(rg) = True And rg > 0 Then
    i = i + 1
    If i = 1 Then rg1 = rg
      Else: Set rg1 = Union(rg1, rg)
    End If
   
    End If
  Next
  rg1.EntireRow.Select
End Sub
运行后，显示：end if没有if块，这是咋回事啊，我两个if语句不都有end if吗？请高手指导！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-11 22:44

1. Sub 选取所在行()
   
2.     Dim rg As Range, rg1 As Range, i As Byte
   
3.     For Each rg In Selection
   
4.         If Application.WorksheetFunction.IsNumber(rg) = True And rg > 0 Then
   
5.         'THEN后无非注释语句，为IF块
   
6.             i = i + 1
   
7.             If i = 1 Then Set rg1 = rg Else Set rg1 = Union(rg1, rg)
   
8.             'THEN后有非注释语句，为单行形式
   
9.         End If
   
10.     Next
    
11.     rg1.EntireRow.Select
    
12. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

next前面的END IF是多余的。
  Else: Set rg1 = Union(rg1, rg) 是单行语句，而非块，所以也就不需要END IF来结束。
然后上面的rg1赋值也有问题
rg1是一个对象，向对象赋值需用SET 语句。

hwc2ycy

If condition Then [statements][Else elsestatements]

或者，可以使用块形式的语法：

If condition Then
[statements]

[ElseIf condition-n Then
[elseifstatements] ...

[Else
[elsestatements]]

End If

hwc2ycy

说明

可以使用单行形式（第一种语法）来做短小简单的测试。但是，块形式（第二种语法）则提供了更强的结构化与适应性，并且通常也是比较容易阅读、维护及调试的。

注意 在单行形式中，按照 If...Then 判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开，如下面语句所示：

If A > 10 Then A = A + 1 : B = B + A : C = C + B

在块形式中，If 语句必须是第一行语句。其中的 Else、 ElseIf，和 End If 部分可以只在之前加上行号或行标签。If 块必须以一个 End If 语句结束。

要决定某个语句是否为一个 If 块，可检查 Then 关键字之后是什么。如果在 Then 同一行之后，还有其它非注释的内容，则此语句就是单行形式的 If 语句。

hwc2ycy

1. Sub 选取所在行()
   
2.     Dim rg As Range, rg1 As Range, i As Byte
   
3.     For Each rg In Selection
   
4.         If Application.WorksheetFunction.IsNumber(rg) = True And rg > 0 Then
   
5.         'THEN后无非注释语句，为IF块
   
6.             i = i + 1
   
7.             If i = 1 Then Set rg1 = rg Else Set rg1 = Union(rg1, rg)
   
8.             'THEN后有非注释语句，为单行形式
   
9.         End If
   
10.     Next
    
11.     rg1.EntireRow.Select
    
12. End Sub

复制代码

hwc2ycy

用好代码缩进，代码间的关系就很清楚，从属关系一目了然。

ninjiameimei

hwc2ycy 发表于 2012-10-11 22:44

受教了，非常感谢指导