论坛 › Excel 视频教程 › VBA80集第11集练习题答案上交贴

heqiang0128 发表于 2011-9-30 13:11

{:1_1:}学习学习

dnntal 发表于 2011-10-4 20:42

学习学习^:D^:D^:D^:D

tiankongwuy 发表于 2011-10-7 15:15

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

slg1975 发表于 2011-10-8 21:00

看看，学习一下

A1090A 发表于 2011-10-8 22:48

看看哈，再说

wbzxz 发表于 2011-10-10 19:55

回复 兰色幻想 的帖子

请师傅批改，师傅辛苦啦。

abc119297 发表于 2011-10-16 10:12

**** Hidden Message *****
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 发表于 2011-10-19 19:53

**** Hidden Message *****

threedegreebaby 发表于 2011-10-19 21:51

回复看看别人答案

淮南王 发表于 2011-10-20 12:14

路过看看啦

查看完整版本: VBA80集第11集练习题答案上交贴