Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2011, 10:11   #1
TenRa
Пользователь
 
Регистрация: 29.09.2011
Сообщений: 11
Вопрос Открыть книгу, но не видеть ее глазами

Добрый день, гуру.
Мой макрос собирает данные с 14 файлов сотрудников. Он последовательно открывает книги и производит действия. Все эти открывающиеся книги я (а потом и пользователь) вижу на экране одну за другой. Это не красиво, не нужно, отвлекает. Как открыть книгу, но при этом сделать ее скрытой?

Windows(имя книги).Visible=False не сработал

Спасибо.
TenRa вне форума Ответить с цитированием
Старый 04.10.2011, 10:18   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

первой строкой в макросе отключайте обновление экрана:
Код:
application.ScreenUpdating=False
EducatedFool вне форума Ответить с цитированием
Старый 04.10.2011, 10:33   #3
TenRa
Пользователь
 
Регистрация: 29.09.2011
Сообщений: 11
Хорошо

Замечательно сработало.
Спасибо огромное.
А попутно такой вопрос. Пока он там 14 файлов обрабатывает, можно ли сделать так, чтобы Формочка показывала часики или просто надпись "Процесс запущен. Ждите".
Есть у меня идейка, но кажется, что банальная.
Может есть какие готовые функции?

Спасибо.
TenRa вне форума Ответить с цитированием
Старый 04.10.2011, 10:40   #4
vikttur
Участник клуба
 
Регистрация: 16.05.2010
Сообщений: 1,249
По умолчанию

Цитата:
Сообщение от TenRa Посмотреть сообщение
...чтобы Формочка показывала часики или просто надпись "Процесс запущен. Ждите"...
Поищите "Прогрессбар". Вдруг это то, без чего нет покоя?

<Открыть книгу, но не видеть ее глазами>
Что может быть проще? Закройте глаза
vikttur вне форума Ответить с цитированием
Старый 04.10.2011, 10:49   #5
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
просто надпись "Процесс запущен. Ждите".
Была как-то еще вот такая идейка. Вставляем объект типа картинки, надписи и т.д. Затем:
Код:
Sub МойЗапускающийМакрос()
ActiveSheet.Shapes("Rectangle 1").Visible = True
'Код макроса
ActiveSheet.Shapes("Rectangle 1").Visible = False
End Sub
Вложения
Тип файла: zip ПоказатьСкрыть.zip (6.1 Кб, 23 просмотров)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 04.10.2011, 10:51   #6
TenRa
Пользователь
 
Регистрация: 29.09.2011
Сообщений: 11
Хорошо

Цитата:
Сообщение от vikttur Посмотреть сообщение
Поищите "Прогрессбар". Вдруг это то, без чего нет покоя?
Поищу . Спасибо.

Цитата:
Сообщение от vikttur Посмотреть сообщение
<Открыть книгу, но не видеть ее глазами>
Что может быть проще? Закройте глаза

И то правда. Надо в "Инструкции пользователя" будет написать.
TenRa вне форума Ответить с цитированием
Старый 04.10.2011, 10:58   #7
TenRa
Пользователь
 
Регистрация: 29.09.2011
Сообщений: 11
Радость

Цитата:
Сообщение от VictorM Посмотреть сообщение
Была как-то еще вот такая идейка. Вставляем объект типа картинки, надписи и т.д. Затем:
Код:
Sub МойЗапускающийМакрос()
ActiveSheet.Shapes("Rectangle 1").Visible = True
'Код макроса
ActiveSheet.Shapes("Rectangle 1").Visible = False
End Sub
Хорошо попробую.
А моя идея - Форма с надписью " ...Ждите. " При инициализации запускается макрос, по окончании которого форма закрывается и выдается сообщение что все сделано.
Думаю, Ваша красивее будет.
TenRa вне форума Ответить с цитированием
Старый 04.10.2011, 11:25   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Вдогонку))
Идея не моя, как-то видел - скрытие/отображение строк на время работы макроса
Во вложении оба примера
Вложения
Тип файла: zip ПоказатьСкрыть2.zip (8.3 Кб, 21 просмотров)
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 04.10.2011, 11:34   #9
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Вариант, открывать через getobject.
Можно еще
.ShowWindowsInTaskbar = False
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 04.10.2011, 11:44   #10
TenRa
Пользователь
 
Регистрация: 29.09.2011
Сообщений: 11
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Вдогонку))
Идея не моя, как-то видел - скрытие/отображение строк на время работы макроса
Во вложении оба примера
Этот мне понравился.
(В первом файле ничего не поняла).

А моя идея с формами не работает.

Спасибо.
TenRa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
CMS глазами новичка Linel WordPress и другие CMS 5 05.07.2010 18:21
Закрыть открыть книгу segail Microsoft Office Excel 14 07.10.2009 18:22
открыть книгу через vba ruavia3 Microsoft Office Excel 2 31.07.2009 16:39
Ищу книгу М. Фленов "Програм. delphi глазами хакера" 2-е издание Titan123 Свободное общение 10 15.10.2008 13:47
Открыть кнопкой книгу по запросу имени! gavs Microsoft Office Excel 7 30.08.2008 18:06