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

hjqqq1995

看看

sh16

非常感谢分享

isy007

panmiaomiao

tks

panmiaomiao

tks

Nickley

来学习

yhlyee

'选取任意区域中大于0的数替换为正数
Sub 正数()
    Dim All_Rg, Rg As Range
    Set All_Rg = Selection
    For Each Rg In All_Rg
        If Rg.Value > 0 Then Rg.Value = "正数"
    Next

End Sub

'选取任意区域中大于0的数所在行
Sub S_ROW()
    Dim Rg, All_Rg, Row_Rg As Range
    Dim I As Integer
    I = 0
    Set All_Rg = Selection
    For Each Rg In All_Rg
        If Rg > 0 And IsNumeric(Rg) Then
            I = I + 1
            If I = 1 Then Set Row_Rg = Rg Else
            Set Row_Rg = Union(Row_Rg, Rg)
            End If
    Next
    Row_Rg.EntireRow.Select
End Sub

竹韵zm

交作业啦

jzwjzw5

向各位前辈学习

lf5100

来学习了！