=ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=--ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=ВЫЧИСЛИТЬ(Лист1!$D$1)+(ТДАТА()*0)

Sub НижПодч_Описание()
    Dim wb As Workbook
    Dim lc&
    'проверяем наличие видимых окон книг в текщем экземпляре
    For Each wb In Application.Workbooks
        If wb.Windows(1).Visible Then
            lc = lc + 1
        End If
    Next
    
    If lc = 0 Then
        Set wb = Workbooks.Add(1)
    End If
    Application.MacroOptions _
            Macro:="НижПодч", _
            Description:="Если ячейка не пустая, ставит '_' и текст", _
            Category:="MIT-Excel", _
            ArgumentDescriptions:=Array( _
                "ячейка для проверки", _
                "текст или ссылка на ячейку, которая будет отображаться как текст после '_'")
    'можно и закрыть, но я бы оставил - запустили надстройку и создается новая книга
    'это удобно и более правильно - пустое окно обычно всех пугает :)
    'но если хочется пустое окно - то раскомментируйте
'    If lc = 0 Then
'        wb.Close 0
'    End If
End Sub

=ЕСЛИОШИБКА(ИНДЕКС('ВВОД ДАННЫХ!'!B$2:C$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));1)&" "&ИНДЕКС('ВВОД ДАННЫХ!'!B$2:C$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));2);"")

=ЕСЛИОШИБКА(ИНДЕКС('ВВОД ДАННЫХ!'!B$2:J$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));4);"")

=ФИЛЬТР('ВВОД ДАННЫХ!'!B2:B715;'ВВОД ДАННЫХ!'!J2:J715="Да")&" "&ФИЛЬТР('ВВОД ДАННЫХ!'!C2:C715;'ВВОД ДАННЫХ!'!J2:J715="Да")

Private Sub UserForm_Initialize()
    Dim am, xm, ad, lr&
    am = Array("восс-е исходных значений ДИ", "восс-е контекст. меню листа", "визуал-я 1 строки прихода", "отображение скрытых имен")
    ad = Array("Func_RecNM", "Func_RecCM", "Func_RecViz", "Func_ShowImen")
    For Each xm In am
        Me.Service_macros.AddItem xm
        Me.Service_macros.List(lr, 1) = ad(lr)
        lr = lr + 1
    Next
End Sub
'и просто при изменении берем нужный макрос из второго столбца Листбокса
Private Sub Service_macros_Change()
    ad = Service_macros.List(Service_macros.ListIndex, 1)
    Application.Run "'" & ThisWorkbook.Name & "'!" & ad
End Sub

With ThisWorkbook.Names.Add("testname2", RefersTo:="=СУММ(Лист1!$A$1,Лист1!$A$2)")
    .RefersToLocal = "=СУММ(Лист1!A1,Лист1!A2)"
End With

a = #14/01/2026#

Format("14/01/2026","dd.MM.yyyy")

Format(date,"dd\/MM\/yyyy")

Replace(Format$(Date, "dd.MM.yyyy"),".","/")

Replace(Format$(Date, "ddd dd.MM.yyyy"),".","/")

c = Format("dd/MM/yyyy")

a = Date

Sub test()
Dim a As Date, b As Boolean, c As Date, ct As Date
a = FileDateTime("C:\Windows\notepad.exe")
b = IsDate(a)
c = DateSerial(Year(a), Month(a), Day(a))
ct = TimeSerial(Hour(a), Minute(a), Second(a))
End Sub

b = IsDate(Cstr(a))

c1 = DateValue(SCtr(a))

Sub test()
Dim a As Date, b As Boolean, c As Date, ct As Date
a = FileDateTime("C:\Windows\notepad.exe")
b = IsDate(a)
c = Int(a)
ct = a - c
End Sub

Sub test()
Dim a as date, b as boolean, c as date
a = FileDateTime("C:\Windows\notepad.exe")
b = IsDate(a)
c = DateValue(a)
End Sub