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

2013737973

学习学习

天蓝如梦

第二个做不出来，来看看别人的答案，学习学习。

exceltl

666666666666

lqww

sss

zhiwei808

还能看到不

qq896973200

Sub 第1题()
Dim rg As Range
On Error Resume Next
For Each rg In Selection
    If Val(rg) > 0 Then
        rg = "正数"
    End If
Next rg
End Sub



Sub 第2题()
Dim rg As Range, x As Integer, y As Integer, i As Integer
On Error Resume Next
i = 0
For x = 2 To 12
    For y = 1 To 3
        If Val(Cells(x, y)) > 0 Then
            i = i + 1
            If i = 1 Then
                Set rg = Cells(x, y)
            End If
            Set rg = Union(rg, Cells(x, y))
        End If
    Next y
Next x
rg.EntireRow.Select
End Sub

louieyan0823

1111

小败_3

学习一下。。。。。。

123412341234123

还是不会写，求大家的

zjj645683423

查看