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

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

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

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

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

=ЕСЛИ(И(--ТЕКСТ(A8;"ч:м:с")>=--ПСТР(D3;1;5);--ТЕКСТ(A8;"ч:м:с")<=--ПСТР(D3;7;5));B8;"")

=ЕСЛИ(ИЛИ((--ТЕКСТ(A14;"ч:м:с")>=--ПСТР(P14:P23;1;5))*(--ТЕКСТ(A14;"ч:м:с")<=--ПСТР(P14:P23;7;5)));B14;"")

=ЗАМЕНИТЬ(ЛЕВБ(A2;ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{8}))-1);ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5}));СУММ(ПОИСК("+";ПОДСТАВИТЬ(A2;"-";"+";{5;6}))*{-1;1});)

function createTimeDrivenTrigger() {
    // Trigger every day at 09:00.
    ScriptApp.newTrigger('send_report_email')
        .timeBased()
        .everyDays(1)
        .atHour(9)
        .create();
}

Function UsedRng(Optional ByRef r As Range) As Range
    Set UsedRng = IIf(r Is Nothing, Application.Caller, r).Parent.UsedRange
End Function

=UsedRng(Лист1!$A$1)

Function UsedRng() As Range
    Set UsedRng = Application.Caller.Parent.UsedRange
End Function

=UsedRng()

=СУММ(ЧАСТОТА(ЕСЛИ((ВсеСтроки I:I=I2)*(ВсеСтроки A:A<>"")*(ВсеСтроки D:D>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки K:K=K2);ПОИСКПОЗ(ВсеСтроки A:A;A:A;0));СТРОКА(ВсеСтроки)-СТРОКА(K2)+1))

=СУММ(ЧАСТОТА(ЕСЛИ((Таблица1[Client]=Таблица1[@Client])*(Таблица1[AGR]<>"")*(Таблица1[Дата поступления]>=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)*(ВсеСтроки Таблица1[результат]=K2);ПОИСКПОЗ(Таблица1[AGR];Таблица1[AGR];0));СТРОКА(Таблица1)-СТРОКА(K2)+1))

Option Explicit
    
Private Sub CommandButton1_Click()
    Call sheetform
    Unload Me
End Sub
    
Sub test(ByRef arrtest#())  'Заполняем массив случайными числами из текстбокса
    ReDim arrtest(1 To Val(Tb1.Text), 1 To 2)
    
    For i = 1 To UBound(arrtest, 1)
        j = 1
        arrtest(i, j) = i ' номер итерации
        arrtest(i, j + 1) = Round(Tb1.Value * 99 * Rnd, 2) ' случайное число полученное умножением числа введенного в текстбоксе на генератор
    Next i
End Sub
    
' Выводим данные массива arrtest на новый лист после нажатия кнопки exit
    
Sub sheetform()
    Application.ScreenUpdating = False
    
    'Создаем новый лист с помощью объектной переменной (в этом случае новый лист создается строго перед активным листом и нигде больше)
    
    Dim SheetTest As Worksheet
    Dim Celltest As Range
    Dim currow As Integer ' переменная для счетчика строк
    Dim arrtest#() 'массива случайных чисел
    currow = 1
    
    Set SheetTest = Worksheets.Add
    SheetTest.Name = "test" & Sheets.Count
    Windows.Item(SheetTest.Parent.Name).DisplayGridlines = False ' убираем сетку
        
    'вставляем названия ячеек на созданный лист
    ' Заголовки столбцов
    SheetTest.Cells(currow, 1) = "№ Периода"
    SheetTest.Cells(currow, 2) = "Тестовое случайное значение"
    
    test arrtest ' вызываем процедуру заполнения массива arrtest случайными числами
    
    ' Заполняем лист данными из массива arrtest, куда мы предварительно внесли все расчетные значения ,ячейки таблицы
    With SheetTest.Cells(currow + 1, 1).Resize(UBound(arrtest, 1), UBound(arrtest, 2))
        .Columns(2).NumberFormat = "#,##0.00"
        .Value = arrtest
    End With
End Sub