Sub Latkir()
    If Not Selection.Information(wdWithInTable) Then Exit Sub
    Select Case Selection.Rows(1).index
        Case 1 To 3, 8 To 11
            ActivateKeyboardLayout kb_lay_ru, 0
        Case 4 To 7
            ActivateKeyboardLayout kb_lay_en, 0
    End Select
End Sub

=ТЕКСТ('расчет еу'!G5;"""Недостача составляет ""0_ ""долла"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ('расчет еу'!G5-11;100);9);10);"[<1]р;[>4]ров;ра")&""",_ 00_ ")&"цен"&ТЕКСТ(ОСТАТ(МАКС(ОСТАТ(100*ОКРУГЛ(ОСТАТ('расчет еу'!G5;1);2)-11;100);9);10);"[<1]т;[>4]тов;та")

CreateObject("Wscript.Shell").run "cmd /c taskkill /f /im outlook.exe & start outlook.exe", 0, false

=--ЗАМЕНИТЬ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(D8;ПОИСК(",";D8&",";ПОИСК("texturef";D8))-1);"texturef";ПОВТОР(" ";99));99));"-";ПОВТОР(" ";99));99;99))&0;2;;",")

Private Sub CommandButton1_Click()
    If TextBox7 <> "" Then
        Select Case True
            Case TextBox1 & ComboBox3 = ""
                MsgBox "Заполните № заявки, либо выберите особую услугу"
            Case ComboBox3 & TextBox10 = "монтаж", ComboBox3 & TextBox10 = "проектирование"
                MsgBox "Заполните участок"
            Case TextBox1 <> "" And ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 = "", _
                 ComboBox3 & TextBox2 & ComboBox5 & ComboBox1 & ComboBox4 & TextBox1 = "конс."
                MsgBox "Заполните все поля"
            Case Else
                dodav
        End Select
    Else
        MsgBox "Не указана дата"
    End If
End Sub

=СЧЁТЕСЛИ('2017'!$D$1:$D$27;A2)

=СЧЁТЕСЛИ('2017'!$G$1:$G$27;A2)

=Ч(D1)+B2-C2

Sub dd()
    Dim a As Variant
    With [Таблица1].ListObject
        .ListRows.Add 1
        With .ListColumns("Столбец2").DataBodyRange
            .Cells(1).Clear
            .Formula = .Formula
        End With
        .ListRows(1).Delete
    End With
End Sub

Sub d()
    Dim r1 As Range
    Application.ScreenUpdating = 0: Application.EnableEvents = 0
    With Selection
        .UnMerge
        On Error GoTo er
        Set r1 = .RowDifferences(.Find(Empty))
        r1.EntireRow.Hidden = 1
        .SpecialCells(12).EntireRow.Delete
        .EntireRow.Hidden = 0
        r1.EntireColumn.Hidden = 1
        .SpecialCells(12).EntireColumn.Delete
        .EntireColumn.Hidden = 0
    End With
er: Application.ScreenUpdating = 1: Application.EnableEvents = 1
End Sub

=СУММ(ПРОСМОТР(("1."&A1)+СТРОКА($1:$366)-1;--(A$2:L$2&A1);A$3:L$3/ДЕНЬ(КОНМЕСЯЦА(A$2:L$2&A1;0)))*МУМНОЖ(-(("1."&A1)+СТРОКА($1:$366)-{0;1}<=B6:C6);{1:-1}))

=СУММЕСЛИМН(B7:B46;C7:C46;">="&B2-B1*30;C7:C46;"<="&B2)

Application.AutoCorrect.AutoFillFormulasInLists=False

[Откуда].Copy [Куда]

[Откуда].Copy: [Куда].PasteSpecial -4123

Dim a(1) As Variant
    With [Откуда]
        a(0) = .Resize(1).Formula
        a(1) = Intersect(.Cells, .Offset(1)).Formula
    End With
    With [Куда]
        Intersect(.Cells, .Offset(1)).Formula = a(1)
        .Resize(1).Formula = a(0)
    End With

select distinct * from (SELECT * from `Лист1$` in 'D:\папка\другая книга.xlsm' 'Excel 12.0 xml;hdr=no;'  union all select * from`Лист1$` in 'D:\папка\2963331.xlsx' 'Excel 12.0 xml;hdr=no;' where F2 is not null)

Public WithEvents QT As QueryTable
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    QT.CommandText = "select distinct * from (SELECT * from `Лист1$` in '" & _
        ThisWorkbook.FullName & "' 'Excel 12.0 xml;hdr=no;'  union all select" & _
        " * from`Лист1$` in '" & ThisWorkbook.Path & "\" & [ИмяФайла] & "' " & _
        "'Excel 12.0 xml;hdr=no;' where F2 is not null)"
End Sub

Private Sub Workbook_Open()
    Set Лист1.QT = ThisWorkbook.Connections("запрос").Ranges(1).ListObject.QueryTable
End Sub