大神帮忙解惑

狐狸学Excel

我写了一个宏，为什么要有红色那个代码？不明白，请大神指教。

Sub 更新图测试()
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim zd
For n = 1 To Sheets.Count
If Left(Sheets(n).Name, 4) = "租控图-" Then
    zd = Right(Sheets(n).Name, Len(Sheets(n).Name) - 4)
    k = Sheets("租控图-" & zd).Cells(1, 2)
   
    Sheets(n).Select


For i = 1 To k
    Select Case Sheets("租控明细-" & zd).Cells(i + 2, 9)
        Case Is = "开业"
            Sheets("租控图-" & zd).Shapes.Range(Array("TextBox " & i)).Select
            Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = i & Chr(13)
    End Select
   
Next
Else
End If
Next
End Sub

金樽空对月

因为vba在编辑shape对象时，要求要写入shape对象的工作表是当前的活动工作表，
否则会产生错误，这句代码的意思就是把sheets(n)这个工作表设定为当前工作表。