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

heqiang0128

学习学习

dnntal

学习学习

tiankongwuy

我听了课之后怎么做不出来呢，看看别人怎么做的

slg1975

看看，学习一下

A1090A

看看哈，再说

wbzxz

回复 兰色幻想 的帖子

请师傅批改，师傅辛苦啦。 第11集练习题-wbzxz.rar (9.94 KB, 下载次数: 25)

2011-10-10 19:55 上传

点击文件名下载附件

abc119297

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

Vba80集第11集Sub 题目1()
On Error Resume Next
Range("a1:c11").Select
Dim rg As Range
For Each rg In Range("a1:c11")
    If IsNumeric(rg) Then
        If rg > 0 Then GoSub 100
        End If
Next rg
Exit Sub
100
rg = "正数"
Return
End Sub
Vba80集第11集Sub 题目2()
Dim rg As Range
Dim x As Integer
Dim y As Integer
For y = 1 To 3
    For x = 2 To 12
        If IsNumeric(Cells(x, y)) < 0 Then
            If Cells(x, y) > 0 Then
                If x = 2 And y = 1 Then Set rg = Cells(x, y)
                    Set rg = Union(rg, Cells(x, y))
            End If
        End If
    Next x
Next y
rg.EntireRow.Select
End Sub

e2solo

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

threedegreebaby

回复看看别人答案

淮南王

路过看看啦