[已解决]第11集习题第二题

小鹏的天空

自己编的程序怎么运行不了，请指教，谢谢

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-8-18 17:06

小鹏的天空 发表于 2015-8-18 17:02
不好意思，你的程序提示出错，运行不了，提示“运行时错误5，无效的过程调用或参数”

如果出错，那可能是没有符合条件的数据。
可用下面的试试。加了一个防错不提示。

1. Sub 选行()
   
2. On Error Resume Next
   
3. Dim Rng As Range, a$
   
4. For Each Rng In Range("a2:c12")
   
5.      If Val(Rng.Value) > 0 Then a = a & Rng.Row & ":" & Rng.Row & ","
   
6. Next
   
7. Range(Left(a, Len(a) - 1)).Select
   
8. End Sub

复制代码

跳转到最佳答案楼层

grf1973

题目1是对的，题目2改为：

1. Sub 选行()
   
2.     Dim Rng As Range, SelRng As Range
   
3.     For Each Rng In Range("a2:c12")
   
4.       If Val(Rng.Value) > 0 Then
   
5.         If SelRng Is Nothing Then Set SelRng = Rows(Rng.Row) Else Set SelRng = Union(SelRng, Rows(Rng.Row))
   
6.       End If
   
7.     Next
   
8.     If Not SelRng Is Nothing Then SelRng.Select
   
9. End Sub
   

复制代码

gufengaoyue

1. Sub 选行()
   
2. Dim Rng As Range, a$
   
3. For Each Rng In Range("a2:c12")
   
4.      If Val(Rng.Value) > 0 Then a = a & Rng.Row & ":" & Rng.Row & ","
   
5. Next
   
6. Range(Left(a, Len(a) - 1)).Select
   
7. End Sub

复制代码

小鹏的天空

gufengaoyue 发表于 2015-8-18 12:14

不好意思，你的程序提示出错，运行不了，提示“运行时错误5，无效的过程调用或参数”

gufengaoyue

小鹏的天空 发表于 2015-8-18 17:02
不好意思，你的程序提示出错，运行不了，提示“运行时错误5，无效的过程调用或参数”

如果出错，那可能是没有符合条件的数据。
可用下面的试试。加了一个防错不提示。

1. Sub 选行()
   
2. On Error Resume Next
   
3. Dim Rng As Range, a$
   
4. For Each Rng In Range("a2:c12")
   
5.      If Val(Rng.Value) > 0 Then a = a & Rng.Row & ":" & Rng.Row & ","
   
6. Next
   
7. Range(Left(a, Len(a) - 1)).Select
   
8. End Sub

复制代码

小鹏的天空

小鹏的天空 发表于 2015-8-18 17:02
不好意思，你的程序提示出错，运行不了，提示“运行时错误5，无效的过程调用或参数”

不好意思，看错了，可以的，谢谢老师。{:1112:}

小鹏的天空

gufengaoyue 发表于 2015-8-18 17:06
如果出错，那可能是没有符合条件的数据。
可用下面的试试。加了一个防错不提示。

Then a = a & Rng.Row & ":" & Rng.Row & ","
Range(Left(a, Len(a) - 1)).Select
老师，能解释下这两句的作用吗，有些语法没学过，看不太懂，谢谢

gufengaoyue

就是把这些行号放一起，如第2，5，8行
则 a= "2:2,5:5,8:8,"
range(2:2,5:5,8:8) = 第2+5+8行

小鹏的天空

老师，不好意思，还要请教下你第12集的答案，自己编的总觉得差点什么，你的水平真高，以后还要向您多学习，谢谢