[Cfytrr]

Приветствую.

Есть файл эксель где в результате очень сложных расчетов высчитывается значение Y в зависимости от X.
Нужно получить результирующий график серии вычислений Y(X). Можно ручками менять X и записывать на листочек Y, но это очень долго. Есть ли способ в другом файле ексель записать макрос который подставит серию Х и запишет серию результатов Y?

[Сергей812]

Можно. Если в коде макроса не прописаны в явном виде ThisWorkBook либо ссылки на листы ThisWorkBook - он (макрос) будет работать с активной книгой. Можно в виде надстройки сделать

[Cfytrr]

Сергей812,
А Вас не затруднить сделать пример такого макроса?

[Дмитррр]

Макросами слабо владею. Но если эти "очень сложные расчёты" умещаются на 1 лист, то ничего не мешает, сделать хоть несколько десятков копий этого листа, вбить в них разные Х и сделать отдельный лист чисто для графика. Минус только в том, что если понадобится менять расчёты, то это придётся делать во всех листах.

Если всё же макрос, то я бы делал тупо:

Код:

[Выделить все]

цикл от 1 до i
   в ячейку исходных данных Х вбить Х(i)
   в заготовку таблицы вбить Х(i)
   прочитать значение У там, где оно выводится
   У(i)=У
   в заготовку таблицы вбить У(i)
По заготовку таблицы построить график

[Cfytrr]

Дмитррр,
Путь "скопировать 10 раз" и посчитать понятен, но к сожалению мало применим как раз из за того, что сложный расчет использует данные из нескольких листов.
Блок схема то же понятна, нужна реализация в коде. желательно пример работающий с пояснениями.

[v.psk]

Cfytrr, а в чем проблема? Вы умеете пользоваться макросами?
Вроде бы более простой задачи сложно придумать....
Если надо срочно, могу попробовать написать на телефоне.....))))

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

[Cfytrr]

Сообщение от v.psk Вы умеете пользоваться макросами?

Нет. Только турбопаскаль в 1994 году 1 семестр
X и Y числа

[v.psk]

Если пошагово....
Обьявить переменные, удобно создать какой нибудь двумерный массив,
В него выгрузить данные х, в него записывать данные у после вычислений.
По проходу всех вычислений запись в ячейки таблицы.
Есть наверное и какой-то более экономный способ....

[Сергей812]

Сообщение от Cfytrr А Вас не затруднить сделать пример такого макроса?

лень за вас придумывать исходные данные в экселевском файле по картинке) Что откуда должен брать в каком виде...

Код:

[Выделить все]

Sub Test1()
  MsgBox ActiveWorkbook.ActiveSheet.Range("A1").Value
End Sub

выводит содержимое ячейки "А1" активного листа той книги, откуда был запущен макрос через Alt+F8


а если напишите так

Код:

[Выделить все]

Sub Test2()
  MsgBox ThisWorkbook.ActiveSheet.Range("A1").Value
End Sub

выводит содержимое ячейки "А1" активного листа той книги, где сам макрос - независимо откуда был запущен макрос через Alt+F8.

[v.psk]

Ну допустим х - задан в 1й столбик, начиная со второй строки.
Он передает значение в ячейку cells(1, 4)
У - записывается вторым столбцом. Вычисляется в ячейке cells(1, 5)
Ну тогда покороче....
/лучше на всякий случай сохранить, пишу с тлф.


Sub icandoit ()
Dim i, j as long
i=2
Do while cells(i, 1) <>0
Cells(1, 4) =cells(i, 1)
Cells(i, 2) =cells(1, 5)
I=i+1
Loop
End sub

[Cfytrr]

v.psk,
Супер, куда весь этот код вставлять?

[Сергей812]

Сообщение от v.psk Dim i, j as long

насколько помню, в VBA - вторая то переменная будет long, а первая скорее всего Variant.

[v.psk]

Cfytrr, вкладка "разработчик" Есть в меню? Если нет - ее надо добавить, файл- параметры.

----- добавлено через 53 сек. -----
Сергей812, ну это я для строчек, не для результатов вычислений, даже лишнюю переменную обьявил))

----- добавлено через ~3 мин. -----
... Кстати поправил #10

[Cfytrr]

Пример, файл с расчетом 01.xlsx, файл с диаграммой 02.xlsx. Если можно добавьте в файл 02.xlsx макрос который будет обрабатывать расчет из файла 01.xlsx

[v.psk]

Ну если никто до завтра этого не сделает, постараюсь помочь)) с тлф. Непросто

[Cfytrr]

v.psk,
Спасибо. В принципе если это проще то можно и в файле 01.xlsx все обрабатывать. по диапазону значений Х, макрос строит диапазон Y

[Сергей812]

1. Открыть 01 файл.
2. Открыть 02 файл (если не ругнулся при этом на макросы - значит включить запрос разрешения работы макросов).
3. Выделить диапазон данных в файле 02 (без заголовка, оба столбца) и нажав ALT+F8, запустить макрос CalcSeries. Если что пойдет не так - макрос скажет УПС!)

----- добавлено через ~24 мин. -----
только если в исходном столбце X вместо вручную введенных значений окажутся формулы - макрос формулы затрет, скопировав поверх сами значения. Надо по другому данные забирать тогда, выделяя лишь выходной столбец, а входной столбец высчитывать смещением.

[Cfytrr]

Сообщение от Сергей812 Выделить диапазон данных в файле 02 (без заголовка, оба столбца) и нажав ALT+F8, запустить макрос CalcSeries

Что то не выходит каменный цветок.

[Сергей812]

файлы 01 и 02 открыты в одном запущенном приложении Excel?

[Cfytrr]

Сообщение от Сергей812 файлы 01 и 02 открыты в одном запущенном приложении Excel?

13 16 Эксель не хочет открывать в одном приложении. В 10 2003 открылось в одном приложении но макрос все равно не сработал.