=ArrayFormula(QUERY(
{A2:D \ ЕСЛИ(D2:D="план"; B2:B; ЕСЛИ(D2:D="факт"; -B2:B; 0))};
"SELECT Col1, SUM(Col5)
WHERE Col1 IS NOT NULL
GROUP BY Col1
PIVOT Col3 ";
1
))function saveMessage(message){
// ваша логика парсинга сообщения. через регулярки или split()
};function doPost(e){
try{
let data = JSON.parse(e?.postData?.contents || "{}");
let messageText = String(data?.message?.text || "");
if (messageText) {
saveMessage(messageText);
};
}catch({message,stack}){
// Запись логов ошибки во внешнее хранилище
};=arrayformula(let(
author; "@ProgrammerForever";
header; "Продолжительность";
ВремяБуквами; $A$2:$A;
dd; ЕСЛИОШИБКА(REGEXEXTRACT(ВремяБуквами;"(\d+)\s+(?:дней|день|дня)");0);
hh; ЕСЛИОШИБКА(REGEXEXTRACT(ВремяБуквами;"(\d+)\s+час");0);
mm; ЕСЛИОШИБКА(REGEXEXTRACT(ВремяБуквами;"(\d+)\s+мин");0);
ss; ЕСЛИОШИБКА(REGEXEXTRACT(ВремяБуквами;"(\d+)\s+сек");0);
time; dd + hh/24 + mm/(24*60) + ss/(24*60*60);
vstack( header; ЕСЛИ(ВремяБуквами="";;time))
))Sub ProcessFilesInDirectory()
Dim folderPath As String
Dim fileName As String
Dim wb As Workbook
' Путь к директории
folderPath = "C:\temp\"
' Получаем первый файл с расширением .xlsx в директории
fileName = Dir(folderPath & "*.xlsx")
' Перебираем все файлы в директории
Do While fileName <> ""
' Открываем файл
Set wb = Workbooks.Open(folderPath & fileName)
' Вызываем функцию macros3
Call macros3()
' Сохраняем и закрываем файл
wb.Close SaveChanges:=True
' Получаем следующий файл
fileName = Dir
Loop
End Sub=arrayformula(let(
author; "@ProgrammerForever";
keys; $A$2:$A;
values; $B$2:$B;
uni_keys; sort(unique(FILTER(keys;keys<>"")));
joined_values; byrow(uni_keys; lambda(key; ЕСЛИОШИБКА(JOIN("; "; filter(values;keys=key)))));
hstack(uni_keys;joined_values)
))=индекс(ваша_формула;1;1)=chooserows(ваша_формула;1)
=ArrayFormula(СУММ(BYCOL(A2:Z;LAMBDA(x;ЕСЛИ(СУММ(x)>0;1;0)))))Dim series As Series
For Each series In chartObj.Chart.SeriesCollection
series.MarkerStyle = 8 ' Круглый маркер
Next series=СУММ(ArrayFormula({B2:B11*ЕСЛИОШИБКА(ВПР(A2:A11;{E2:E11\F2:F11};2;0))}))=SPLIT("номер, сумма, ИД терминала"; ", ")
=REGEXEXTRACT("номер, сумма, ИД терминала";"(.*?)\s+\,(.*?)\s+\,(.*?)")