ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Application.ScreenUpdating и StatusBar (VBA)
6 сообщений из 6, страница 1 из 1
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39831856
A11ex88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A11ex88
Гость
Добрый день! У меня два вопроса :)
Подскажите, пожалуйста, почему в Excel 2016 при обращении к другой книге через метод Active, конструкция Application.ScreenUpdating = False не срабатывает и мерцание книги все равно происходит. И второй вопрос, в Excel 2016 когда я вывожу в StatisBar сообщение, StatusBar меняет цвет на зеленый, ас сам текст бледно-серого цвета, которого почти не видно, можно как-то оставить нормальный вид StatusBar ?
Спасибо!
...
Рейтинг: 0 / 0
29.06.2019, 12:15
| Ответить | Цитировать | Написать  
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39832334
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
A11ex88Добрый день! У меня два вопроса :)
Подскажите, пожалуйста, почему в Excel 2016 при обращении к другой книге через метод Active, конструкция Application.ScreenUpdating = False не срабатывает и мерцание книги все равно происходит. И второй вопрос, в Excel 2016 когда я вывожу в StatisBar сообщение, StatusBar меняет цвет на зеленый, ас сам текст бледно-серого цвета, которого почти не видно, можно как-то оставить нормальный вид StatusBar ?
Спасибо!
пример кода можно?
...
Рейтинг: 0 / 0
01.07.2019, 14:59
| Ответить | Цитировать | Написать  
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39832481
A11ex88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A11ex88
Гость
Я тут заметил, что statusbar принимает нормальный (Не зеленый вид) когда Application.ScreenUpdating =true
...
Рейтинг: 0 / 0
01.07.2019, 20:13
| Ответить | Цитировать | Написать  
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39832597
Фотография Focha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Focha
Участник
Вы отключаете Application.ScreenUpdating = False, StatusBar так же относится к ScreenUpdating
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub test()
Dim i As Long
Application.ScreenUpdating = False
    i = 1
    Do
        DoEvents
        Application.StatusBar = i
        i = i + 1
        
    Loop
    
Application.ScreenUpdating = True
    
End Sub


книга мерцает, метод Active делает книгу активной
Код: vbnet
1.
2.
3.
4.
5.
6.
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks("имя книги 1")
Set wb2 = Workbooks("имя книги 2")

    wb1.ActiveSheet.cells(1,1)= wb2.ActiveSheet.cells(1,1)
...
Рейтинг: 0 / 0
02.07.2019, 10:14
| Ответить | Цитировать | Написать  
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39832677
A11ex88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A11ex88
Гость
Как тогда сделать чтобы мерцания не было и статус бар показывал прогресс выполнения макроса в цикле, если в этом цикле происходит обращение к другой книге. Я пробовал обернуть типа
Application.ScreenUpdating = true

Application.StatusBar = ...

Application.ScreenUpdating = false
Но что-то не помогло. Мерцания не было, но статусбар не изменятся.

Вообще я проблему мерцания решил отказом от Active, просто интересны варианты решения.
...
Рейтинг: 0 / 0
02.07.2019, 12:02
| Ответить | Цитировать | Написать  
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
    #39832689
A11ex88
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A11ex88
Гость
Спасибо. Разобрался. Просто нужно было в цикле правильно расставить Application.ScreenUpdating = False/True
...
Рейтинг: 0 / 0
02.07.2019, 12:15
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2172040]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 10ms
get first new msg:
 8ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 285ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]