VBA80集第11集练习题答案上交贴

zhf541

我来看看，学习学习

ygy147258

初次学习，看看练练！

mfksypss

游客，如果您要查看本帖隐藏内容请回复

wwqwcy

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

福建随风飘扬

好好学习下
加油

xqqyz

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

2011-12-4 21:03 上传

点击文件名下载附件
抱歉，您没有权限使用 [hide] 代码?/

gongbiao111

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

2007302925

1. [hide] 你的答案 [/hide]

复制代码

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

2007302925

gongbiao111 发表于 2011-12-7 14:07
Sub 选取正数()
Dim rg As Range
For Each rg In Selection

good  job   ！！ nice

xxjjdd0000

在学习当中，只能靠模仿来提高。