Вставка формулы в две ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вставка формулы в две ячейки (Макросы/Sub)

mariskkayes

Дата: Среда, 22.01.2025, 14:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

2016

Добрый день. Необходима помощь в написании макроса вставки формул в H11
и O11. Нашёл несколько похожих вариантов, но что то не очень получается.
При использовании такого кода (смог написать только для одного столбца),
почему то добавляется знак "@" в некоторых местах, но не во всех, в
связи с чем формула не работает.

Sub SetCellFormula()
Dim strFormula As String
strFormula = strFormula & "=ЕСЛИОШИБКА(СУММ(--(ЧАСТОТА(ЕСЛИ('В
расчёт'!$B$2:$B$5000<>"""";"
strFormula = strFormula & "ЕСЛИ(('В расчёт'!$M$2:$M$5000=[@машина])*('В
расчёт'!$F$2:$F$5000=$G$3);"
strFormula = strFormula & "ПОИСКПОЗ('В расчёт'!$B$2:$B$5000;'В
расчёт'!$B$2:$B$5000;0)));СТРОКА('В расчёт'!$B$2:$B$5000)-СТРОКА('В
расчёт'!B2)+1)> 0));""0"")"
Range("o11").FormulaLocal = strFormula
End Sub

Вставляет в О11 следующее:
ЕСЛИОШИБКА(СУММ(--(ЧАСТОТА(ЕСЛИ(@'В расчёт'!$B$2:$B$5000<>"";ЕСЛИ((@'В
расчёт'!$M$2:$M$5000=[@машина])*(@'В
расчёт'!$F$2:$F$5000=$G$3);ПОИСКПОЗ(@'В расчёт'!$B$2:$B$5000;'В
расчёт'!$B$2:$B$5000;0)));СТРОКА('В расчёт'!$B$2:$B$5000)-СТРОКА('В
расчёт'!B2)+1)> 0));"0")

К сообщению приложен файл: vopros4.xlsm (88.5 Kb)

MariskkA

Ответить

Вставка формулы в две ячейки (Макросы/Sub)

Страница 1 из 1
1