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

huaruyun

查看答案

872141

123

872141

看看

872141

kk

mingyunruge

学习一下

Loickhan

赞

nonemoonsun

来学习

farlant54

看下

farlant54

Sub v()
Dim x As Integer, y As Integer, rg As Range
For x = 2 To 15
   For y = 1 To 3
     If Val(Cells(x, y)) > 0 Then
     Set rg = Cells(x, y)
     End If
  Next
  Exit For
Next
For x = 2 To 15
   For y = 1 To 3
     If Val(Cells(x, y)) > 0 Then
     Set rg = Union(rg, Cells(x, y))
     End If
  Next
Next
rg.EntireRow.Select
End Sub

Sub m()
Dim rg As Range, rgs As Range
Set rgs = Selection
For Each rg In rgs
If IsNumeric(rg.Value) And rg.Value > 0 Then rg.Value = "正数"
Next rg
End Sub

can1

好