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

Вход

Регистрация

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

 

= Мир MS Excel/Оповещение о наступлении даты - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Оповещение о наступлении даты
Snow Дата: Пятница, 20.02.2015, 10:10 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007,2010
можно ли настроить оповещение, относительно СЕГОДНЯ (), что нужная дата наступит,например, сегодня/через три дня/неделю
Оповещение в любом виде (но не выделение цветом). Может,что-то вроде предупреждения при открытии файла.
К сообщению приложен файл: 5614274.xlsx (10.2 Kb)
 
Ответить
Сообщениеможно ли настроить оповещение, относительно СЕГОДНЯ (), что нужная дата наступит,например, сегодня/через три дня/неделю
Оповещение в любом виде (но не выделение цветом). Может,что-то вроде предупреждения при открытии файла.

Автор - Snow
Дата добавления - 20.02.2015 в 10:10
TimSha Дата: Пятница, 20.02.2015, 10:28 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 94 ±
Замечаний: 0% ±

Excel 2013 Pro +
Вы бы наглядно показали где и какие оповещения при каких условиях должны появляться.
Насколько понял, то это вариант предупреждений о днях рождений. В таком случаем не лучше ли применить любой органайзер без привязки к XL?!
Хотя в поиске можно найти и звуковые "алармы"... ;)


"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Ответить
СообщениеВы бы наглядно показали где и какие оповещения при каких условиях должны появляться.
Насколько понял, то это вариант предупреждений о днях рождений. В таком случаем не лучше ли применить любой органайзер без привязки к XL?!
Хотя в поиске можно найти и звуковые "алармы"... ;)

Автор - TimSha
Дата добавления - 20.02.2015 в 10:28
Manyasha Дата: Пятница, 20.02.2015, 10:38 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
Так не пойдет?
[vba]
Код
Private Sub Workbook_Open()
     i = 2
     While (Cells(i, 2).Value - Cells(1, 3) < 0) And Cells(i, 2).Value <> ""
         i = i + 1
     Wend
      
     d = Format((Cells(i, 2).Value - Cells(1, 3)), "0")
     If d > 0 Then MsgBox "Ближайшая дата наступит через " & d & " дня/ей"
     If d = 0 Then MsgBox "Ближайшая дата - сегодня"
End Sub
[/vba]
К сообщению приложен файл: 123.xlsm (18.3 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеТак не пойдет?
[vba]
Код
Private Sub Workbook_Open()
     i = 2
     While (Cells(i, 2).Value - Cells(1, 3) < 0) And Cells(i, 2).Value <> ""
         i = i + 1
     Wend
      
     d = Format((Cells(i, 2).Value - Cells(1, 3)), "0")
     If d > 0 Then MsgBox "Ближайшая дата наступит через " & d & " дня/ей"
     If d = 0 Then MsgBox "Ближайшая дата - сегодня"
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 20.02.2015 в 10:38
_Boroda_ Дата: Пятница, 20.02.2015, 10:44 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
что-то вроде предупреждения при открытии файла.

Это макросом.
Посмотрите такой вариант. Без макроса. Кол дней - в красной ячейке. Поставьте в В4 24/02/2015, например.
Конечно, это просто демонстрационный вариант. Закрашиваемую область можно куда-то перенести (по желанию).

Добавил еще текст сообщения (подсмотрел хорошую идею у Марины)
См. файл _2
К сообщению приложен файл: 5614274_1.xlsx (11.7 Kb) · 5614274_2.xlsx (11.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
что-то вроде предупреждения при открытии файла.

Это макросом.
Посмотрите такой вариант. Без макроса. Кол дней - в красной ячейке. Поставьте в В4 24/02/2015, например.
Конечно, это просто демонстрационный вариант. Закрашиваемую область можно куда-то перенести (по желанию).

Добавил еще текст сообщения (подсмотрел хорошую идею у Марины)
См. файл _2

Автор - _Boroda_
Дата добавления - 20.02.2015 в 10:44
Snow Дата: Пятница, 20.02.2015, 11:48 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007,2010
Так не пойдет?

Так хорошо. hands
Спасибо.
Посмотрите такой вариант. Без макроса.

А так не получается ничего. Может, я что не так делаю. В красную ячейку вставила дату 24/02/2015, сохранила,закрыла,открыла. Ничего.
 
Ответить
Сообщение
Так не пойдет?

Так хорошо. hands
Спасибо.
Посмотрите такой вариант. Без макроса.

А так не получается ничего. Может, я что не так делаю. В красную ячейку вставила дату 24/02/2015, сохранила,закрыла,открыла. Ничего.

Автор - Snow
Дата добавления - 20.02.2015 в 11:48
_Boroda_ Дата: Пятница, 20.02.2015, 11:53 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А так не получается ничего.

Второй файл смотрели?
Очень странно, что у Вас ничего не получилось. Кстати, сообщение появляется сразу после изменения даты. Сохранять-закрывать-открывать не обязательно.
Хотя, если Вас макрос устраивает, то и ладно.
только не забывайте при открытии файла разрешать макросы, иначе не покажет ничего.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
А так не получается ничего.

Второй файл смотрели?
Очень странно, что у Вас ничего не получилось. Кстати, сообщение появляется сразу после изменения даты. Сохранять-закрывать-открывать не обязательно.
Хотя, если Вас макрос устраивает, то и ладно.
только не забывайте при открытии файла разрешать макросы, иначе не покажет ничего.

Автор - _Boroda_
Дата добавления - 20.02.2015 в 11:53
Snow Дата: Пятница, 20.02.2015, 12:00 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007,2010
да.а что должно произойти ? ))
"Ближайший др" напишет?
 
