Private Function ini()
    Dim ifnd1, ifnd2, ifnd3, ifnd4, ifnd5, ifnd6, ifnd7, ifnd8, ifnd9 As Range
            Set sahe = ActiveSheet
'---------------------------------------------------------------------------group1-------------------------------------------------------------------------------------------
                With sahe
                    Dim res As Range
                        lLastCol = Cells.SpecialCells(xlLastCell).Column
                        Set res = Range(Cells(2, 3), Cells(2, lLastCol))
                End With
                With res
                

    Set ifnd1 = sahe.Cells.Find("1 из 9", [c2], xlFormulas, , xlByColumns, xlNext)
                        If ifnd1 Is Nothing Then fnd1 = 1
                            If Not ifnd1 Is Nothing Then
                    If ifnd1.Offset(2).Interior.Color = vbYellow Then fnd1 = 2
                    If ifnd1.Offset(2).Interior.Color = vbGreen Then fnd1 = 3
                    If ifnd1.Offset(2).Value = "В работе" Then fnd1 = 4
                    If ifnd1.Offset(2).Value = "Статус выполнения " Then fnd1 = 1
                            End If
                    If fnd1 = 1 Then status1 = "Не начат": color1 = vbWhite
                    If fnd1 = 2 Then status1 = "С ошибками": color1 = vbYellow
                    If fnd1 = 3 Then status1 = "Пройден": color1 = RGB(51, 153, 102)
                    If fnd1 = 4 Then status1 = "Не завершен": color1 = vbWhite
End with
Me.S1.BackColor = color1: Me.S1.Caption = status1
End sub