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

Вход

Регистрация

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

 

= Мир MS Excel/Перемещение фигур под прямым углом - Мир MS Excel

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

Excel 2013
Добрый день, форумчане.
Помогите решить проблему.

Имеется макрос, который совершает ортогональный сдвиг нескольких квадратов.
То есть если перетащить куда-нибудь красный квадрат - то остальные сдвинутся также, но ортогонально - вслед за ним.
Однако сейчас двигать можно только красный квадрат - на остальные квадраты сдвиг не действует.

Подскажите - как изменить этот макрос, чтобы подобный сдвиг выполнялся при перетаскивании любого из представленных на листе квадратов (запуск макроса - щелчок по кнопке) ?
К сообщению приложен файл: 7368347.xls (99.0 Kb)


Сообщение отредактировал DimOzerov - Вторник, 01.05.2018, 14:52
 
Ответить
СообщениеДобрый день, форумчане.
Помогите решить проблему.

Имеется макрос, который совершает ортогональный сдвиг нескольких квадратов.
То есть если перетащить куда-нибудь красный квадрат - то остальные сдвинутся также, но ортогонально - вслед за ним.
Однако сейчас двигать можно только красный квадрат - на остальные квадраты сдвиг не действует.

Подскажите - как изменить этот макрос, чтобы подобный сдвиг выполнялся при перетаскивании любого из представленных на листе квадратов (запуск макроса - щелчок по кнопке) ?

Автор - DimOzerov
Дата добавления - 01.05.2018 в 14:52
Roman777 Дата: Вторник, 01.05.2018, 16:24 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
DimOzerov, Представьте, что Вы переместили любой из синих квадратов. А потом переместили красный квадрат. Все квадраты поля(листа) должны последовать за каким из двух перемещённых квадратов?
Собственно, как определить тот квадрат-ориентир, за которым все должны последовать?


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Вторник, 01.05.2018, 16:25
 
Ответить
СообщениеDimOzerov, Представьте, что Вы переместили любой из синих квадратов. А потом переместили красный квадрат. Все квадраты поля(листа) должны последовать за каким из двух перемещённых квадратов?
Собственно, как определить тот квадрат-ориентир, за которым все должны последовать?

Автор - Roman777
Дата добавления - 01.05.2018 в 16:24
DimOzerov Дата: Вторник, 01.05.2018, 17:05 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
как определить тот квадрат-ориентир, за которым все должны последовать?


Ориентир - это тот квадрат, координаты которого изменились.
К примеру - я передвигаю один из синих квадратов.
Возможно координаты всех квадратов - должны быть где-то записаны на листе. Например первая строчка ячеек - это исходные координаты квадратов
А вторая строчка ячеек - это координаты квадратов, сразу после запуска макроса.
Таким образом для большинства квадратов и первая и вторая строчка будут одинаковы. А вот для того квадрата, который передвинут - вторая строчка будет отличаться от первой.
Так макрос поймет - что ориентир - это именно этот квадрат.

Тут еще действует условие, что я могу передвигать только один из квадратов за раз - не больше.
 
Ответить
Сообщение
как определить тот квадрат-ориентир, за которым все должны последовать?


Ориентир - это тот квадрат, координаты которого изменились.
К примеру - я передвигаю один из синих квадратов.
Возможно координаты всех квадратов - должны быть где-то записаны на листе. Например первая строчка ячеек - это исходные координаты квадратов
А вторая строчка ячеек - это координаты квадратов, сразу после запуска макроса.
Таким образом для большинства квадратов и первая и вторая строчка будут одинаковы. А вот для того квадрата, который передвинут - вторая строчка будет отличаться от первой.
Так макрос поймет - что ориентир - это именно этот квадрат.

Тут еще действует условие, что я могу передвигать только один из квадратов за раз - не больше.

Автор - DimOzerov
Дата добавления - 01.05.2018 в 17:05
Roman777 Дата: Вторник, 01.05.2018, 17:35 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Вот...
К сообщению приложен файл: 7368347-1-.rar (45.5 Kb)


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Вторник, 01.05.2018, 17:37
 
Ответить
СообщениеВот...

Автор - Roman777
Дата добавления - 01.05.2018 в 17:35
DimOzerov Дата: Вторник, 01.05.2018, 17:56 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Roman777, спасибо - выручили.
 
Ответить
СообщениеRoman777, спасибо - выручили.

Автор - DimOzerov
Дата добавления - 01.05.2018 в 17:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение фигур под прямым углом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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