Private Sub CommandButton1_Click()
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        
    Dim t#: t = Timer: Do: DoEvents: Loop While (Timer - t) < 10
    
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

=СУММ(Ч(СЧЁТЕСЛИ('Все звонки'!C3:C202;Неуспешные!C3:C21)=1))

Sub pt()
    Dim s As Variant
retry:
    s = InputBox("vvedi chislo")
    If Not IsDate(s) Then
        If MsgBox("Введены данные в неверном фогрмате." & vbLf & "Повторить?", _
                  vbExclamation Or vbYesNo, "Ошибка") = vbYes Then
            GoTo retry
        Else: Exit Sub
        End If
    End If
    s = CDate(Format(s, "MM DD YYYY"))
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
        .ClearAllFilters
        .PivotFilters.Add xlSpecificDate, , s
    End With
End Sub

="Коэф. "&ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Коэф";$K$2;"Признак 1";B3;"Признак 2";B4;"Признак 3";B5)

=ЕСЛИОШИБКА(ПРОСМОТР(1;ПОИСК(Люди!$A$2:$A$14;База!A2)^0;Люди!$B$2:$B$14);"")

=СУММ(СЧЁТЕСЛИ($A3:$S3;"*/"&ПСТР(A3;ПОИСК("|";ПОДСТАВИТЬ(A3;"/";"|";СТРОКА($1:$10)))+1;3)&"*"))>(ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"/";)))

=НЕ(ОСТАТ(A1;5))

=ИЛИ(СТОЛБЕЦ()=ЯЧЕЙКА("столбец");СТРОКА()=ЯЧЕЙКА("строка"))

Private Sub Worksheet_SelectionChange(ByVal target As Range)
      ActiveCell.Calculate
End Sub

=МИН(650;ОКРВВЕРХ(I6-150;50)+100)*10