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

+1

+1

zzzz

怎么看答案

看看答案

antoniasun2019

6

#在这里快速回复#Sub 练习() Dim rg As Range For Each rg In Selection If Val(rg) > 0 Then rg = "正数" Next rg End Sub Sub 练习2() Dim x As Integer, y As Integer, rg As Range For x = 2 To 12     For y = 1 To 3     If rg Is Nothing And Val(Cells(x, y)) > 0 Then Set rg = Cells(x, y)     If Val(Cells(x, y)) > 0 Then Set rg = Union(rg, Cells(x, y))     Next y Next x rg.EntireRow.Select End Sub

参考一下，谢谢

怎么才能看？

查看