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

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

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

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

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

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

Сообщений: 18

Репутация: 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

Ответить

Alex_ST Дата: Четверг, 30.01.2025, 09:12 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

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

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

2003

Проверил. Ничего лишнего, что не прописано в макросе, в Q11 не вставляется.

Q11=ЕСЛИОШИБКА(СУММ(--(ЧАСТОТА(ЕСЛИ('В расчёт'!$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")

Не понял, правда, зачем так сложно собирать стринг формулы, когда можно было проще:

Sub SetCellFormula2() Dim strFormula As String strFormula = "=ЕСЛИОШИБКА(СУММ(--(ЧАСТОТА(ЕСЛИ('В расчёт'!$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"")" Range("o11").FormulaLocal = strFormula End Sub

или вообще в одну строку:

Sub SetCellFormula3() Dim strFormula As String strFormula = "=ЕСЛИОШИБКА(СУММ(--(ЧАСТОТА(ЕСЛИ('В расчёт'!$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"")" Range("o11").FormulaLocal = strFormula End Sub

Но это влияет только на "обозримость" кода. А результат не изменится - формула вводится "как написано"

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

СообщениеПроверил. Ничего лишнего, что не прописано в макросе, в Q11 не вставляется.

Не понял, правда, зачем так сложно собирать стринг формулы, когда можно было проще:[vba]

[/vba]или вообще в одну строку:[vba]

[/vba]Но это влияет только на "обозримость" кода. А результат не изменится - формула вводится "как написано"

Автор - Alex_ST
Дата добавления - 30.01.2025 в 09:12

Alex_ST

Дата: Четверг, 30.01.2025, 09:20 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

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

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

2003

А по поводу ввода формулы в ячейку Н11, так Вы сначала введите в ручную правильную формулу на листе, а потом уже скопируйте её и тупо вставьте в макрос, написанный по подобию SetCellFormula3.
Формула для Н11, приведённая в Вашем примере, не работает. Исправьте её.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Pelena Дата: Четверг, 30.01.2025, 10:11 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19518

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата mariskkayes, 22.01.2025 в 14:32, в сообщении № 1 (

писал(а)):

Range("o11").FormulaLocal = strFormula

используйте не FormulaLocal, а Formula2Local

Range("o11").Formula2Local = strFormula

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

mariskkayes

Дата: Понедельник, 03.02.2025, 12:12 | Сообщение № 5

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

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

Сообщений: 18

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

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

2016

Pelena, спасибо, работает. А как в одном макросе прописать две формулы, что б каждая из формул вставлялась в разные ячейки, т.е. первая формула в Н11, а вторая в О11

MariskkA

Ответить

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

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