Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как соединить ячейки в столбцах - стрелками разной толщины - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как соединить ячейки в столбцах - стрелками разной толщины (Макросы/Sub)
Как соединить ячейки в столбцах - стрелками разной толщины
SkyGreen Дата: Среда, 10.07.2019, 14:32 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Здравствуйте.
Помогите, пожалуйста решить непростую проблему.

Подскажите как макросом соединить ячейки в столбцах - стрелками по адресам из столбцов ?

Первый столбец E:F- основной.
В столбце E - записаны числовые значения. В столбце F - записан адрес второго столбца, к которому нужно провести стрелку.
Во втором столбце I:K - тоже есть адрес, но уже третьего столбца - к которому нужно провести стрелку (от второго столбца к третьему).

Эти стрелки - разной толщины, в зависимости от того - какого размера число из столбца I по сравнению с другими числами. Если это самое большое число - то толщина = 4,5.
А если число из столбца I - самое маленькое, то линия - самая тонкая = 0,25

То есть получается, что макросов нужно два: Первый протягивает стрелки от первого столбца - ко второму. А второй макрос - протягивает стрелки от второго столбца к третьему.

Примерный алгоритм макроса такой:
1. По значением столбцов E, I нужно определить минимальное и максимальное значение. Затем вычислить по ним параметры линейной функции толщины линии стрелки от значения.
2. Для каждой строки в F, где есть значение - нужно определить координаты начала стрелки по свойствам объекта Range ячейки Left + Width, Top + 0.5 * Height.
3. По значению той же ячейки нужно определить адрес ячейки в столбце I.
4. Затем нужно определить по свойствам объекта Range этой ячейки координаты конца стрелки Left, Top + 0.5 * Height.
5. Затем нужно нарисовать методом AddPolyline коллекции Shapes объекта Worksheet, получая объект Shape созданной полилинии.
6. Через методы Shape нужно задать ширину и оформление концов.
7. Повторить пункты 2-6 и для стрелок между K и N.

Как этот алгоритм макросом реализовать ?
К сообщению приложен файл: 1_.xls (61.0 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите, пожалуйста решить непростую проблему.

Подскажите как макросом соединить ячейки в столбцах - стрелками по адресам из столбцов ?

Первый столбец E:F- основной.
В столбце E - записаны числовые значения. В столбце F - записан адрес второго столбца, к которому нужно провести стрелку.
Во втором столбце I:K - тоже есть адрес, но уже третьего столбца - к которому нужно провести стрелку (от второго столбца к третьему).

Эти стрелки - разной толщины, в зависимости от того - какого размера число из столбца I по сравнению с другими числами. Если это самое большое число - то толщина = 4,5.
А если число из столбца I - самое маленькое, то линия - самая тонкая = 0,25

То есть получается, что макросов нужно два: Первый протягивает стрелки от первого столбца - ко второму. А второй макрос - протягивает стрелки от второго столбца к третьему.

Примерный алгоритм макроса такой:
1. По значением столбцов E, I нужно определить минимальное и максимальное значение. Затем вычислить по ним параметры линейной функции толщины линии стрелки от значения.
2. Для каждой строки в F, где есть значение - нужно определить координаты начала стрелки по свойствам объекта Range ячейки Left + Width, Top + 0.5 * Height.
3. По значению той же ячейки нужно определить адрес ячейки в столбце I.
4. Затем нужно определить по свойствам объекта Range этой ячейки координаты конца стрелки Left, Top + 0.5 * Height.
5. Затем нужно нарисовать методом AddPolyline коллекции Shapes объекта Worksheet, получая объект Shape созданной полилинии.
6. Через методы Shape нужно задать ширину и оформление концов.
7. Повторить пункты 2-6 и для стрелок между K и N.

Как этот алгоритм макросом реализовать ?

Автор - SkyGreen
Дата добавления - 10.07.2019 в 14:32
sboy Дата: Среда, 10.07.2019, 14:55 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
А в чем собственно вопрос? Алгоритм (и даже объекты, свойства и методы указали) есть. Что не получается?


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
А в чем собственно вопрос? Алгоритм (и даже объекты, свойства и методы указали) есть. Что не получается?

Автор - sboy
Дата добавления - 10.07.2019 в 14:55
SkyGreen Дата: Среда, 10.07.2019, 15:16 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Цитата sboy ()
Что не получается?

Так все не получается.
Не знаю как это макросом сделать (так теоретически только).
 
Ответить
Сообщение
Цитата sboy ()
Что не получается?

Так все не получается.
Не знаю как это макросом сделать (так теоретически только).

Автор - SkyGreen
Дата добавления - 10.07.2019 в 15:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как соединить ячейки в столбцах - стрелками разной толщины (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!