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

然然的然然

求网友交流

lycharon

{:011:}

pk30

第二题出了点错，找一个看看。

fionawei

fionawei

lierwang

学习

lierwang

Sub 题目1()
    Dim rg As Range
    Set rg = Selection
    For Each ii In rg
        If IsNumeric(ii) = True And ii.Value > 0 Then ii.Value = "正数"
    Next ii
End Sub


Sub 题目2()
    Dim rg As Range, rgg As Range
    For Each rg In Range("A2:C12")
      If IsNumeric(rg) = True And rg.Value > 0 Then
      Set rgg = rg
      Exit For
      End If
    Next
    For Each rg In [A2:C12]
      If IsNumeric(rg) = True And rg.Value > 0 Then
      Set rgg = Union(rg, rgg)
      End If
    Next
    rgg.EntireRow.Select
   
End Sub

然然的然然

pk30 发表于 2017-8-27 22:27
第二题出了点错，找一个看看。

运行没有错啊，行重复选择了

xdyputixin

来对答案的

sws0825

111