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

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

wphzhy

学习学习

哪里看到答案？

如何看到答案？

麦芽lwdwd

6

zxndxk1234

学习一下..