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

hsy873399

Sub 第一题()
Dim rg As Range
For Each rg In Selection
If rg > 0 And IsNumeric(rg) Then
    rg = "正数"
End If
Next
End Sub
Sub 第二题()
Dim x, y As Integer
Dim rg As Range
For x = 1 To 3
For y = 2 To 12
If Cells(y, x) > 0 And IsNumeric(Cells(y, x)) Then
If y >= 2 And x = 1 Then Set rg = Cells(y, x) 'X>=2如果2行单元格没数值的话就跳第三行开始。不然出错。嘿嘿
    Set rg = Union(rg, Cells(y, x))
End If
Next
Next
  rg.EntireRow.Select
End Sub

hsy873399

老师，补充刚才第二题
Sub 第二题()
Dim x, y As Integer
Dim rg As Range
For x = 1 To 3
For y = 2 To 12
If Cells(y, x) > 0 And IsNumeric(Cells(y, x)) = True Then
If rg Is Nothing Then Set rg = Cells(y, x) 'X>=2如果2行单元格没数值的话就跳第三行开始。不然出错。嘿嘿
    Set rg = Union(rg, Cells(y, x))
End If
Next
Next
  rg.EntireRow.Select
End Sub

qing33670000

进来学习一下。

asdsadada

11111111111111

咸水

第一次交作业啊

xiaoleiboshi

fvkgdf;hfjh;kl'jkl'klh;jk;lofhopdkjpf

davidwance

游客，如果您要查看本帖隐藏内容请回复

见附件

ranzhaohang

学习一下啊

雨后彩霞

看看结果
{:011:}{:011:}

qds1229

Sub tt()
Range("a1:d9").Select
Dim rg As Range
For Each rg In Range("a1:d9")
If rg > 0 Then
rg = "正数"
End If
Next rg
End Sub

Sub t()
Dim x As Integer, y As Integer
For x = 2 To 12
For y = 1 To 2
If Cells("x,y") > 0 Then
Rows(x).Select
End If
Next x
Next y

End Sub