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

苏小仙

看看

春暖花再开

看下答案

moxiaoming

我来看答案

Ye.hoow

想学习下

i_isok

来看看

i维维

yeahi1314

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

24缟仳

24缟仳

24缟仳

Sub 第一题()
Dim rng As Range
For Each rng In Selection
    If VBA.IsNumeric(rng) And rng > 0 Then
        rng = "正数"
    End If
Next
End Sub

Sub 第二题()
Dim i%, rng As Range
For i = 1 To 12
    If Application.Sum(Range("a" & i).Resize(1, 3)) > 0 Then
        If rng Is Nothing Then Set rng = Range("a" & i)
        Set rng = Union(rng, Range("a" & i))
    End If
Next
rng.EntireRow.Select
End Sub