|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.02.2013, 20:21 | #1 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Исчезновение CommandButton через заданный промежуток времени.
Форма появляется при открытии книги. Подскажите как сделать чтобы кнопка на форме после открытия исчезла через 10 минут.
|
14.02.2013, 20:36 | #2 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
В форме пишем
Код:
Код:
Заказать макрос можно на сайте http://excel4you.ru/
|
14.02.2013, 21:24 | #3 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Спасибо работает!
А скажите что нужно добавить в код . Кнопка исчезла через 10 мин. При закрытии формы и последующем открытии формы она не появлялась, а появлялась только при открытии самой книги ( если я закрою книгу и открою ее, кнопка появится, если закрою форму и открою ее -кнопка не появится) |
14.02.2013, 21:51 | #4 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Код:
Заказать макрос можно на сайте http://excel4you.ru/
|
14.02.2013, 22:10 | #5 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
ИМХО это не решит проблему. Надо где-то хранить инф. о том, что кнопка уже отображалась в течение 10 мин.
Код:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
14.02.2013, 22:37 | #6 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Спасибо большое!
|
14.02.2013, 22:58 | #7 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ещё нужно на закрытие этой книги поставить отмену этого Application.OnTime.
Иначе если например через минуту закрыть файл, но не закрывать Эксель - через 9 минут скорее всего откроется этот файл, чтоб спрятать кнопку (не проверял с этим кодом, но обычно так и бывает). Если так - то время запуска нужно задавать через переменную, её же и использовать при отмене.
webmoney: E265281470651 Z422237915069 R418926282008
|
14.02.2013, 23:09 | #8 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
А как поставить отмену этого Application.OnTime?
Или время запуска задавать через переменную? Появляется ошибка через 4 сек Application.OnTime Now + TimeValue("00:00:05"), "myHide" If ThisWorkbook.btn_hid Then CommandButton6.Visible = False Else Application.OnTime Now + TimeValue("00:00:05"), "myHide" End If Последний раз редактировалось and150382; 14.02.2013 в 23:19. |
14.02.2013, 23:27 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Схема такая (надеюсь прикрутите к событиям):
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 14.02.2013 в 23:40. |
14.02.2013, 23:40 | #10 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Что то я теперь вообще запутался в этом коде.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выполнение действия через промежуток времени | chingiz | Общие вопросы Delphi | 37 | 03.10.2012 11:33 |
Присваивание значения через промежуток времени | Epc | Помощь студентам | 43 | 06.11.2010 15:27 |
Обновление связей между файлами через заданный промежуток времени | alleo | Microsoft Office Excel | 2 | 21.10.2010 13:39 |
Программа для воспроизведения тонового звука через промежуток времени | Vl-sn | Помощь студентам | 9 | 12.03.2010 20:27 |
указатель мыши автоматически должен совершать клик по заданному месту на экране, через промежуток времени | Deefrost | Qt и кроссплатформенное программирование С/С++ | 5 | 16.05.2008 20:25 |