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

jufulee

想看这道题目的答案

Paul1837

学习一下

阿利

就是想看看答案

panodyssey

zhouzhou9950

查看

hahah

kiinly

看看答案

Huihui0128

拜师

yanjing19

O

Yixia90

Sub button1()
    For Each c In Selection.Cells
        If IsNumeric(c.Value) And c.Value > 0 Then
            c.Value = "正数"
        End If
        
    Next
End Sub
Sub button2()
Dim rg As Range
Dim i As Integer
i = 0
For Each c In Range("A2:C12")
    If IsNumeric(c.Value) And c.Value > 0 Then
        i = i + 1
        If i = 1 Then
            Set rg = c
        Else: Set rg = Union(rg, c)
        End If
    End If
Next
rg.EntireRow.Select
End Sub