можно ли настроить оповещение, относительно СЕГОДНЯ (), что нужная дата наступит,например, сегодня/через три дня/неделю Оповещение в любом виде (но не выделение цветом). Может,что-то вроде предупреждения при открытии файла.
можно ли настроить оповещение, относительно СЕГОДНЯ (), что нужная дата наступит,например, сегодня/через три дня/неделю Оповещение в любом виде (но не выделение цветом). Может,что-то вроде предупреждения при открытии файла.Snow
Вы бы наглядно показали где и какие оповещения при каких условиях должны появляться. Насколько понял, то это вариант предупреждений о днях рождений. В таком случаем не лучше ли применить любой органайзер без привязки к XL?! Хотя в поиске можно найти и звуковые "алармы"...
Вы бы наглядно показали где и какие оповещения при каких условиях должны появляться. Насколько понял, то это вариант предупреждений о днях рождений. В таком случаем не лучше ли применить любой органайзер без привязки к XL?! Хотя в поиске можно найти и звуковые "алармы"... TimSha
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]
Так не пойдет? [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
Это макросом. Посмотрите такой вариант. Без макроса. Кол дней - в красной ячейке. Поставьте в В4 24/02/2015, например. Конечно, это просто демонстрационный вариант. Закрашиваемую область можно куда-то перенести (по желанию).
Добавил еще текст сообщения (подсмотрел хорошую идею у Марины) См. файл _2
Это макросом. Посмотрите такой вариант. Без макроса. Кол дней - в красной ячейке. Поставьте в В4 24/02/2015, например. Конечно, это просто демонстрационный вариант. Закрашиваемую область можно куда-то перенести (по желанию).
Добавил еще текст сообщения (подсмотрел хорошую идею у Марины) См. файл _2_Boroda_
Второй файл смотрели? Очень странно, что у Вас ничего не получилось. Кстати, сообщение появляется сразу после изменения даты. Сохранять-закрывать-открывать не обязательно. Хотя, если Вас макрос устраивает, то и ладно. только не забывайте при открытии файла разрешать макросы, иначе не покажет ничего.
Второй файл смотрели? Очень странно, что у Вас ничего не получилось. Кстати, сообщение появляется сразу после изменения даты. Сохранять-закрывать-открывать не обязательно. Хотя, если Вас макрос устраивает, то и ладно. только не забывайте при открытии файла разрешать макросы, иначе не покажет ничего._Boroda_
В файле _2 уже стоит дата 24.02.2015 и уже выведено сообщение. Вы ячейки Е1:N20 вообще видите? Пересохранил файл в xls. Посмотрите. У меня работает в 2003 и в 2010.
В файле _2 уже стоит дата 24.02.2015 и уже выведено сообщение. Вы ячейки Е1:N20 вообще видите? Пересохранил файл в xls. Посмотрите. У меня работает в 2003 и в 2010._Boroda_
Так не пойдет? 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]Создавайте свою тему.
Так не пойдет? 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