=ПОИСКПОЗ(B5;МУМНОЖ(--(Т(СМЕЩ(A$1;СТРОКА(A$4:A$1000)+СТОЛБЕЦ(СМЕЩ(A1;;;;B5));))=ТРАНСП(СМЕЩ(A$5;;;B5)));СТРОКА(СМЕЩ(A1;;;B5))^0);)+5

Private Sub CommandButton1_Click()
    Dim iPR As Long
    iPR = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(iPR, 2) = txt_¹
    Cells(iPR, 3) = txt_fio
    Cells(iPR, 4) = txt_email
    Cells(iPR, 5) = txt_tel
    With txt_kvalif
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                s = s & "," & .List(i)
            End If
        Next
    End With
    Cells(iPR, 6) = Mid(s, 2)
    Cells(iPR, 7) = txt_stat
    Cells(iPR, 8) = txt_cok
    Cells(iPR, 9) = txt_raspor
    Unload UserForm1
    ThisWorkbook.Save
End Sub

Private Sub CommandButton2_Click() 'êîä äëÿ "Ñîõðàíèòü îòðåäàêòèðîâàííûé äàííûå"
    'If Edit_Copy = "Edit" Then
    Cells(ActiveCell.Row, 2) = txt_¹
    Cells(ActiveCell.Row, 3) = txt_fio
    Cells(ActiveCell.Row, 4) = txt_email
    Cells(ActiveCell.Row, 5) = txt_tel
    With txt_kvalif
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                s = s & "," & .List(i)
                    
            End If
        Next
    End With
    Cells(ActiveCell.Row, 6) = Mid(s, 2)
    Cells(ActiveCell.Row, 7) = txt_stat
    Cells(ActiveCell.Row, 8) = txt_cok
    Cells(ActiveCell.Row, 9) = txt_raspor
                
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    UserForm1.txt_¹ = CStr(Cells(Selection.Rows.Row, 2).Value)
    UserForm1.txt_fio = CStr(Cells(Selection.Rows.Row, 3).Value)
    UserForm1.txt_email = CStr(Cells(Selection.Rows.Row, 4).Value)
    UserForm1.txt_tel = CStr(Cells(Selection.Rows.Row, 5).Value)
    Dim arr, i
    arr = Split(CStr(Cells(Selection.Rows.Row, 6).Value), ",")
    If IsArray(arr) Then
        With UserForm1.txt_kvalif
            For i = 0 To .ListCount - 1
                If UBound(Filter(arr, .List(i), , vbTextCompare)) > -1 Then
                    .Selected(i) = True
                End If
            Next
        End With
    End If
    UserForm1.txt_stat = CStr(Cells(Selection.Rows.Row, 7).Value)
    UserForm1.txt_cok = CStr(Cells(Selection.Rows.Row, 8).Value)
    UserForm1.txt_raspor = CStr(Cells(Selection.Rows.Row, 9).Value)
    UserForm1.Show vbModeless
End Sub

Sub Stat()

    Dim aBase
    Dim iCr As Integer
    
    iCr = 5

    ReDim aBase(1 To 5)

    For iCr = 1 To 5

        aBase(iCr) = Application.Transpose(ActiveSheet.Cells(1, iCr + 1).Resize(3, 1).Value)

    Next iCr
    
    ActiveSheet.Cells(5, 10).Resize(3, iCr - 1).Value = Application.Transpose(aBase)

End Sub

Sub Stat()

    Dim aBase
    Dim iCr As Integer
    
    iCr = 5

    ReDim aBase(1 To 3)

    For iCr = 1 To 3

        aBase(iCr) = ActiveSheet.Cells(iCr, 2).Resize(1, 5).Value

    Next iCr
    
    ActiveSheet.Cells(5, 10).Resize(iCr - 1, 5).Value = Application.Index(aBase, 0, 0)

End Sub

Private Sub UserForm_Initialize() 'Событие открытия формы FormLogbook
    
    Set GroupSheet = ThisWorkbook.Worksheets("group")            'Лист group
    Set DpdSheet = ThisWorkbook.Worksheets("dpd")                'Лист dpd
    Dim v As Variant, tabl_art As Range
    v = CStr(DpdSheet.Range("D4").Value): Set tabl_art = GroupSheet.Range("tabl_art")
    With FormLogbook.Cmb2
        .List = GetArr(GroupSheet.Range("tabl_art")) 'Загрузка данны, заполнение списка
        If tabl_art.Find(v, , xlValues, xlWhole, , , , , False) Is Nothing Then
            .AddItem v
            With tabl_art(tabl_art.Rows.Count + 1, 1)
                .NumberFormat = "@": .Value = v
            End With
        End If
        .Value = v                    'Ввод новых данных в поле комбобокса
    End With
End Sub

=СУММПРОИЗВ((ДАТАМЕС(+B1:J1;6)>=СЕГОДНЯ())*B2:J2)

Function ЦВЕТ$(ByRef r As Range, b$, iColor%)
    Dim s$, s1$
    On Error Resume Next
    If b = "КР" Then iColor = 3 Else iColor = xlNone
    s = r.Address(, , Application.ReferenceStyle, 1)
    s1 = Application.Caller.Address(, , Application.ReferenceStyle, 1)
    Evaluate "Module1.Colorize(" & s & "," & s1 & "," & iColor & ")"
    DoEvents
    ЦВЕТ = IIf(r.Interior.ColorIndex = iColor, "ГОТОВО!", "ОШИБКА!")
End Function
Function Colorize(ByRef r As Range, ByRef r1 As Range, iColor%)
    On Error Resume Next
    If Application.Caller.Address <> r1.Address Then
        r.Interior.ColorIndex = iColor
    End If
End Function

.Pattern = "<.*?>"

Private Sub Workbook_Open()
    Dim SName
    If [type(User!A1)] <> 2 Then
        Do
            SName = Application.InputBox("Введите фамилию")
            If TypeName(SName) = "String" And Not IsNumeric(SName) Then Exit Do
            SName = False
        Loop While MsgBox("Повторить ввод?", 4) = 6
        If SName = False Then
            Me.Close False
        Else
            With Me.Sheets.Add
                .Visible = 2: .Name = "User"
                .[A1] = SName: Me.Save
            End With
        End If
    Else
        MsgBox [User!A1]
    End If
End Sub

Function xxx(что-то там) as range

=РЕЗУЛЬТ(8)

Private Sub CommandButton1_Click()
    ComboBox1.Style = 0
    
    ComboBox1.Value = Range("A2").Text
End Sub

Private Sub CommandButton2_Click()
    ComboBox2.Value = Format(Range("B2").Value, "00")
End Sub

let
    Source = Table.SelectRows(Web.Page(Web.Contents("http://www.eveandersson.com/pi/digits/1000000"))[Data]{0}[Children]{0}{[Name="BODY"]}[Children],each [Name]="TABLE"),
    fn=(_)=>[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Text]?,
    Pi = Text.Clean(fn(Table.SelectRows(Source, each fn(_) <> null)){0})&Text.Repeat(" ",498),
    Digits = Table.FromRows(List.Transform(Splitter.SplitTextByRepeatedLengths(2900)(Pi),Text.ToList),List.Transform({1..2900},Text.From))
in
    Digits

Private Sub Txb2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48
            If Len(Txb2) * Txb2.SelStart = 0 Then KeyAscii = 0
        Case 49 To 57
        Case Else
             KeyAscii = 0
    End Select
End Sub

=image(JOIN("=";"https://api.qrserver.com/v1/create-qr-code/?size=185x185&ecc=L&qzone=3&format=png&data";ENCODEURL(join(" ";A2;B2;C2)));3)