VBA培训的第11讲练习题答案，纯粹的菜鸟多指教。

金樽空对月

Sub 题目一()
[a1:c4].Select
Dim rng As Range
    For Each rng In Selection
        If Val(rng) > 0 Then
            rng.Value = "正数"
         End If
    Next
End Sub


Sub 题目二()
Dim rg As Range
Dim rx As Range
Dim x As Integer
  Set rg = Rows(2)
  For x = 3 To 12
    If Val(Cells(x, 1)) Or Val(Cells(x, 2)) > 0 Or Val(Cells(x, 3)) > 0 Then
       Set rx = Rows(x)
       Set rg = Union(rg, rx)
    End If
  Next
rg.Select
End Sub

我想问的是：为什么给对象变量赋值的代码位置和给数值变量赋值的代码位置互换后就出错了呢？要遵循什么原则吗？
上面的代码是我又重新把前面的几讲又看了一遍，又参考了别人的代码才弄出来的，有点晕呀！

hwc2ycy

多F8一下，你就明白了。
首先你得明白程序要实现什么功能。

金樽空对月

谢谢，明白了，如果换了位置的话，等到第二次循环时就变成对象循环了，而不是要的数值循环了，就出错了。不知道这样解释确切不？