Если макрос запустил и через некоторое время он выдал результат, то часто Application.Screenupdate= false значительно сокращает время выполнения макроса. Но в интерактивном приложении применение Application.Screenupdate= false в паре с Application.Screenupdate= true вызывает мигание некоторых элементов экрана (в приложенном файле мигают номера строк и наименования столбцов), что раздражает. Можно применить Application.Screenupdate только к части экрана (только к диапазону A2:K11)? Стрелки влево и в право - используется Application.Screenupdate, а стрелки вверх и вниз - Application.Screenupdate не используется.
Если макрос запустил и через некоторое время он выдал результат, то часто Application.Screenupdate= false значительно сокращает время выполнения макроса. Но в интерактивном приложении применение Application.Screenupdate= false в паре с Application.Screenupdate= true вызывает мигание некоторых элементов экрана (в приложенном файле мигают номера строк и наименования столбцов), что раздражает. Можно применить Application.Screenupdate только к части экрана (только к диапазону A2:K11)? Стрелки влево и в право - используется Application.Screenupdate, а стрелки вверх и вниз - Application.Screenupdate не используется.SergeyKorotun
Private Sub screenupdating_no() For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(10 * Rnd()) If a(i, j) Mod 2 <> 0 Then a(i, j) = "" Next j Next i Range("B2:K11").Value = a End Sub
[/vba] только нужно будет Dim a(1 To 10, 1 To 10) as variant
и еще желательно добавить [vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "{UP}" Application.OnKey "{DOWN}" Application.OnKey "{LEFT}" Application.OnKey "{RIGHT}" End Sub
[/vba]
а если так: [vba]
Код
Private Sub screenupdating_no() For i = 1 To 10 For j = 1 To 10 a(i, j) = Int(10 * Rnd()) If a(i, j) Mod 2 <> 0 Then a(i, j) = "" Next j Next i Range("B2:K11").Value = a End Sub
[/vba] только нужно будет Dim a(1 To 10, 1 To 10) as variant
и еще желательно добавить [vba]
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "{UP}" Application.OnKey "{DOWN}" Application.OnKey "{LEFT}" Application.OnKey "{RIGHT}" End Sub
Так не подходит, т.к. на самом деле выводятся не сами значения массива. В данном примере нечетные значения не выводится. Конечно можно создать еще один массив, присвоить его элементам то что должно отображаться на экране. Но я то еще не забыл первые компьютеры, в память которых и сама программа на бейсике не помещалась, а здесь надо дублировать массив.
А разве при закрытии книги это не произойдет автоматически?
Так не подходит, т.к. на самом деле выводятся не сами значения массива. В данном примере нечетные значения не выводится. Конечно можно создать еще один массив, присвоить его элементам то что должно отображаться на экране. Но я то еще не забыл первые компьютеры, в память которых и сама программа на бейсике не помещалась, а здесь надо дублировать массив.
т.к. на самом деле выводятся не сами значения массива
а вот это в вашем коде что?: Cells(i + 1, j + 1) = a(i, j) просто заполнять 100 ячеек по одной - это 100 миганий экрана, а перенести массив в 100 ячеек - как бы одно мигание
Цитата
А разве при закрытии книги это не произойдет автоматически?
вместе с вашим файлом откройте еще какую-нибудь книгу. Закройте ваш файл, проверьте функциональность стрелок в оставшейся книге.
т.к. на самом деле выводятся не сами значения массива
а вот это в вашем коде что?: Cells(i + 1, j + 1) = a(i, j) просто заполнять 100 ячеек по одной - это 100 миганий экрана, а перенести массив в 100 ячеек - как бы одно мигание
Цитата
А разве при закрытии книги это не произойдет автоматически?
вместе с вашим файлом откройте еще какую-нибудь книгу. Закройте ваш файл, проверьте функциональность стрелок в оставшейся книге.nilem
е совсем понятно Цитата SergeyKorotun, 08.08.2014 в 22:47, в сообщении № 3 т.к. на самом деле выводятся не сами значения массива а вот это в вашем коде что?: Cells(i + 1, j + 1) = a(i, j)
Cells(i + 1, j + 1) = a(i, j) вырвали из контекста. Оно же находится внутри if - then - else - endif и поэтому выводятся не все значения массива а, а примерно половина. А вместо второй половины выводятся пустые значение.
вместе с вашим файлом откройте еще какую-нибудь книгу. Закройте ваш файл, проверьте функциональность стрелок в оставшейся книге
Тогда правильнее будет и назначение процедур клавишам, и отмену поместить не в "Эта книга", а в "Лист1"? Тогда имя процедур будет WorkSheet_Open и WorkSheet_BeforeClose?
е совсем понятно Цитата SergeyKorotun, 08.08.2014 в 22:47, в сообщении № 3 т.к. на самом деле выводятся не сами значения массива а вот это в вашем коде что?: Cells(i + 1, j + 1) = a(i, j)
Cells(i + 1, j + 1) = a(i, j) вырвали из контекста. Оно же находится внутри if - then - else - endif и поэтому выводятся не все значения массива а, а примерно половина. А вместо второй половины выводятся пустые значение.
вместе с вашим файлом откройте еще какую-нибудь книгу. Закройте ваш файл, проверьте функциональность стрелок в оставшейся книге
Тогда правильнее будет и назначение процедур клавишам, и отмену поместить не в "Эта книга", а в "Лист1"? Тогда имя процедур будет WorkSheet_Open и WorkSheet_BeforeClose?SergeyKorotun
Сообщение отредактировал SergeyKorotun - Пятница, 08.08.2014, 23:26
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
