Здравствуйте.
Помогите устранить неполадку.

У меня есть макрос работы с надстройкой "поиск решения".
Я столкнулся с неожиданной проблемой - у меня в Reference - куда-то исчез Solver.
Сейчас там стоит Missing

Я точно помню, что раньше - Solver там был.
Как вернуть Solver обратно, чтобы скрипт снова заработал ?

БМВ,Благодарю

БМВ, подскажите - как реализовать в макросе эту теоретическую конструкцию  ?

Андрей VG, тогда перефразирую так.
Как провести линии по горизонтали и по вертикали - от фигуры-источника к тем отрезкам которые указаны в таблице как фигуры-приемники ?

А с чего вы взяли, что она должна быть перпендикулярна линии ?
Я о перпендикулярах ничего в своей теме не писал.

Я писал об ортогональных линиях  -то есть линиях идущих строго по горизонтали и строго по вертикали - начиная от "Овал 17".

В экселе нет фигуры "точка".
Вот и приходится рисовать маленькие эллипсы.

Можно взять любую произвольную точку из этого эллипса или его центр.

Так это вот и есть те самые ортогональные линии, которые нужно нарисовать.

Доброго времени, уважаемые специалисты по экселю.
Помогите с макросом.

На листе изображены линии и овалы. Рядом находится таблица O4:T11
К примеру в столбце O - вписано название фигуры "источника" -Овал 17,   а в ячейки P5 и Q5 - вписаны названия фигур-"приемников" линия 3 и линия 4.

Как макросом провести от фигуры-источника к фигурам-приемникам - ортогональные линии, которые должны закончится в точке пересечения ?

Андрей_26, ясно.
Спасибо.

ocet p, понятно.
Спасибо.

Добрый день.
Подскажите - как присвоить адрес - текстовой записи ?

Есть код:В ячейке R2 - находится текст "F4".
По идее макрос - должен возвратить число строк - из адреса "F4", который он должен распознать - именно как адрес, а не как текст.
То есть в ячейке H6 - должен появится результат 4.

Но вместо этого выдается ошибка.
Подскажите - как это исправить ?

Ametist69,а как прописать эту переменную и куда ее добавить ?

Вот у вас в макросе стоит ( For i = 28 ) - это адрес ячейки, как я понимаю - или что-то другое.
Как его сюда добавить ?

Ametist69, понятно.

А где связь с ячейкой R2 (в которой написан -  адрес с которого нужно начинать считывание данных из столбца F) ?

bigorq, да - нужно именно макросом.
То есть чтобы было однократное срабатывание.

Здравствуйте друзья.
У меня вопрос.

На листе - длинный столбец с данными (столбец F).
Как этот столбец уложить в таблицу, которая ограничена по верху строкой 4, а по низу ограничена строкой 26 ?

Начало заполнение - начинается с адреса, который записан в ячейке R2.
Как примерно выглядит эта укладка столбца - обрисовал в приложенном файле.

Sanja, тема называется - "Смещение диапазона влево на место удаленного"

Не смещение всего листа влево, а смещение диапазона влево.

Sanja, нет -  он вписывает данные из таблицы. Но при этом - он деформирует саму таблицу.
Остальные-то столбцы, которые идут вне таблицы - зачем их смещать ?

Sanja, Таблица на листе - специально помечена границами.

Sanja, применил ваш макрос.
Теперь почему-то сама таблица уменьшается и единицы которые стоят по правую сторону от таблицы - тоже поехали влево.

Я же спрашивал только про таблицу, а не про весь лист.

Здравствуйте.
Помогите решить вопрос с копированием диапазона, его удалением и смещением другого диапазона.

На листе находится диапазон G190:G210.
В этот диапазон нужно вписать данные из таблицы AE190:AE210 (эти данные там идут - под номером 1)

С этим проблем нет:Но нужно, чтобы после этой операции - содержимое столбца AE190:AE210 - удалилось ( Range("AE190:AE210").ClearContents), а содержимое других столбцов - сдвинулись влево.
То есть AE190:AE210 - должен заполнится данными  - стоящими справа.

БМВ, спасибо.

Здравствуйте, специалисты по экселю.

Имеется макрос, который по событию ВоркшитЧендж - должен вводить в ячейку дату.
Однако этот макрос - вводит не текущую дату, а ".01.1900"
То есть дату столетней давности.
Как изменить этот макрос - чтобы он к введенному числу - добавлял текущие месяц и год ?

Sanja, спасибо,

Доброе утро,

Подскажите - как остановить макрос при возникновении ошибки?
То есть если возникает ситуация ошибки, то запускается что-то вроде On Error Resume Next, которая вызывает Exit Sub

Только On Error Resume Next - не останавливает макрос, а как бы продолжает его дальше, игнорируя ошибку,
а мне нужно чтобы запускался Exit Sub

Казанский, спасибо.
Ваша система - работает !

vikttur, содержимое этих ячеек - должно вводится текстом, а не датой.
Этому и посвящен мой вопрос.

Добрый вечер.

Скажите как навесить на столбец I - событие ВоркшитЧендж, так чтобы при вводе в ячейку этого столбца - текста "к 3 Апреля" - макрос преобразовывал бы этот текст в дату 03.04.2019 в этой ячейке ?

При этом формат - останется таким же, то есть будет виден текст "к 3 Апреля".

Ігор Гончаренко, понятно, спасибо.

Ну чтож, работы будет много.
Тогда закатаю рукава - и в путь !

Андрей Лящук, это в каждом макросе нужно писать ?
Куда именно вставлять эту строчку ?

With Application.Workbooks("Книга1.xls").Sheets("Лист3") - это в начале каждого макроса.
А end with - это в конце каждого макроса.
А внутри этого макроса [A1] заменить на .[A1]

Я все правильно понял ?

БМВ, он не активен, я периодически перемещаюсь между разными книгами.
Поэтому и задаю этот вопрос.