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

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

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

Уважаемые форумчане.Помоите разобраться в одном вопросе.
Необходимо собрать из отдельных ячеек формулу.
Текст формулы разнесен по ячейкам М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

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

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,большое спасибо за помощь.Помогло.

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

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

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	25.11.2015, 20:51	4
	Так этим макросом и активируйте. 0

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

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

Решение