代码报错

adan_bai

第二题有点问题，请老师指点一下

adan_bai

第11集练习题.zip (9.34 KB, 下载次数: 5)

2012-12-28 20:26 上传

点击文件名下载附件

zhoucs00

1. Sub zhoucs00()
   
2. Dim rng As Range, rngg As Range
   
3. For Each rng In Range("A2:C12")
   
4.    If VBA.IsNumeric(rng.Value) And rng > 0 Then
   
5.       If rngg Is Nothing Then
   
6.          Set rngg = rng
   
7.       Else
   
8.          Set rngg = Application.Union(rngg, rng)
   
9.       End If
   
10.    End If
    
11. Next rng
    
12. rngg.EntireRow.Select
    
13. 'MsgBox rngg.Address(0, 0)
    
14. End Sub

复制代码

试下这段代码如何。。

490540970

Private Sub CommandButton1_Click()
Dim rng As Range
Dim str As String
For Each rng In Range("a2:c12")
    If VBA.IsNumeric(rng.Value) And rng.Value > 0 Then
        str = str & rng.Row & ":" & rng.Row & ","
    End If
Next
str = Left(str, Len(str) - 1)
Range("" & str).Select
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If VBA.IsNumeric(Target.Value) And Target.Value > 0 Then Target.Value = "正数"
End Sub