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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
Группа: Друзья
Ранг: Старожил
Сообщений: 1465
Репутация: 596 ±
Замечаний: 0% ±

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

'...

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


(_)Õvõ(_)
 
Ответить
Сообщение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
Группа: Друзья
Ранг: Старожил
Сообщений: 1465
Репутация: 596 ±
Замечаний: 0% ±

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


(_)Õvõ(_)
 
Ответить
Сообщениеи
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 из 11
Поиск:

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