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

挺复杂

多少年了

itily

看看答案

xxww_vip520

我也要看看，是哪里做错了

xxww_vip520

小弟不才，把第二题的答案改写了。
Sub 正数标记该列()
    Dim rng As Range, rg As Range, flag As Boolean
    flag = True
    For Each rng In Range("A2:C12")
        If WorksheetFunction.IsNumber(rng) And rng > 0 And flag Then
            Set rg = rng
            flag = False
        ElseIf WorksheetFunction.IsNumber(rng) And rng > 0 Then
            Set rg = Union(rg, rng)
        End If
    Next rng
    rg.EntireRow.Select
End Sub

lmsun789

太不容易了

kuroT

Sub exe1()

Dim x As Integer, y As Integer

For x = 1 To 20 Step 1

   For y = 1 To 3 Step 1

   If IsNumeric(Cells(x, y).Value) Then

     If Cells(x, y).Value > 0 Then

        Cells(x, y).Value = "正数"
        Cells(x, y).Font.ColorIndex = 3
    End If
   End If

    Next y
    Next x



End Sub

suifeng8470

魚。。

交作业：
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 rng As Range, rg As Range, i&
        For Each rng In [a2:c12]
            If IsNumeric(rng) And rng > 0 Then
                If i = 0 Then
                    Set rg = rng.EntireRow
                    i = 1
                Else
                    Set rg = Union(rg, rng.EntireRow)
                End If
            End If
        Next
        rg.Select
End Sub

苏小菲

看看

longpie1

Option Explicit
Sub 数据替换()
    Dim rg As Range
    For Each rg In Selection
        If VBA.IsNumeric(rg.Value) And rg.Value > 0 Then
            rg.Value = "正数"
        End If
    Next rg
End Sub

Sub 一次选取()
    Dim rg As Range
    Dim rg2 As Range
    Dim i As Byte
    For Each rg In Range("A2:C12")
        If VBA.IsNumeric(rg.Value) And rg.Value > 0 Then
            If i = 0 Then
                Set rg2 = rg.EntireRow
                i = 1
            Else
                Set rg2 = Union(rg2, rg.EntireRow)
            End If
        End If
    Next rg
    rg2.Select
End Sub