Необходимо перенести формулу ИЗ ячейки В макрос

@skillblaze · Регистрация: 27.12.2015

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

Т.е
например в ячейке написали х+у
во второй и третьей ячейке значения икса и игрика
Каким оператором можно засунуть это формулу из ячейки в vba, чтобы далее можно было в вба работать с этой формулой. рассчитать например. необходимо именно такая логика, для того, чтобы удобно менять формулы, а не лесть в код.
И напишите, пожалуйста, кратенький пример.

@OLEGOFF · 27.12.2015, 23:33

skillblaze,посмотрите файл.В нем решается подобная задача для построения графика

@skillblaze · 27.12.2015, 23:52 **[ТС]**

Ух, что-то там как-то сложно написано. не понятно что к чему. и там как я понял, нужно вводить в появляющемся окне, а мне хотелось бы из ячейки. можете конкретней помочь?

@OLEGOFF · 27.12.2015, 23:55

Сейчас попробую
Там в Inputbox вводятся формулы и по ним строятся графики.Идея заключается в том,что пишется обычная формула с иксами,которая раскладывается на составляющие,а затем собирается уже в виде ссылок на ячейки.

@skillblaze · 27.12.2015, 23:57 **[ТС]**

OLEGOFF, ждус. заранее спасибо

@OLEGOFF · 28.12.2015, 00:11

Посмотрите ячейку В3,там цвет текста поменяйте чтобы видно было.Из этой ячейки текст преобразуется в формулу в ячейке А4 при помощи кода

Visual Basic
1
2
3
4
 With Range("A4")
        .FormulaLocal = [b3].Value
        .AutoFill Destination:=Range("A4:A1000"), Type:=xlFillDefault
    End With

Ну и протягивается по столбцу

@skillblaze · 28.12.2015, 00:17 **[ТС]**

OLEGOFF, но мне же нужно достать из ячейки формулу (пусть x+y), а потом чтобы вба посчитал её. как это сделать? не могу понять что дальше делать

@OLEGOFF · 28.12.2015, 00:19

Приложите файл с примером

@skillblaze · 28.12.2015, 00:29 **[ТС]**

Добавлено через 4 минуты
Понятно задача?
Не знаю, какой файл с примером скинуть, нету ничего) просто нужно для дальнейшего мне решить эту проблему

Добавлено через 2 минуты
нужно достать формулу из ячейки х+у ( х и у тоже из ячеек) и посчитать z= x+y в самом вба, чтобы потом работать с я

@OLEGOFF · 28.12.2015, 00:32

Если формула уже находится в ячейке,то она уже что-то подсчитала,т.к. она ссылается на другие ячейки.И какой смысл копировать формулу в код,если достаточно взять результат из этой ячейки

@Казанский · 28.12.2015, 00:38

Сообщение от skillblaze

Не знаю, какой файл с примером скинуть, нету ничего

Подумайте, составьте. Потому что вряд ли Вы сможете адаптировать чужой пример к своей задаче. Ну вот, пробуйте, меняйте формулу и значения х, у.

Visual Basic
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Application.EnableEvents = False
    Range("B1").Value = Evaluate(Range("A1").Value)
    Application.EnableEvents = True
  End If
End Sub

@skillblaze · 28.12.2015, 00:42 **[ТС]**

OLEGOFF, кароче. я пишу метод сканирования на вба, и он перебирает множество иксов. поэтому для каждого икса мне нужно пересчитать мою функцию. поэтому мне необходимо достать формулу типа f(x1,x2,x3) из ячейки ну и возможность посчитать её. т.е в ячейке будет написано только формула например х+у без всяких равно и т.п

@skillblaze · 28.12.2015, 00:45 **[ТС]**

вот тут y1 и y2 формулы записаны вручную. а нужно чтобы брались из ячейки

@Казанский · 28.12.2015, 00:57

skillblaze, еще Программа должна уметь распознавать функции, записанные в TextBox

@skillblaze · 28.12.2015, 01:00 **[ТС]**

Казанский, а можете адаптировать то, что там написано к моему? или минимально объяснисть что к чему. а то я немного далековат от этого

@Казанский · 28.12.2015, 01:53

skillblaze, постараюсь, но вообще ваш код внушает священный ужас

Вы что-нибудь слышали про массивы, циклы?
Вот, вынес формулы для y1 и y2 на лист. Работает, и результат тот же, НО! Время увеличилось с 5 секунд до 1 мин 38 секунд

Так с ранним связыванием, а с поздним было больше 2 мин.
Это плата за "интерактивность".
Вообще, опишите задачу словами. Возможно, найдется более подходящий инструмент, например "Поиск решения".

