=ЕСЛИОШИБКА(ИНДЕКС(Вокабуляр!$B:$B;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ(Текст!$A1;"*"&Вокабуляр!$A$2:$A$20&"*");СТРОКА(Вокабуляр!$A$2:$A$20));СТОЛБЕЦ(Текст!A1)));"")

Function Комбинации(ParamArray ParArr() As Variant) As Variant
    Application.Volatile False
    Dim ArrA(), ArrB(), ArrC(), CountArr&, x&, i&, j&
    CountArr = UBound(ParArr): ReDim ArrB(CountArr), ArrC(CountArr)
    For i = 0 To CountArr
        ArrC(i) = ParArr(i).Count: ArrB(i) = ArrC(i)
        If i > 0 Then ArrB(i) = ArrB(i - 1) * ArrB(i)
    Next
    ReDim ArrA(ArrB(CountArr) - 1, CountArr)
    For i = 0 To ArrB(CountArr) - 1
        For j = 0 To CountArr
            x = 1: If j > 0 Then x = ArrB(j - 1)
            ArrA(i, j) = ParArr(j).Cells(Int(i / x) Mod ArrC(j) + 1)
        Next
    Next
    Комбинации= ArrA()
End Function

Option Compare Database

Function Concatenate(pstrSQL As String, _
        Optional pstrDelim As String = ", ") _
        As String
    'Created by Duane Hookom, 2003
    'this code may be included in any application/mdb providing
    '   this statement is left intact
    'example
    'tblFamily with FamID as numeric primary key
    'tblFamMem with FamID, FirstName, DOB,...
    'return a comma separated list of FirstNames
    'for a FamID
    ' John, Mary, Susan
    'in a Query
    'SELECT FamID,
    'Concatenate("SELECT FirstName FROM tblFamMem
    ' WHERE FamID =" & [FamID]) as FirstNames
    'FROM tblFamily
    '
    
    '======For DAO uncomment next 4 lines=======
    '====== comment out ADO below =======
    'Dim db As DAO.Database
    'Dim rs As DAO.Recordset
    'Set db = CurrentDb
    'Set rs = db.OpenRecordset(pstrSQL)
    
    '======For ADO uncomment next two lines=====
    '====== comment out DAO above ======
    Dim rs As New ADODB.Recordset
    rs.Open pstrSQL, CurrentProject.Connection, _
    adOpenKeyset, adLockOptimistic
    Dim strConcat As String 'build return string
    With rs
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                strConcat = strConcat & _
                .Fields(0) & pstrDelim
                .MoveNext
            Loop
        End If
        .Close
    End With
    Set rs = Nothing
    '====== uncomment next line for DAO ========
    'Set db = Nothing
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, _
        Len(strConcat) - Len(pstrDelim))
    End If
    Concatenate = strConcat
End Function

SELECT *
FROM
    (SELECT
        СЧ,
        x1,
        x2,
        x3,
        Concatenate(
            "SELECT
                [КОД]
            FROM
                [Таблица2]
            WHERE
                '"&x1&"' LIKE IIF(xx1 IS NULL OR cStr(xx1)='','%',cStr(xx1)) AND
                '"&x2&"' LIKE IIF(xx2 IS NULL OR cStr(xx2)='','%',cStr(xx2)) AND
                '"&x3&"' LIKE IIF(xx3 IS NULL OR cStr(xx3)='','%',cStr(xx3))
            ORDER BY КОД"
        ) AS ИТОГ
    FROM
        Таблица1
    GROUP BY
        СЧ,
        x1,
        x2,
        x3
    ORDER BY СЧ)  AS t1
WHERE ИТОГ<>'';

=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2))/25^{1;1;1;0})/60^{2;1;0;0};60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")

=ТЕКСТ(СУММ(ОСТАТ(ОТБР(ОСТАТ(ОТБР(СУММПРОИЗВ(ТЕКСТ(ПОДСТАВИТЬ(ТЕКСТ(A10:B10;"00\:00\:00\,00");":";",";3);"[с]")*25+ПРАВБ(A10:B10;2);{-1;1})/25^{1;1;1;0})/60^{2;1;0;0};9^9^{0;0;0;1}*60))*10^{6;4;2;0};9^9^{1;1;1;0}*25));"00\:00\:00\:00")

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.[B:B]) Is Nothing Then Exit Sub
    If IsError(Application.Match(Target, Лист2.Range( _
        Target.Offset(, -1)), 0)) Then Exit Sub
    Dim sh As Worksheet, Name As String * 31
    Name = Application.Trim(Target.Offset(, -1) & ", " & Target)
    On Error Resume Next
    With Worksheets
        .Item(Name).Activate
        If Err = 0 Then Exit Sub
        .Add(, .Item(.Count)).Name = Name
    End With
End Sub

Private FSel As ADODB.Recordset

Private FSel As object

If FSel Is Nothing Then Set FSel = New ADODB.Recordset: FSel.CursorLocation = adUseClient

If FSel Is Nothing Then Set FSel = createobject("ADODB.Recordset"): FSel.CursorLocation = 3

=ЕСЛИ(СТРОКА(A1)>ЧИСЛСТОЛБ(Таблица1)^ЧСТРОК(Таблица1);НД();МУМНОЖ(Ч(СМЕЩ(Таблица1;ОСТАТ(ЦЕЛОЕ((СТРОКА()-1)/ЧСТРОК(Таблица1)^(СТОЛБЕЦ(Таблица1)-1));ЧСТРОК(Таблица1));СТОЛБЕЦ(Таблица1)-1));ТРАНСП(СТОЛБЕЦ(Таблица1))^0))

    With ActiveSheet.PageSetup        
        .Zoom = False        
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

=ТЕКСТ(СУММ(ТЕКСТ(ЧАС(A3+{0;"1:"});"[=0]24")*10^{6;2});"00\:00-00\:00")

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("G9,G11,G13,G15,G17,G19,G21,G23,G27,G33,G35,G37,G39,G41,G43,G45,G47,G49,G51,G53,G55,G57").Locked = True
    Range("G59,G61,G63,G65,G67,G69,G73,G75,G77,G79,G81,G83,G85,G87,G89,G90,G92,G94,G96,G98,G100,G102,G104").Locked = True
    Range("G108,G110,G112,G114,G116,G118,G120,G122,G124,G126,G128,G130,G132,G134,G136,G138,G140,G142,G145,G147,G149,G151,G153").Locked = True
    Dim reply As Integer
    reply = MsgBox("Вы указали план на следующую неделю?", vbYesNo, "Запрос на продолжение")
    If reply = vbNo Then
        MsgBox "Укажите плановые задания на следующую неделю"
        Cancel = True
        Application.Goto [K9], True 'пользователь оказывается в ячейке K9
    ElseIf reply = vbYes Then Exit Sub
    End If
End Sub

=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{-30;0;30}-I7);{1:1:1})<=90)

=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)-{30;0}-I7);{1:1})=30)

=ИЛИ(МУМНОЖ(ABS(ДАТАМЕС(СЕГОДНЯ();-{45:20}*12)+{30;0}-I7);{1:1})=30)