[已解决]关于VBA的小问题

fuxuanbo · 发表于 2011-12-20 10:18

sub题目2的功能是选取A2：C12区域大于0的数字单元格所在的行。我编写的这个程序如果按逐语句运行则可以实现，但是如果直接运行就只选择最后一个符合条件单元格所在的行。麻烦各位高手指点指点看是出错在哪了，谢谢！

Sub 题目2()
Dim x As Integer
Dim y As Integer
Dim rg As Range

      For x = 2 To 12 Step 1
         For y = 1 To 3 Step 1
               If Cells(x, y) > 0 And IsNumeric(Cells(x, y)) Then
                  Set rg = Cells(x, y)
                  Set rg = Union(rg, Cells(x, y))
               End If
         Next y
      Next x
   rg.EntireRow.Select
End Sub

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-12-20 10:24

If rg Is Nothing Then
Set rg = Cells(x, y)
Else
Set rg = Union(rg, Cells(x, y))
End If

跳转到最佳答案楼层

搁浅2008 · 发表于 2011-12-20 10:24

If rg Is Nothing Then
Set rg = Cells(x, y)
Else
Set rg = Union(rg, Cells(x, y))
End If

fuxuanbo · 发表于 2011-12-20 10:34

搁浅2008 发表于 2011-12-20 10:24
If rg Is Nothing Then
Set rg = Cells(x, y)
Else

版主好，能讲解讲解一下吗？谢谢

搁浅2008 · 发表于 2011-12-20 10:39

是的把原来的替换掉的 Set rg = Cells(x, y)每次运行它就会变成一个单元格

Select · 发表于 2011-12-20 10:45

Sub 题目2()
Dim Rng As Range
Dim x As Range
For Each x In [a2:c12]
If IsNumeric(x) Then '如果x是数字
If x > 0 Then
If Rng Is Nothing Then
'当 Rng 没引用任何实际对象时,将单元格 x 赋给变量 Rng
Set Rng = x
Else
'当 Rng 引用了实际对象后，合并区域 Rng 与单元格 x
Set Rng = Union(Rng, x)
End If
End If
End If
Next x
Rng.EntireRow.Select
End Sub

复制代码

学习搁浅的方法，练习下，多点印象

fuxuanbo · 发表于 2011-12-20 10:37

搁浅2008 发表于 2011-12-20 10:24
If rg Is Nothing Then
Set rg = Cells(x, y)
Else

是不是如果按照的我编写的这个程序，每次循环都重新给rg赋值，都把原有的覆盖掉了啊？
  If Cells(x, y) > 0 And IsNumeric(Cells(x, y)) Then
      Set rg = Cells(x, y)
      Set rg = Union(rg, Cells(x, y))
  End If

fuxuanbo · 发表于 2011-12-20 12:21

Select 发表于 2011-12-20 10:45
学习搁浅的方法，练习下，多点印象

非常感谢，可惜已经给过最佳，不能在给了。呵呵！对了，你发的帖子里面的代码，有序号又有复制，怎么弄的啊

Select · 发表于 2011-12-20 12:33

发帖或回帖时，在工具栏中，点这个图标"<>"，再发帖。多44

fuxuanbo · 发表于 2011-12-20 12:35

,呵呵谢谢，我也会了

fuxuanbo · 发表于 2011-12-20 12:35

Select 发表于 2011-12-20 12:33
发帖或回帖时，在工具栏中，点这个图标""，再发帖。多44

,呵呵谢谢，我也会了

		自动登录	找回密码
密码			注册