Sub AddSharpToBoldText()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Font.Bold = True Then
cell.Value = "# " & cell.Value
End If
Next cell
End Sub
Sub AddMinusSignToRedText()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Font.Color = RGB(255, 0, 0) Then
cell.Value = "- " & cell.Value
End If
Next cell
End Subconst whiteListSheetNames = [`Лист1`,`Лист2`];
const whiteListRangeNames = [`H1`, `H2`];
function onEditTrigger(e) { // установить триггер на "Редактирование". Простой onEdit имеет меньше прав
let sheet = e.source.getActiveSheet();
let address = e.range.getA1Notation().toUpperCase();
let row = e.range.getRow();
let col = e.range.getColumn();
let newValue = e.value;
let oldValue = e.oldValue;
if ((whiteListSheetNames.includes(sheet.getName())) && (whiteListRangeNames.includes(address))) { // Проверка по вкусу
// сортировка
};
};function translitEu(word, charPositions=[1,3]){
//...
for (var i = 0; i < word.length; ++i ) {
if (converter[word[i]] && charPositions.includes(i)){
answer += converter[word[i]][Math.floor(Math.random()*converter[word[i]].length)];
} else {
answer += word[i];
}
}
// ...
};arr = [];
(arr.length - 1) = -1
arr[arr.length - 1] = arr[-1] = undefined
arr[arr.length - 1].length = undefined.length = Error=AND(B30>=5;TRUE;C30>=5;TRUE;D30>=5;TRUE;E30>=5;TRUE;F30>=5;TRUE;FALSE)=AND(B30>=5;C30>=5;D30>=5;E30>=5;F30>=5)
2 строка = A2 = R2C1
3 строка = B2 = R2C2
4 строка = C2 = R2C3
5 строка = A2 = R3C1
6 строка = B2 = R3C2
7 строка = C2 = R3C3=ДВССЫЛ("R"&(ОКРУГЛВНИЗ((СТРОКА()-2)/3)+2)&"C"&(ОСТАТ(СТРОКА()-2;3)+1);0)=LAMBDA(r;c;ДВССЫЛ("R"&r&"C"&c;0))
(
ОКРУГЛВНИЗ((СТРОКА()-2)/3)+2
;ОСТАТ(СТРОКА()-2;3)+1
)=(IF($G1:$G<=ДатаНачала;1;0)+IF($G1:$G>=ДатаОкончания;1;0))>0=(IF($G1:$G>=ДатаНачала;1;0)*IF($G1:$G<=ДатаОкончания;1;0))=1[А-Яа-яЁё]+\s*[А-Яа-яЁё .,]*