Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение времени между работой макросов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Изменение времени между работой макросов
pechkin Дата: Четверг, 19.12.2019, 12:01 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Подскажите пожалуйста возможное решение в следующей ситуации. Макрос увеличивает на единицу дату в ячейке по щелчку кнопки. Если кнопка расположена на форме, то необходимо ждать какое-то время между нажатиями для увеличения даты(при первом нажатии срабатывает нормально) Тот же макрос, но запускаемый с кнопки через элементы управления, нареканий не вызывает. Оно как- то и подождать можно между щелчками кнопки на форме, но может кто сталкивался и знает лекарство. Спасибо!
К сообщению приложен файл: 111.xls (45.5 Kb)


Сообщение отредактировал pechkin - Четверг, 19.12.2019, 13:54
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста возможное решение в следующей ситуации. Макрос увеличивает на единицу дату в ячейке по щелчку кнопки. Если кнопка расположена на форме, то необходимо ждать какое-то время между нажатиями для увеличения даты(при первом нажатии срабатывает нормально) Тот же макрос, но запускаемый с кнопки через элементы управления, нареканий не вызывает. Оно как- то и подождать можно между щелчками кнопки на форме, но может кто сталкивался и знает лекарство. Спасибо!

Автор - pechkin
Дата добавления - 19.12.2019 в 12:01
_Boroda_ Дата: Четверг, 19.12.2019, 16:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub CommandButton1_Click()
CommandButton1.Enabled = 0
Call Дата
CommandButton1.Enabled = 1
End Sub
[/vba]
На первую кнопку написал, на вторую для сравнения не написал
К сообщению приложен файл: 111-4-1.xls (59.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub CommandButton1_Click()
CommandButton1.Enabled = 0
Call Дата
CommandButton1.Enabled = 1
End Sub
[/vba]
На первую кнопку написал, на вторую для сравнения не написал

Автор - _Boroda_
Дата добавления - 19.12.2019 в 16:24
pechkin Дата: Четверг, 19.12.2019, 17:44 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Спасибо! То, что доктор прописал!
 
Ответить
СообщениеСпасибо! То, что доктор прописал!

Автор - pechkin
Дата добавления - 19.12.2019 в 17:44
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!