用代码一次选取“A2：C12”区域所有大于0数字所在的行

王南帅

各位大侠：
       你们好，小弟这段时间在学VBA丛入门到精通，已经到学到第10集了，今天遇到一个难题，脑袋想大了，都没法，特来请教。如下图

现想用代码一次选取“A2：C12”区域中，数字大于0的单元格所在的行，自己也尝试写了下，但是不正确，还有个问题总是明不穿，在这个区域中第二行，即A2:C2,  这个数据区域中有3个字母分别为a,d,d，这分明是字母，但是VBA为何要判断这3个字母是大于0的。小弟始终想不穿，请大侠们解答一下。以下是小弟写的代码。有不对的地方，请指教
Sub 一次性选取A2到C12中大于0的数字所在行()
Dim rng As Range, i As Integer
For i = 2 To 12
For Each rng In Range("a2:c12")
If rng.Value > 0 Then
Range(Cells(i, "a"), Cells(i, "c")).Select
End If
Next
Next
End Sub

longming3

IsNumeric 函数，返回一个变量是否为一个数值
再加判断大于0

TP512926

1. If IsNumeric(rng.value) AND rng.Value > 0

复制代码

kiss被注册

TP512926 发表于 2013-5-20 22:51

问个题外话，
想让代码好看点
请教下：代码以这样的形式表示出来，
是在哪儿设置的，谢谢
在VBA版块置顶的介绍因为没图，一直没找到，
谢谢

TP512926

kiss被注册 发表于 2013-5-20 23:13
问个题外话，
想让代码好看点
请教下：代码以这样的形式表示出来，

复制代码。点击回复，点击编辑栏上的<>不等于符号，粘贴代码就行了

kiss被注册

TP512926 发表于 2013-5-20 23:24
复制代码。点击回复，点击编辑栏上的不等于符号，粘贴代码就行了

1. wb.SaveAswb.SaveAs

复制代码

谢谢学友
试验下

kiss被注册

楼主的学习是视频么，可否要一份
787538586@qq.com
谢谢

TP512926

kiss被注册 发表于 2013-5-20 23:39
楼主的学习是视频么，可否要一份

谢谢

我最开始是看EXCEL帮助的，没有看视频和买书，就是经常上论坛看看，试试。动手就可以了

microyip

1. Sub 一次性选取A2到C12中大于0的数字所在行()
   
2.     Dim rRNG As Range
   
3.     Dim sRNG As String
   
4.     Dim vName As Variant
   
5.    
   
6.     sRNG = ""
   
7.     For Each rRNG In [A2:C12]
   
8.         If rRNG > 0 And IsNumeric(rRNG) Then
   
9.             vName = Split(rRNG.Address, "$")
   
10.             If Not sRNG = "" Then sRNG = sRNG & ","
    
11.             sRNG = sRNG & vName(1) & vName(2)
    
12.         End If
    
13.     Next
    
14.     Range(sRNG).Select
    
15. End Sub
    

复制代码

王南帅

TP512926 发表于 2013-5-20 23:43
我最开始是看EXCEL帮助的，没有看视频和买书，就是经常上论坛看看，试试。动手就可以了

好的，独学而无友是我的悲哀，我就传一分视频给你吧，希望能和你成为学习和工作上的好友。。。把你的QQ发给我吧，我加你