Сцепить формулу

@OLEGOFF · Регистрация: 27.02.2013

Студворк — интернет-сервис помощи студентам

Уважаемые форумчане.Помоите разобраться в одном вопросе.
Необходимо собрать из отдельных ячеек формулу.
Текст формулы разнесен по ячейкам М2:СХ2.Затем с помощью функции "СЦЕПИТЬ" в ячейках M3,AG3,BU3 получаем текст,который ссумируется("Сцепить") в ячейке B2.
После этого текст из ячейки В2 переносится в ячейку А2 при помощи "Специальная вставка" "Значения".
Но это выражение не воспринимается как формула пока не войдешь в окно формул и обратно.
Дальше по макросу у меня идет протяжка формулы вниз.
В чем ошибка?И как ее устранить?

@Hugo121 · 25.11.2015, 20:46

И где макрос?
Вообще так не глядя - думаю поможет formulalocal

@OLEGOFF · 25.11.2015, 20:50 **[ТС]**

Так в ячейке А2 формула не акивируется,вот в чем загвоздка. А макрос то уже дальше для протягивания формулы
Посмотрите файл

@Hugo121 · 25.11.2015, 20:51

Так этим макросом и активируйте.

@OLEGOFF · 25.11.2015, 21:01 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Макрос1()
 
    Range("A2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC3<=0,(1+RC3)/(1+RC3^2)^(1/3),IF(RC3<1,RC3^3*RC3/5*RC3^2,ABS(2-RC3)^(1/3)))"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A29"), Type:=xlFillDefault
    Range("A2:A29").Select
    Range("A30").Select
End Sub

Да,так работает.Но мне каждый раз надо обрабатывать другую формулу.
Как ее вносить в код автоматически из ячейки В2? и присваивать ячейке А2

@Hugo121 · 25.11.2015, 21:08

Попробуйте

Visual Basic
1
2
3
4
5
6
Sub Макрос2()
    With Range("A2")
        .FormulaLocal = [b2].Value
        .AutoFill Destination:=Range("A2:A29"), Type:=xlFillDefault
    End With
End Sub

Не могу проверить - Эксель английский, лень возиться переводить.

@OLEGOFF · 25.11.2015, 21:14 **[ТС]**

Hugo121,большое спасибо за помощь.Помогло.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	25.11.2015, 20:46
	И где макрос? Вообще так не глядя - думаю поможет formulalocal 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	25.11.2015, 20:50 [ТС]
	Так в ячейке А2 формула не акивируется,вот в чем загвоздка. А макрос то уже дальше для протягивания формулы Посмотрите файл 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	25.11.2015, 20:51
	Так этим макросом и активируйте. 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	25.11.2015, 21:14 [ТС]
	Hugo121,большое спасибо за помощь.Помогло. 0

Сцепить формулу

Решение