[Cfytrr]

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

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

[Сергей812]

когда нажимаете Alt+F8, выберите Изменить вместо выполнить - должен выкинуть в редактор VBA:
1. В меню редактора Debug -> Compile VBAProject. Если как-то ругается - скриншот.
2. Если в п.1 никакой реакции - ставите курсор на середину слова CalcSeries и нажимаете F8. Код будет пошагово выполняться при каждом нажатии F8, и замечайте - с какой строки кода скакнет вниз на "УПС".

----- добавлено через ~4 мин. -----
и тыц

[v.psk]

Да нет же.... Ну не так ид.....
х - в столбце А.
У - в столбце В.
Значения со второй строки.
У будет перезаписана.
В ячейку 1D будет забираться x. Надо в формулах вычислений дать ссылку через него.
Резулььат вычислений будет забираться из ячейки 1Е каждый раз.

[Cfytrr]

Debug -> Compile VBAProject. не активна
ставите курсор на середину слова CalcSeries и нажимаете F8 Скачет по строчкам, потом упс и все, никаких сообщений о ошибках
Скакнула со строчки:

Set lWB1 = Application.Workbooks("01")

[v.psk]

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

----- добавлено через -----
Cfytrr, f8 на непустой строке

[Сергей812]

а потом окажется, что эту очень сложную формулу можно просто скопировать, зафиксировав нужные адреса и протянув мышкой по столбцу ) У меня в 2016 экселе отработал макрос нормально, там ломаться нечему)

[eilukha]

Можно функцию свою создать.

[Сергей812]

Сообщение от Cfytrr Debug -> Compile VBAProject. не активна

измените проект, например скопируйте пару строк макроса и удалите потом. Это редактор временами "оптимизирует" - если код уже был скомпилирован, то блокирует этот пункт меню. Ну или пропустите п.1 - некритично.

[Cfytrr]

Запустил эксель версии 2013 в нем сработало. Странно это. НО всем спасибо!

[v.psk]

Сообщение от Cfytrr Запустил эксель версии 2013 в нем сработало

в одном файле проще, не надо обьявлять переменные для коллекции книг и диапазоны.
Но, конечно, код от Сергея более ... универсальный, практичный, более умный... я обычно проще делаю, всё же не программист....

[Cfytrr]

v.psk,
Спасибо. Ваш код сработал и в 16 версии

[Cfytrr]

v.psk,

не подскажите, сейчас в макросе ссылка на ячейку 1,7 текущего листа (лист 2), а как должна выглядеть ссылка на ячейку 1,7 листа 1?

[v.psk]

Worksheets ("лист1") . Cells(1, 7)

----- добавлено через ~2 мин. -----
Можно сделать как я - в самой ячейке дать ссылку.
Нажать в ней = и переключиться на другой лист, или скопировать ссылку

[Бахил]

Можно без всякого вба создать макрос при помощи кнопки "начать запись макроса".

[Сергей812]

Сообщение от Cfytrr Set lWB1 = Application.Workbooks("01")

это и подозревал - код запрашивает книгу в коллекции уже открытых документов запущенного экземпляра приложения Excel. Т.е. настроено по умолчанию на открытие в отдельных экземплярах Excel.