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

w2001pf

学习学习学习后自己再练习

quasimodo

无语。。。绝倒。。。vb里单元格的value属性取到的string居然可以和int值比大小。

quasimodo

1. Sub test1()
   
2.     Dim rg As Range
   
3.     For Each rg In Selection
   
4.         If Val(rg) > 0 Then
   
5.             rg.Value = "正数"
   
6.          End If
   
7.     Next rg
   
8. End Sub
   
9. 
   
10. Sub test2()
    
11.     Dim rg As Range
    
12.     Dim rg2 As Range
    
13.         
    
14.     For Each rg In Range("a1:c12")
    
15.         If Val(rg) > 0 Then
    
16.             If rg2 Is Nothing Then
    
17.                 Set rg2 = rg
    
18.             End If
    
19.             Set rg2 = Union(rg2, rg)
    
20.         End If
    
21.     Next rg
    
22.     rg2.EntireRow.Select
    
23. End Sub

复制代码

lzclzch

谢谢楼主{:011:}

serenaWu

01.

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

循序渐进

学习最佳代码

hongmeigui

{:011:}{:011:}

meili11

rhf gh kwg kwg

89762566

做不出来...

hehehehebt

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