Excel VBA определение пересечений линий

[digitalis]

Попробовал. Но оно у меня открывает не в $A$1, а в окне функций. Может, потому, что у меня оф.2003 ?
Впрочем, не буду занимать Ваше время. Для меня Ех. - не мейнстрим, а так, поиграться. В нём я веду только свою бухгалтерию, да иногда модельку какую прокрутить по-быстрому.
Успехов в делах!
А ТС знік у няведамым кірунку...
А где там макрос вкорячен - так и не разобрался. Впрочем, это - не моё. Terra, т.сз., incognita

[сфинкс]

алгоритмы ищутся быстро в интернет

на языках высочайшего уровня
бэйсик qbasic quickbasic qb qb64

и наверняка легко перевести в Эксцель Excel

https://www.youtube.com/watch?v=I0QV2AZ5W5E

да помню интегрировал несколько программ и строились графики
но реально быстрее самим найти алгоритмы в интернет

решение возможно как фигуры разложенные на отрезки
сравниваемые с отрезком эталонным

главные формулы:

'A1x+B1y+C1=0
'A2x+B2y+C2=0

INPUT "A1 = "; a1
INPUT "B1 = "; b1
INPUT "C1 = "; a1

INPUT "A2 = "; a2
INPUT "B2 = "; b2
INPUT "C2 = "; c2

d = a1 * b2 - a2 * b1

IF d = 0 THEN PRINT "Parallel": GOTO 5

x = (b1 * c2 - b2 * C1) / d
y = (a2 * C1 - a1 * c2) / d

PRINT "X= "; x, "Y= "; y

5 END

но лично я в Эксцель Excel не переводил

вместо INPUT: ячейки ... но ниже пишущие не догадаются

зато я подписан на ютюб администратора и ютюб 6-минутный полезный
ведь в чисто по ютюбу решить думаю реально

[digitalis]

Ну очень по делу. В задании ТСа - никаих INPUT, не говоря уже об Бесике вообще. Почитал бы п.п. #7, #8.
Вот настырный - никогда не пропустит случая прорекламировать себя, даже если совсем не в тему.

[IgorGO]

я, как дурак, учу Excel уже лет 30
видимо, нужно записаться к сфинксу в ученики - 6 минут и все готово!

[Марат2027]

Уфф, Спасибо за комментарии. Однако замечу! Если бы задача стояла исключительно про линии - вопросов не было бы. Математику я знаю. Алгебраически найти точку пересечений линии (истинных и продолженных) - не задача. Однако в исходном тексте стоит "...несколько произвольных фигур (линии, прямоугольники, и т.п.)..." , т.е. прямоугольники, окружности, ломанные и т.п.!

[Марат2027]

... к сожалению задача стоит исключительно для Экселя (требование не мое) Если бы дан Автокад - это было бы не проблема. Накидать код на него не проблема. Там есть готовые процедуры для определения точек пересечения геометрических фигур. С Экселем все сложнее. Задача совсем не учебная. а сугубо техническая.

[IgorGO]

нет данных, нет решения - это аксиома

[Марат2027]

Если интересно, задача стоит в автоматизации рутинной задачи расчета СОУЭ (системы оповещения и управления эвакуацией персонала при пожаре). Геометрические фигуры, описанные в задании - стены помещения. Для стен в виде прямых линии я задачу конечно решил. Хотелось бы большей универсальности для помещений произвольной формы. Вот пример расчета для прямых стен. Программа обрабатывает прохождение луча звука - прямой линии от ячейки, где стоит источник звука до обрабатываемой ячейки на поле плана. При этом необходимо учитывать факт прохождения этого луча звука (линии) через стены помещения (линии, прочие геометрические фигуры на плане). Стены создают дополнительные потери звука, которые необходимо учитывать.

[Марат2027]

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

задача, как задача
1. определить точку пересечения двух прямых
2. проверить что точка пересечения принадлежит отрезку, которым задана одна из прямых

задача элементарна по своей сути чем ее не решай (и Excelем в том числе)
но задачу не возможно решить пока к ней не приложены данные!
а самое странное здесь, что автор пишет что рисует все программно и тут становится совершенно не понятно, а что помешало чуть добавить кода в свои программы и найти т. пересечения? что????

Вы либо оптимист, либо знаете тайные ходы в Экселе. Тогда поделитесь, пожалуйста, со мной.
Речь идет о Экселе! Данная элементарная задача в Экселе встает в непреодолимую (для меня) задачу уже на этапе определения координат точек линии. И ТопЛефт. БоттонРайт, Ширина, Высота ни чего не решают, так как дают координаты прямоугольной области, занимаемой линией. В этой области линию можно провести двумя разными способами. А вот определить этот способ средствами Excel VBA не удается.
Потому пришлось ограничить задачу только строго вертикальными и горизонтальными линиями.

[IgorGO]

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