我来看看，学习学习
初次学习，看看练练！
**** Hidden Message *****
Sub 练习1()
Dim rg As Range
For Each rg In Selection
If rg > 0 And IsNumeric(rg.Value) = True Then
rg = "正数"
End If
Next rg
End Sub
End Sub
Sub 练习2()
Dim i, j, k As Integer, rg As Range
k = 0
For i = 1 To 12
For j = 1 To 3
If IsNumeric(Cells(i, j).Value) = True And Cells(i, j).Value <> "" And Cells(i, j) > 0 Then
If k = 0 Then
Set rg = Rows(i)
k = k + 1
GoTo 10
Else: k = k + 1
Set rg = Union(rg, Rows(i))
End If
End If
10 Next j
20 Next i
rg.Select
End Sub
好好学习下
加油
抱歉，您没有权限使用 代码?/
Sub 选取正数()
Dim rg As Range
For Each rg In Selection
If rg > 0 And IsNumeric(rg.Value) = True Then
rg = "正数"
End If
Next
End Sub
Sub 选取行数()
Dim x As Range, rng As Range
For Each x In Range("A2:C12")
If IsNumeric(x) = True And x.Value > 0 Then
If rng Is Nothing Then Set rng = x
Set rng = Union(rng, x)
End If
Next
rng.EntireRow.Select
End Sub
**** Hidden Message *****
Sub 替换()
Dim rg As Range
For Each rg In Range("a1:d18")
If rg.Value > 0 Then
If rg.Value < 35 Then
rg.Value = "正数"
End If
End If
Next
End Sub
Sub 选取正数行()
Dim rg As Range, rb As Range, re As Range
Set rb = Range("2:2")
For Each rg In Range("a2:c12")
If rg.Value > 0 Then
If rg.Value < 35 Then
Set re = rg.EntireRow
Set rb = Union(rb, re)
End If
End If
Next
rb.Select
End Sub
gongbiao111 发表于 2011-12-7 14:07 static/image/common/back.gif
Sub 选取正数()
Dim rg As Range
For Each rg In Selection
goodjob ！！ nice
在学习当中，只能靠模仿来提高。