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

Вход

Регистрация

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

 

= Мир MS Excel/Мерцание курсора при работе макроса - Мир MS Excel

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

Excel 2013
Добрый день. Помогите разобраться. Есть процедура, которая запускается через каждую секунду (изменяет цвет некоторых ячеек с одного на другой, создавая эффект мигания). При каждом запуске курсор на долю секунды изменяет свой вид на "ожидание" (бывшие песочные часы), в результате постоянно мерцает. Можно ли на время работы макроса запретить курсору использовать режим wait?

Через Application.Cursor получается только принудительно закрепить один из видов курсора, но это не очень удобно. Application.ScreenUpdating не помогает.
 
Ответить
СообщениеДобрый день. Помогите разобраться. Есть процедура, которая запускается через каждую секунду (изменяет цвет некоторых ячеек с одного на другой, создавая эффект мигания). При каждом запуске курсор на долю секунды изменяет свой вид на "ожидание" (бывшие песочные часы), в результате постоянно мерцает. Можно ли на время работы макроса запретить курсору использовать режим wait?

Через Application.Cursor получается только принудительно закрепить один из видов курсора, но это не очень удобно. Application.ScreenUpdating не помогает.

Автор - Ant12345
Дата добавления - 05.01.2016 в 17:25
krosav4ig Дата: Вторник, 05.01.2016, 20:06 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Ant12345, [vba]
Код
Sub dd()
'в начале кода
Application.Cursor = xlNorthwestArrow

'...

'в конце кода
Application.Cursor = xlDefault
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAnt12345, [vba]
Код
Sub dd()
'в начале кода
Application.Cursor = xlNorthwestArrow

'...

'в конце кода
Application.Cursor = xlDefault
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 05.01.2016 в 20:06
Ant12345 Дата: Вторник, 05.01.2016, 20:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Сейчас в коде так и есть. Вариант рабочий, но не очень удобный при изменении документа, т.к. курсор при любом действии отображается только в форме стрелки. Желательно, чтобы он полностью сохранял текущую функциональность, за исключением отображения "ожидания".
 
Ответить
СообщениеСейчас в коде так и есть. Вариант рабочий, но не очень удобный при изменении документа, т.к. курсор при любом действии отображается только в форме стрелки. Желательно, чтобы он полностью сохранял текущую функциональность, за исключением отображения "ожидания".

Автор - Ant12345
Дата добавления - 05.01.2016 в 20:13
krosav4ig Дата: Вторник, 05.01.2016, 23:30 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
и
Application.Cursor = xlDefault
в конце кода тоже есть?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеи
Application.Cursor = xlDefault
в конце кода тоже есть?

Автор - krosav4ig
Дата добавления - 05.01.2016 в 23:30
Ant12345 Дата: Вторник, 05.01.2016, 23:54 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
да, есть
 
Ответить
Сообщениеда, есть

Автор - Ant12345
Дата добавления - 05.01.2016 в 23:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Мерцание курсора при работе макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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