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

panan123_0 发表于 2011-9-11 15:45

:@:@:@:@:@:@

sycdzp 发表于 2011-9-11 16:34

sycdzp 发表于 2011-9-11 18:22

ylysy 发表于 2011-9-15 17:51

来学习的。

天涯浪迹 发表于 2011-9-15 20:49

我来学习一下

cabcd1 发表于 2011-9-17 10:20

不知道哪里错了，老师帮我看一下，谢谢了

scsys1 发表于 2011-9-17 12:33

本帖最后由 scsys1 于 2011-9-17 12:36 编辑

Sub 题目一()
Dim rng As Range
    For Each rng In Selection
      If Val(rng) > 0 Then
            rng.Value = "正数"
         End If
    Next
End Sub
Sub 题目二()
Dim i As Integer
Dim j As Integer
Dim rn As Range
Dim rng As Range
    Set rng = Rows(2)
    For i = 3 To 12
      If Val(Cells(i, 1)) > 0 Or Val(Cells(i, 2)) > 0 Or Val(Cells(i, 3)) > 0 Then
            Set rn = Rows(i)
            Set rng = Union(rng, rn)
      End If
    Next
rng.Select
End Sub

rosa417 发表于 2011-9-19 19:31

kankan la

cabcd1 发表于 2011-9-19 23:32

上交了！！！！！！！！！！！！

zx_wl 发表于 2011-9-25 00:11

我来向高手学习{:171:}

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