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

jackie1521

来学习一下

kilon

参考下

ECCL

jsgslgd 发表于 2011-7-4 22:55
作业上交
**** 本内容被作者隐藏 ****

+！

natsa11

666666666666666666

大恬123

都21年了依旧得看前辈们的做法

excel精英培训89

学习

junior

新人学习。
答题1：
Sub Sheet4_按钮1_Click()
On Error Resume Next
    Dim rg As Range
        For Each rg In Selection
            If IsNumeric(rg) And rg.Value > 0 Then
                rg = "正数"
            End If
        Next rg
End Sub


答题2：
Sub dd()
    Dim rng As Range, rg As Range
        For Each rng In Range("B11", "F19")
            If IsNumeric(rng) And rng.Value > 0 Then
              If rg Is Nothing Then Set rg = rng
              Set rg = Union(rg, rng)
            End If
        Next rng
        rg.EntireRow.Select
End Sub

jkdsyl

大神

574868563

学习

温柔了岁月

看看