Расписание сотрудников с будильником.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Расписание сотрудников с будильником. (Макрос VBA)

SkyPro

Дата: Пятница, 15.03.2013, 15:06 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Добрый день, уважаемые форумчане.
Возник вопрос, можно ли при помощи VBA сделать своеобразный "будильник"
Есть табличка с расписанием (см. вложения).
Необходимо, что бы при совпадении значения ячейки А1 (текущее время, либо просто "now") с ячейкой С2 (дата) и С6 (время) - выскакивало сообщение с текстом из ячейки В6.

Кто подскажет, как это реализовать в VBA?
Заранее спасибо за помощь.

ЗЫ: в файле уже есть макрос на текущее время в ячейке А1

К сообщению приложен файл: primer.xls (64.0 Kb)

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 15.03.2013, 15:10

Ответить

light26

Дата: Пятница, 15.03.2013, 16:05 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1352

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Я один не смог закрыть книгу до тех пор, пока не удалил модуль?
SkyPro, а решение обязательно должно быть выполнено макросом?
На мой взгляд вполне можно обойтись формулой.
Уточните что Вы желаете получить в итоге

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Пятница, 15.03.2013, 16:08

Ответить

SkyPro

Дата: Суббота, 16.03.2013, 01:34 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

К примеру, если текущая дата 18.03.13(ячейка С2) и время 10:00 (ячейка С6, С8 и С9), то выскакивает сообщение с текстом из ячеек В6, В8 и В9.
Если это можно реализовать формулами - буду рад помощи.

skypro1111@gmail.com

Ответить

SkyPro

Дата: Среда, 20.03.2013, 14:35 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Сделал формулами.
Правда формула получилась гигантская..

Код

=ЕСЛИ(И(ЗНАЧЕН(СЦЕПИТЬ(ДАТА(ГОД(ТДАТА());МЕСЯЦ(ТДАТА());ДЕНЬ(ТДАТА()));ВРЕМЯ(ЧАС(ТДАТА());МИНУТЫ(ТДАТА());СЕКУНДЫ(ТДАТА()))))>ЗНАЧЕН(СЦЕПИТЬ(ДАТА(ГОД(C$2);МЕСЯЦ(C$2);ДЕНЬ(C$2));ВРЕМЯ(ЧАС(C4);МИНУТЫ(C4)+5;СЕКУНДЫ(C4))));ЗНАЧЕН(СЦЕПИТЬ(ДАТА(ГОД(ТДАТА());МЕСЯЦ(ТДАТА());ДЕНЬ(ТДАТА()));ВРЕМЯ(ЧАС(ТДАТА());МИНУТЫ(ТДАТА());СЕКУНДЫ(ТДАТА()))))<ЗНАЧЕН(СЦЕПИТЬ(ДАТА(ГОД(C$2);МЕСЯЦ(C$2);ДЕНЬ(C$2));ВРЕМЯ(ЧАС(D4);МИНУТЫ(D4);СЕКУНДЫ(D4)))));"Р";"")

Может кто её "укоротит" ?

+ еще не додумался как сделать "msgbox" с текстом из столбца В, при появлении значения "Р" в ячейках.

Помогите, пожалуйста smile