Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросом покрасить все ячейки, находящиеся под линией?
 
#1
11.08.2017 12:37:44
Добрый день, гуру экселя.
Помогите решить вопрос.

На листе нарисована прямая линия.
Как заставить макрос -  найти все ячейки, пересекаемые - нарисованной на листе линией (линия имеет две общие точки с прямоугольником ячейки), и залить их цветом (например желтым) ?
Изменено: OlegSmirnov - 11.08.2017 14:11:13
 
 
 
#2
11.08.2017 13:11:32
Судя по названию темы, они у Вас и так окрашиваются.
 
 
 
#3
11.08.2017 13:13:25
Юрий М, ясно сейчас изменю
 
 
 
#4
11.08.2017 13:19:09
Не сможете. Предложите - я поменяю.
 
 
 
#5
11.08.2017 13:20:17
Юрий М, название темы такое: "Все ячейки под линией окрашиваются макросом"
 
 
 
#6
11.08.2017 13:21:14
OlegSmirnov, я не просил Вас создавать новую тему, тем более её название ничуть не лучше. И в новом варианте Вы сообщаете, что ячейки у Вас подкрашиваются. Т.е. вопроса (проблемы) нет. Так понятно?
 
 
 
#7
11.08.2017 13:38:33
Юрий М, то есть мне надо убрать заливку из ячеек? И в этом случае - вы скажете что теперь проблема есть... но скажете, что теперь непонятно какие ячейки должны быть залиты.
(Я специально подкрасил ячейки (то есть вручную), чтобы была ясна суть вопроса.)
Изменено: OlegSmirnov - 11.08.2017 13:39:22
 
 
 
#8
11.08.2017 13:43:40
Олег, ну неужели так трудно понять? В Вашем названии нет ни вопроса, ни указания на проблему: Вы просто сообщаете нам, что ячейки у Вас красятся. И хорошо. Проблема в чём?
Вот если бы Вы написали: "Как макросом покрасить все ячейки, находящиеся под линией?" - тогда бы я ни слова не сказал.
Так понятно?
 
 
 
#9
11.08.2017 13:45:23
Юрий М, поменяйте название моей темы на - "Как макросом покрасить все ячейки, находящиеся под линией?"
 
 
 
#10
11.08.2017 13:46:41
Цитата
OlegSmirnov написал:
но скажете, что теперь непонятно какие ячейки должны быть залиты.
А сформулировать? Грубый вариант
Хочу, требуется, очень надо: получить готовый макрос с комментариями, который для нарисованной на листе линии находит все ячейки, пересекаемые ей (линия имеет две общие точки с прямоугольником ячейки), и заливает их заданным цветом. Как то так. Теперь сформулируйте вежливый вариант :)
Изменено: Андрей VG - 11.08.2017 13:47:20
 
 
 
#11
11.08.2017 14:11:37
Андрей VG, изменил первое сообщение.
 
 
 
#12
11.08.2017 15:35:04
А задачка оказалась не столь проста, учитывая, что Line объект не имеет доступа к координатам концов отрезка. Решение взял тут.
Цитата
OlegSmirnov написал:
Как заставить макрос
Может следующий раз макрос в какой-то реализации прикладывать? А то пусто...
Успехов.
 
 
 
#13
11.08.2017 15:44:35
Идея такая:
1. У фигуры "Прямая соединительная линия 2" есть свойства Left, Top, Width, Hight, определяющие координаты двух крайних точек этой линии на листе. ActiveSheet.Shapes("Прямая соединительная линия 2 ").Left/Top/Width/Hight
2. Раз знаем координаты двух точек, значит можем определить уравнение прямой линии y=k*x+b
3. Зная уравнение прямой линии, координаты крайних точек, а также высоту и ширину ячеек на листе, можем определить какие ячейки эта линия пересекает
 
 
 
#14
11.08.2017 15:58:38
Цитата
Equio написал:
1.
Вот с этим пунктом и все сложности. Начало линии может быть выбрано пользователем для рисования с любого угла прямоугольника, её обрамляющего.
 
 
 
#15
11.08.2017 16:42:29
Андрей VG, макрос работает.
Большое спасибо.
 
 
 
#16
12.08.2017 01:54:30
Андрей VG, будем надеяться, автор топика смог оценить эту сложность и некоторое кол-во умственного труда, потраченное на её преодоление.
 
 
 
#17
12.08.2017 04:21:34
Equio, ну да.
Это непростая вещь.
 
 
 
Страницы: 1
Наверх