=ArrayFormula(let(
symbols;LAMBDA(from;to;ArrayFormula(JOIN(;СИМВОЛ(SEQUENCE(abs(КОДСИМВ(to)-КОДСИМВ(from))+1;1;МИН(КОДСИМВ(from);КОДСИМВ(to)))))));
alphabetEn;symbols("a";"z")&symbols("A";"Z");
alphabetRu;symbols("а";"я")&symbols("А";"Я")&"ёЁ";
specString;"!""№;%:?*()_+@#$%^&*\|/.,-='{}[]<>`~";
numbers;"0123456789";
generate;lambda(fromText;count;join("";ПСТР(fromText;ОКРУГЛВВЕРХ(randarray(count)*ДЛСТР(fromText));1)));
letterEn;lambda(count;ЕСЛИ(count<=0;"";generate(alphabetEn;count)));
letterRu;lambda(count;ЕСЛИ(count<=0;"";generate(alphabetRu;count)));
spec; lambda(count;ЕСЛИ(count<=0;"";generate(specString;count)));
numeric; lambda(count;ЕСЛИ(count<=0;"";generate(numbers ;count)));
shuffle;lambda(txt;join("";array_constrain(SORT({ПСТР(txt;SEQUENCE(ДЛСТР(txt));1)\RANDARRAY(ДЛСТР(txt))};2;1);ДЛСТР(txt);1)));
passw;lambda(enCount;ruCount;specCount;numsCount;
shuffle( letterEn(enCount) & letterRu(ruCount) & spec(specCount) & numeric(numsCount) )
);
passw(2;2;2;2)
))
Sub Replace_Dates()
Dim i As Long
Dim v As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
v = Cells(i, 1).Value
v = Replace(v, " января", ".1.")
v = Replace(v, " февраля", ".2.")
v = Replace(v, " марта ", ".3.")
v = Replace(v, " апреля ", ".4.")
v = Replace(v, " мая ", ".5.")
v = Replace(v, " июня ", ".6.")
v = Replace(v, " июля ", ".7.")
v = Replace(v, " августа ", ".8.")
v = Replace(v, " сентября ", ".9.")
v = Replace(v, " октября ", ".10.")
v = Replace(v, " ноября ", ".11.")
v = Replace(v, " декабря ", ".12.")
v = Replace(v, " года", "")
Cells(i, 1).Value = CDate(v)
Next i
End Sub
по идее, там должен появиться переменный ток
зарядник при обычном подключении от источника переменного тока создаёт небольшую нагрузку даже без подключённого к нему устройства.
Sub TestCall()
Call (Sub() Console.Write("Hello"))()
Call New TheClass().ShowText()
End Sub
Class TheClass
Public Sub ShowText()
Console.Write(" World")
End Sub
End Class
/**
* Возникает при изменении ячейки
* @param {e} event event-объект https://developers.google.com/apps-script/guides/triggers/events?hl=ru
* [ ProgrammerForever (c) 2020 ]
* @return Не возвращает значений
*/
function onEdit(event) {
var ss = event.source.getActiveSheet();//Текущий лист
var address = event.range.getA1Notation().toUpperCase();//Адрес ячейки
var row = event.range.getRow(); //Номер строки
var col = event.range.getColumn(); //Номер столбца
var newValue = event.value; //Новое значение
var oldValue = event.oldValue; //Старое значение
var userEmail = event.user.getEmail();//Пользователь(работает только при вручную назначенном триггере)
if((ss.getName==="Лист1")&&(row>=2)&&(col===4)&&(newValue ==="Готово")){ // Все проверки
// Что-то делаем
};
};