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

panan123_0

ylysy

来学习的。

天涯浪迹

我来学习一下

cabcd1

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

scsys1

1. Sub 题目一()
   
2. Dim rng As Range
   
3.     For Each rng In Selection
   
4.         If Val(rng) > 0 Then
   
5.             rng.Value = "正数"
   
6.          End If
   
7.     Next
   
8. End Sub
   
9. Sub 题目二()
   
10. Dim i As Integer
    
11. Dim j As Integer
    
12. Dim rn As Range
    
13. Dim rng As Range
    
14.     Set rng = Rows(2)
    
15.     For i = 3 To 12
    
16.         If Val(Cells(i, 1)) > 0 Or Val(Cells(i, 2)) > 0 Or Val(Cells(i, 3)) > 0 Then
    
17.             Set rn = Rows(i)
    
18.             Set rng = Union(rng, rn)
    
19.         End If
    
20.     Next
    
21. rng.Select
    
22. End Sub
    

复制代码

rosa417

kankan la

cabcd1

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

zx_wl

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