Ответить
Сообщениеда.а что должно произойти ? ))
"Ближайший др" напишет?

Автор - Snow
Дата добавления - 20.02.2015 в 12:00
Snow Дата: Пятница, 20.02.2015, 12:01 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007,2010
я хочу попробовать оба варианта.
выберу ,каким удобнее пользоваться.
:)
 
Ответить
Сообщениея хочу попробовать оба варианта.
выберу ,каким удобнее пользоваться.
:)

Автор - Snow
Дата добавления - 20.02.2015 в 12:01
_Boroda_ Дата: Пятница, 20.02.2015, 12:06 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация: 6611 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
В файле _2 уже стоит дата 24.02.2015 и уже выведено сообщение.
Вы ячейки Е1:N20 вообще видите?
Пересохранил файл в xls. Посмотрите. У меня работает в 2003 и в 2010.
К сообщению приложен файл: 5614274_23.xls (54.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ файле _2 уже стоит дата 24.02.2015 и уже выведено сообщение.
Вы ячейки Е1:N20 вообще видите?
Пересохранил файл в xls. Посмотрите. У меня работает в 2003 и в 2010.

Автор - _Boroda_
Дата добавления - 20.02.2015 в 12:06
Snow Дата: Пятница, 20.02.2015, 12:09 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007,2010
теперь работает, спасибо clap
 
Ответить
Сообщениетеперь работает, спасибо clap

Автор - Snow
Дата добавления - 20.02.2015 в 12:09
alex116 Дата: Четверг, 22.10.2015, 22:27 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Так не пойдет?
Private Sub Workbook_Open()
i = 2
While (Cells(i, 2).Value - Cells(1, 3) < 0) And Cells(i, 2).Value <> ""
i = i + 1
Wend

d = Format((Cells(i, 2).Value - Cells(1, 3)), "0")
If d > 0 Then MsgBox "Ближайшая дата наступит через " & d & " дня/ей"
If d = 0 Then MsgBox "Ближайшая дата - сегодня"
End Sub
К сообщению приложен файл: 123.xlsm(18Kb)

Этот макрос выводит уведомление только о самой верхней ячейке в столбце. Помогите разобраться.
[moder]Создавайте свою тему.
К сообщению приложен файл: 12345.xlsm (21.3 Kb)


Сообщение отредактировал _Boroda_ - Пятница, 23.10.2015, 00:00
 
Ответить
Сообщение
Так не пойдет?
Private Sub Workbook_Open()
i = 2
While (Cells(i, 2).Value - Cells(1, 3) < 0) And Cells(i, 2).Value <> ""
i = i + 1
Wend

d = Format((Cells(i, 2).Value - Cells(1, 3)), "0")
If d > 0 Then MsgBox "Ближайшая дата наступит через " & d & " дня/ей"
If d = 0 Then MsgBox "Ближайшая дата - сегодня"
End Sub
К сообщению приложен файл: 123.xlsm(18Kb)

Этот макрос выводит уведомление только о самой верхней ячейке в столбце. Помогите разобраться.
[moder]Создавайте свою тему.

Автор - alex116
Дата добавления - 22.10.2015 в 22:27
  • Страница 1 из 1
  • 1
Поиск:

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