=(-1)^БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));31)*(БИТ.ИЛИ(БИТ.И(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));8388607);8388608)*2^(БИТ.И(БИТ.СДВИГП(ШЕСТН.В.ДЕС(ПСТР(A3;3;8));23);255)-127-23))

План    =ЕСЛИ(Лист1!$C$4:$L$4="План";Лист1!$C$5:$L$5;НД())

Факт  =ЕСЛИ(Лист1!$D$4:$M$4="Факт";Лист1!$D$5:$M$5;НД())

"C:\program files (x86)\Notepad++\notepad++.exe" -multiInst -nosession

//sheet//@name

//*[@Id="rId1"]/@Target

//conditionalFormatting//*[text()="F$21=1"]

//dxf[85]

let
    Source = List.Buffer(List.Transform(Table.ToColumns(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]),List.RemoveNulls)),
    fn     = (n,k,optional i, optional j)=>
             let
                 i   = if i=null then 0 else i,
                 j   = if j=null then 0 else j,
                 tbl = Table.FromRecords(
                           List.TransformMany(
                    {i..n-k+j},
                    each Source{_},
                    (a,b)=>[x=b]&(if j<k-1 then [y=@fn(n,k,a+1,j+1)] else [])
                           )
                       )
             in
                 if j<k-1
                     then Table.ExpandTableColumn(
                         tbl,
                         "y",
                         {"x"}&List.Transform({j+1..k-2}, each "x"&Text.From(_+1)),
                         List.Transform({j+1..k-1}, each "x"&Text.From(_))
                     )
                 else tbl,
    ret    = fn(List.Count(Source),4)
in
    ret

=РАЗНДАТ(ДАТАМЕС($AI4;-F4*12-G4)-H4;$AL4;{"y";"ym";"md"})

=Transpose(Query(ARRAYFORMULA(iferror(--substitute(REGEXREPLACE(IMPORTHTML("http://www.pogodaiklimat.ru/forecast/28698_7.htm","table",0)&"","(\d+)(\.)(\d+)\x0a.*$","$3/$1/"&year(now())),"+",""),)),"select Col1, Min(Col4),Max(Col4),Avg(Col4),Avg(Col7) group by Col1 label Col1 'Дата',Min(Col4) 'Минимальная температура', Avg(Col4) 'Средняя температура',Max(Col4) 'Максимальная температура',Avg(Col7) 'Среднее количество осадков'  format Col1'dd.MM.YYYY'"))

=ArrayFormula(Transpose(Query(ArrayFormula({Arrayformula(CEILING((Row(A1:Index(A:A,Rows(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3 ))))-1)/4,1)),iferror(--REGEXREPLACE(IMPORTHTML("https://www.yr.no/place/Russia/Omsk/Omsk/long.html","table",3)&"","(\d{2})(\/)(\d{2})\/(\d{4})|[^\d\/:.]|.*\–","$3$2$1$2$4"),)}),"Select max(Col2),Min(Col5),Max(Col5),Avg(Col5),Avg(Col6) where Col1>0 group by Col1 label Max(Col2) 'Дата',Min(Col5) 'Минимальная температура', Avg(Col5) 'Средняя температура',Max(Col5) 'Максимальная температура', Avg(Col6) 'Среднее количество осадков' format Max(Col2) 'dd.MM.YYYY'")))

=Transpose(Query(ArrayFormula({Int((Row(1:20)-1)/4)+Today(),(Array_Constrain(Split(Importxml("https://rp5.ru/Погода_в_Омске","(((//table[@id='forecastTable'])[1]/tr[.//*[contains(text(),'Температура')]]/td[starts-with(@class,'n ')])[1]/preceding-sibling::td)[last()]/following-sibling::td/div[@class='t_0']"),"+"),20,1))}),"Select Col1,Min(Col2),Max(Col2),Avg(Col2) group by Col1 label Col1 'Дата',Min(Col2) 'Минимальная температура', Avg(Col2) 'Средняя температура',Max(Col2) 'Максимальная температура' format Col1 'dd.MM.YYYY'"))

=ПРОСМОТР(ABS(A-B),{0,.001,3.001},{"Идеально равен","Оправдано","Не оправдано"})

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not CBool(Application.CutCopyMode) Then Application.Calculate
End Sub

Function ПримечаниеТекст(Ячейка As Range, Текст As String)
    On Error Resume Next
    Ячейка.AddComment.Visible = False
    Ячейка.Comment.Text Текст
End Function