Sub Действие()
    ' Укажите координаты, где нужно выполнить щелчок
    Dim clickX As Long
    Dim clickY As Long
    clickX = -1900 ' Например, 500 пикселей по горизонтали
    clickY = 1080 ' Например, 300 пикселей по вертикали
    
    ' Вызываем процедуру для выполнения щелчка
    ClickAt clickX, clickY
End Sub

Function ifs(ParamArray args() As Variant) As Variant
    For I = LBound(args) To UBound(args) Step 2
        If args(I) Or (IsNumeric(args(I)) And args(I) <> 0) Then
            ifs = args(I + 1)
            Exit For
        End If
    Next
End Function

=ЕСЛИМН(условие1; значение1; условие2; значение2; условиe3; значение3; ...; значение если ни одно условие не удовлетворяется)

=ЕСЛИМН(условие1; значение1; условие2; значение2; условиe3; значение3)

='+'='–'

=СУММЕСЛИМН(F:F;МЕСЯЦ(A:A);4)

=СУММЕСЛИМН(F:F;МЕСЯЦ(A:A)=4)
=СУММЕСЛИМН(H1;A:A;МЕСЯЦ(A:A)=4)

=ДВССЫЛ("'\\192.168.102.3\ревизоры\Проверка внутренних ревизий\2023\Иваново\"&МЕСЯЦ(ДАТАЗНАЧ("1 " &Месяц& " 2000"))&". "&Месяц&" - готово\Проверка\[Ведомость по кассе.xls]Sheet1'!$G$11";ИСТИНА)

{=ПОИСКПОЗ("Накладная"&"*"&F50;Лист1!B:B&Лист1!F:F;0)}

=ПОИСКПОЗ("*"&M3&"*";L:L;0)

строка выписки 145
реализация 138

Function ПроверитьСсылку(Ссылка As Range) As Variant
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
Dim result As Variant
ReDim result(1 To Ссылка.Rows.Count, 1 To 1)

Dim i As Long
For i = 1 To Ссылка.Rows.Count
    Dim cellValue As String
    cellValue = Ссылка.Cells(i, 1).Value
    
    If Len(cellValue) > 0 And Dir(cellValue, 63) <> "" Then
        result(i, 1) = True
    Else
        result(i, 1) = False
    End If
Next i

ПроверитьСсылку = result
End Function

=АГРЕГАТ(15;6;СТРОКА('Волков Владимир'!BA:BA)/'Волков Владимир'!BA:BA<>'Волков Владимир'!BK:BK;1)

Sub ЦветТекста()
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    For Each cell In Range(Cells(7, 1), Cells(lLastRow - 2, 1)).Cells
        If cell.Font.Color = Range("I4").Interior.Color Then cell.EntireRow.Ungroup
    Next
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Application.ScreenUpdating = True
End Sub

=ГИПЕРССЫЛКА(ЛЕВСИМВ(ЯЧЕЙКА("имяфайла";Лист1!$A$1);ПОИСК("]";ЯЧЕЙКА("имяфайла";Лист1!$A$1)))&ТЕКСТ("Свод";)&"!A1";1)

Sub Скрытие()

'Reference the table range
Dim tableRange As Range
Set tableRange = tableSheet.Range("B20:B27")

'Iterate through each sheet in the workbook
For Each Sheet In ThisWorkbook.Sheets
    'Iterate through each cell in the table range
    For Each cell In tableRange.Cells
        'Check if the sheet name matches the cell value
        If Sheet.Name = cell.Value Then
            'Hide the sheet
            Sheet.Visible = xlSheetHidden
        End If
    Next cell
Next Sheet
End Sub

=ИНДЕКС(Список;НАИМЕНЬШИЙ(ЕСЛИ(ЕСЛИОШИБКА(ПОИСК($C$6;Список);0)>0;СТРОКА(Список)-СТРОКА($A$9);30);СТРОКА(ДВССЫЛ("A1:A"&ЧСТРОК(Список)))))

Sub HideByConditionalFormattingColorProvider()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Columns(1).Cells
        If cell.DisplayFormat.Interior.Color = Range("L6").DisplayFormat.Interior.Color Then cell.EntireRow.Group
    Next
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Application.ScreenUpdating = True
End Sub