Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Application.ScreenUpdating и StatusBar (VBA) / 6 сообщений из 6, страница 1 из 1
29.06.2019, 12:15
    #39831856
A11ex88
A11ex88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Добрый день! У меня два вопроса :)
Подскажите, пожалуйста, почему в Excel 2016 при обращении к другой книге через метод Active, конструкция Application.ScreenUpdating = False не срабатывает и мерцание книги все равно происходит. И второй вопрос, в Excel 2016 когда я вывожу в StatisBar сообщение, StatusBar меняет цвет на зеленый, ас сам текст бледно-серого цвета, которого почти не видно, можно как-то оставить нормальный вид StatusBar ?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2019, 14:59
    #39832334
Focha
Focha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
A11ex88Добрый день! У меня два вопроса :)
Подскажите, пожалуйста, почему в Excel 2016 при обращении к другой книге через метод Active, конструкция Application.ScreenUpdating = False не срабатывает и мерцание книги все равно происходит. И второй вопрос, в Excel 2016 когда я вывожу в StatisBar сообщение, StatusBar меняет цвет на зеленый, ас сам текст бледно-серого цвета, которого почти не видно, можно как-то оставить нормальный вид StatusBar ?
Спасибо!
пример кода можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.07.2019, 20:13
    #39832481
A11ex88
A11ex88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Я тут заметил, что statusbar принимает нормальный (Не зеленый вид) когда Application.ScreenUpdating =true
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2019, 10:14
    #39832597
Focha
Focha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Вы отключаете 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, 12:02
    #39832677
A11ex88
A11ex88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Как тогда сделать чтобы мерцания не было и статус бар показывал прогресс выполнения макроса в цикле, если в этом цикле происходит обращение к другой книге. Я пробовал обернуть типа
Application.ScreenUpdating = true

Application.StatusBar = ...

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

Вообще я проблему мерцания решил отказом от Active, просто интересны варианты решения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2019, 12:15
    #39832689
A11ex88
A11ex88
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Application.ScreenUpdating и StatusBar (VBA)
Спасибо. Разобрался. Просто нужно было в цикле правильно расставить Application.ScreenUpdating = False/True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по Application.ScreenUpdating и StatusBar (VBA) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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