@skillblaze · 28.12.2015, 02:24 **[ТС]**

Казанский, знаком с циклами) однако, не придумал решения с ними. этот метод мне показался легче, через if и метки проще ходить по алгоритму. суть заключается в том, чтобы найти иксы, при которых будет выполняться критерии ( y1 и y2 в заданном диапозоне) и наименьшая себестоимость ( в данном случает х1*с1+х2*с2+х3*с3). спасибо, то что вы написали подошло. но, вот время капец как увеличилось. как можно исправить? писать через циклы? если я скину фото алгоритма, сможете помочь улучшить код?)

@Казанский · 28.12.2015, 02:58

Сообщение от skillblaze

суть заключается в том, чтобы найти иксы, при которых будет выполняться критерии ( y1 и y2 в заданном диапозоне) и наименьшая себестоимость ( в данном случает х1*с1+х2*с2+х3*с3)

Загляните в https://www.cyberforum.ru/ms-excel/ , там 100500 тем про "оптимизацию производства", все делается Поиском решения без VBA и сам поиск обычно занимает секунду.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 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? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10

	Необходимо перенести формулу ИЗ ячейки В макрос 27.12.2015, 23:01. Показов 4042. Ответов 17 Метки нет (Все метки) Т.е например в ячейке написали х+у во второй и третьей ячейке значения икса и игрика Каким оператором можно засунуть это формулу из ячейки в vba, чтобы далее можно было в вба работать с этой формулой. рассчитать например. необходимо именно такая логика, для того, чтобы удобно менять формулы, а не лесть в код. И напишите, пожалуйста, кратенький пример. 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	27.12.2015, 23:52 [ТС]
	Ух, что-то там как-то сложно написано. не понятно что к чему. и там как я понял, нужно вводить в появляющемся окне, а мне хотелось бы из ячейки. можете конкретней помочь? 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	27.12.2015, 23:55
	Сейчас попробую Там в Inputbox вводятся формулы и по ним строятся графики.Идея заключается в том,что пишется обычная формула с иксами,которая раскладывается на составляющие,а затем собирается уже в виде ссылок на ячейки. 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	27.12.2015, 23:57 [ТС]
	OLEGOFF, ждус. заранее спасибо 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	28.12.2015, 00:17 [ТС]
	OLEGOFF, но мне же нужно достать из ячейки формулу (пусть x+y), а потом чтобы вба посчитал её. как это сделать? не могу понять что дальше делать 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	28.12.2015, 00:19
	Приложите файл с примером 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	28.12.2015, 00:29 [ТС]
	Добавлено через 4 минуты Понятно задача? Не знаю, какой файл с примером скинуть, нету ничего) просто нужно для дальнейшего мне решить эту проблему Добавлено через 2 минуты нужно достать формулу из ячейки х+у ( х и у тоже из ячеек) и посчитать z= x+y в самом вба, чтобы потом работать с я 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	28.12.2015, 00:32
	Если формула уже находится в ячейке,то она уже что-то подсчитала,т.к. она ссылается на другие ячейки.И какой смысл копировать формулу в код,если достаточно взять результат из этой ячейки 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	28.12.2015, 00:42 [ТС]
	OLEGOFF, кароче. я пишу метод сканирования на вба, и он перебирает множество иксов. поэтому для каждого икса мне нужно пересчитать мою функцию. поэтому мне необходимо достать формулу типа f(x1,x2,x3) из ячейки ну и возможность посчитать её. т.е в ячейке будет написано только формула например х+у без всяких равно и т.п 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	28.12.2015, 00:57
	skillblaze, еще Программа должна уметь распознавать функции, записанные в TextBox 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	28.12.2015, 01:00 [ТС]
	Казанский, а можете адаптировать то, что там написано к моему? или минимально объяснисть что к чему. а то я немного далековат от этого 0

@skillblaze 0 / 0 / 0 Регистрация: 27.12.2015 Сообщений: 10
	28.12.2015, 02:24 [ТС]
	Казанский, знаком с циклами) однако, не придумал решения с ними. этот метод мне показался легче, через if и метки проще ходить по алгоритму. суть заключается в том, чтобы найти иксы, при которых будет выполняться критерии ( y1 и y2 в заданном диапозоне) и наименьшая себестоимость ( в данном случает х1с1+х2с2+х3*с3). спасибо, то что вы написали подошло. но, вот время капец как увеличилось. как можно исправить? писать через циклы? если я скину фото алгоритма, сможете помочь улучшить код?) 0

Необходимо перенести формулу ИЗ ячейки В макрос

Решение