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

tz2302200

好难啊 想不出来了看答案了

tz2302200

1. Sub 题目1()
   
2. Dim myrng As Range
   
3. For Each myrng In Selection
   
4.     If Val(myrng) > 0 Then myrng = "正数"
   
5. Next
   
6. End Sub
   
7. 
   
8. 
   
9. Sub 题目2()
   
10. Dim myrng As Range, rg As Range
    
11. For Each myrng In [a2:c12]
    
12.     If TypeName(rg) = "Nothing" Then Set rg = Cells(myrng.Row, 1)
    
13.     If Val(myrng) > 0 Then
    
14.       Set rg = Union(rg, Cells(myrng.Row, 1))
    
15.       rg.EntireRow.Select
    
16.     End If
    
17. Next
    
18. End Sub

复制代码

厉害

厉害了

厉害

1

1

bm277419725

不错，来看看~~~~~~~~~~~~~~~~~~~~~~~~~

小马驹de逆袭

赞一个

yukang56

学习学习习~~~~