哪位大神，帮我看看这个程序那出问题了，提示子过程和程序未定义

关键字：大神 更新时间：2018-08-30 11:18:45 150次访问

Sub Colortest()

Dim a As String, r1 As Integer

Application.ScreenUpdating = False

Worksheets("进度").Range("A2").End(xlDown).Select

ActiveCell.Offset(1, 0).Activate

Do Until r1 = 2

    ActiveCell.Offset(-1, 0).Activate

    r1 = Workbooks("进度").Application.ActiveCell.Row

    'MsgBox r1

    a = Cell(r1, 22).Value

    'MsgBox a

    If a = "*1*" Then

     Cell(r1, 18).Select

     Cell(r1, 18) = RGB(255, 255, 0)

     End If

Loop

Application.ScreenUpdating = True

End Sub

你这个程序属于子过程和程序未定义的问题，应该是你的ActiveCell没有定义导致的程序不通过的

相关标签：大神