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

Вход

Регистрация

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

 

= Мир MS Excel/Разное кол-во вращений для 2 объектов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разное кол-во вращений для 2 объектов (Макросы/Sub)
Разное кол-во вращений для 2 объектов
Asretyq Дата: Четверг, 20.07.2017, 09:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток! Никак не могу сообразить как выполнить процедуру вращения для двух объектов при условии что объект 12 вращается 360*1 и объект 11 вращается 360 *2, действие должно происходить одновременно! Надеюсь нет смысла выкладывать файл и поэтому только код обозначаю.

[vba]
Код
For u = 0 To 360 * 2 Step 5
Tik = 1000000
ActiveSheet.Shapes("12").Rotation = u - 20
ActiveSheet.Shapes("11").Rotation = u + 99
For t = 1 To Tik: Next t
Next u
End Sub
[/vba]
 
Ответить
СообщениеДоброго времени суток! Никак не могу сообразить как выполнить процедуру вращения для двух объектов при условии что объект 12 вращается 360*1 и объект 11 вращается 360 *2, действие должно происходить одновременно! Надеюсь нет смысла выкладывать файл и поэтому только код обозначаю.

[vba]
Код
For u = 0 To 360 * 2 Step 5
Tik = 1000000
ActiveSheet.Shapes("12").Rotation = u - 20
ActiveSheet.Shapes("11").Rotation = u + 99
For t = 1 To Tik: Next t
Next u
End Sub
[/vba]

Автор - Asretyq
Дата добавления - 20.07.2017 в 09:40
AndreTM Дата: Четверг, 20.07.2017, 09:43 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1664
Репутация: 481 ±
Замечаний: 0% ±

2003 & 2010
[vba]
Код
' ...
ActiveSheet.Shapes("12").Rotation = u / 2 - 20
' ...
[/vba]


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщение[vba]
Код
' ...
ActiveSheet.Shapes("12").Rotation = u / 2 - 20
' ...
[/vba]

Автор - AndreTM
Дата добавления - 20.07.2017 в 09:43
Asretyq Дата: Четверг, 20.07.2017, 09:46 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
AndreTM, блин, точняк, спасибо!!!
 
Ответить
СообщениеAndreTM, блин, точняк, спасибо!!!

Автор - Asretyq
Дата добавления - 20.07.2017 в 09:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разное кол-во вращений для 2 объектов (Макросы/Sub)
Страница 1 из 11
Поиск:

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