|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
10.06.2009, 16:19
|
#1 |
|
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Оптимизация
Уважаемые форумчане!!! Подскажите, можно каким-нибудь образом ускорить выполнение данного макроса? Возможно его можно написать не используя цикл For или может есть какой-то совершенно другой способ достич искомый результат?
 Private Sub Workbook_Open() Dim x As Single For x = 1001 To 65536 Rows(x).Hidden = True Next For x = 15 To 254 Colums(x).Hidden = True Next End Sub |
|
|
|
10.06.2009, 16:26
|
#2 |
|
Форумчанин
Регистрация: 03.04.2009
Сообщений: 412
|
Код:
|
|
|
|
|
10.06.2009, 16:29
|
#3 |
|
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
 моему удивлению нет предела  "чик" и всё а я сидел ждал пока макрос все строки переберёт Спасибо большое!!! |
|
|
|
|
10.06.2009, 16:33
|
#4 |
|
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Private Sub Workbook_Open()
Rows("1001:65536").Hidden = True Columns("O:IV").Hidden = True End Sub А можно ещё как-нибудь запретить отображать строки через "правая кнопка мыши - отоброзить"? |
|
|
|
|
10.06.2009, 17:03
|
#5 | |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Макросом это делается так: ActiveSheet.Protect |
|
|
|
|
|
11.06.2009, 11:48
|
#6 |
|
Форумчанин
Регистрация: 11.02.2008
Сообщений: 119
|
Большое спасибо!!!
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Оптимизация кода | viscas | PHP | 3 | 31.05.2009 16:04 |
| Оптимизация кода | [Smarik] | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 9 | 20.08.2008 15:00 |
| Оптимизация кода. | MAKTECYMA | Общие вопросы C/C++ | 2 | 05.06.2008 16:48 |
| Оптимизация WEB | SirJay | Свободное общение | 0 | 09.05.2008 00:26 |
| Оптимизация | Terran | Общие вопросы Delphi | 3 | 03.05.2008 19:03 |
