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

Вход

Регистрация

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

 

= Мир MS Excel/Напоминание дня рожденья - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминание дня рожденья (Макросы Sub)
Напоминание дня рожденья
VS Дата: Вторник, 30.07.2013, 11:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте,помогите пожалуисто, нужно чтобы когда ячейка Е2:Е23 окрасится в красный цвет,выскакивало сообщение напоминание о дне рохдения. заранее благодарен :)
К сообщению приложен файл: Baza_123.xlsm (31.3 Kb)


Сообщение отредактировал VS - Вторник, 30.07.2013, 11:26
 
Ответить
СообщениеЗдравствуйте,помогите пожалуисто, нужно чтобы когда ячейка Е2:Е23 окрасится в красный цвет,выскакивало сообщение напоминание о дне рохдения. заранее благодарен :)

Автор - VS
Дата добавления - 30.07.2013 в 11:25
Матраскин Дата: Вторник, 30.07.2013, 12:18 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
VS, http://www.excelworld.ru/forum/2-3937-1#41949
вот....использовал поиск ;)

P.s. там мои изыскания и неудачи )) и вывод, что отследить изменение цвета нельзя


в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Вторник, 30.07.2013, 12:20
 
Ответить
СообщениеVS, http://www.excelworld.ru/forum/2-3937-1#41949
вот....использовал поиск ;)

P.s. там мои изыскания и неудачи )) и вывод, что отследить изменение цвета нельзя

Автор - Матраскин
Дата добавления - 30.07.2013 в 12:18
Саня Дата: Вторник, 30.07.2013, 12:21 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
1. формулу в усл. форм. можно изменить на :
Код
= ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ($E2);ДЕНЬ($E2))   -   СЕГОДНЯ()          = 3


2. если ДР с 1 янв по 3 янв, то не будет работать, нужно усложнить формулу

3. в модуль "ЭтаКнига":
[vba]
Код
Private Sub Workbook_Open()
      Dim rng As Range, dte As Date
      For Each rng In Лист1.Range("E2:E23")
          dte = CDate(rng.Value)
          If DateSerial(0, Month(dte), Day(dte)) - _
             DateSerial(0, Month(Date), Day(Date)) = 3 Then
              MsgBox rng.Address
          End If
      Next rng
End Sub
[/vba]
 
Ответить
Сообщение1. формулу в усл. форм. можно изменить на :
Код
= ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ($E2);ДЕНЬ($E2))   -   СЕГОДНЯ()          = 3


2. если ДР с 1 янв по 3 янв, то не будет работать, нужно усложнить формулу

3. в модуль "ЭтаКнига":
[vba]
Код
Private Sub Workbook_Open()
      Dim rng As Range, dte As Date
      For Each rng In Лист1.Range("E2:E23")
          dte = CDate(rng.Value)
          If DateSerial(0, Month(dte), Day(dte)) - _
             DateSerial(0, Month(Date), Day(Date)) = 3 Then
              MsgBox rng.Address
          End If
      Next rng
End Sub
[/vba]

Автор - Саня
Дата добавления - 30.07.2013 в 12:21
VS Дата: Вторник, 30.07.2013, 13:10 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спосибо за ответы,а можно сделать чтобы когда ячейка будет красной,то рядом в ячейке отобажалась конкретная цифра,например 10
 
Ответить
СообщениеСпосибо за ответы,а можно сделать чтобы когда ячейка будет красной,то рядом в ячейке отобажалась конкретная цифра,например 10

Автор - VS
Дата добавления - 30.07.2013 в 13:10
SkyPro Дата: Вторник, 30.07.2013, 17:38 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
А вот так пойдет?
При открытии файла срабатывает.
К сообщению приложен файл: Baza_123-1-.xlsm (33.4 Kb)


skypro1111@gmail.com

Сообщение отредактировал SkyPro - Вторник, 30.07.2013, 17:41
 
Ответить
СообщениеА вот так пойдет?
При открытии файла срабатывает.

Автор - SkyPro
Дата добавления - 30.07.2013 в 17:38
VitLO Дата: Понедельник, 21.01.2019, 22:44 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго вечера всем участникам. Прошу помощи в корректировке кода. Необходимо всплывающее напоминание о заканчивающихся сроках страховых полисов, все данные хранятся в файле "Карточка учета" на листе "Осаго", но напоминание хотелось бы что бы выскакивало при открытии другого файла. Нашла на форуме код, но не могу его доработать под себя( Помогите пожалуйста в реализации)
[vba]
Код
Sub DOSAGO()
Dim BD
Dim i&
Dim dtNow$
Dim dtPrev$
dtNow = Day(Date) & "." & Month(Date) & "." & Year(Date)
    With Workbooks("C:\Учет страховых полисов\Карточка учета.xlsm").Sheets("ОСАГО") ' файл где хранятся данные
        BD = .Range("d3:d" & .[d65535].End(xlUp).Row)
    End With
    For i = 2 To UBound(BD)
dtPrev = Day(BD(i, 1)) & "." & Month(BD(i, 1)) & "." & Year(BD(i, 1))
dtRazn = DateDiff("d", dtNow, dtPrev)
        If dtRazn <= 3 And dtRazn >= 0 Then
            MsgBox "Через " & dtRazn & " дн. заканчивается страховой полис ОСАГО на автомобиль " & Cells(i + 1, 2) & " регистрационный номер " & Cells(i + 1, 1)
        End If
    Next
End Sub
[/vba]
К сообщению приложен файл: 1331619.xlsx (9.8 Kb)
 
Ответить
СообщениеДоброго вечера всем участникам. Прошу помощи в корректировке кода. Необходимо всплывающее напоминание о заканчивающихся сроках страховых полисов, все данные хранятся в файле "Карточка учета" на листе "Осаго", но напоминание хотелось бы что бы выскакивало при открытии другого файла. Нашла на форуме код, но не могу его доработать под себя( Помогите пожалуйста в реализации)
[vba]
Код
Sub DOSAGO()
Dim BD
Dim i&
Dim dtNow$
Dim dtPrev$
dtNow = Day(Date) & "." & Month(Date) & "." & Year(Date)
    With Workbooks("C:\Учет страховых полисов\Карточка учета.xlsm").Sheets("ОСАГО") ' файл где хранятся данные
        BD = .Range("d3:d" & .[d65535].End(xlUp).Row)
    End With
    For i = 2 To UBound(BD)
dtPrev = Day(BD(i, 1)) & "." & Month(BD(i, 1)) & "." & Year(BD(i, 1))
dtRazn = DateDiff("d", dtNow, dtPrev)
        If dtRazn <= 3 And dtRazn >= 0 Then
            MsgBox "Через " & dtRazn & " дн. заканчивается страховой полис ОСАГО на автомобиль " & Cells(i + 1, 2) & " регистрационный номер " & Cells(i + 1, 1)
        End If
    Next
End Sub
[/vba]

Автор - VitLO
Дата добавления - 21.01.2019 в 22:44
Pelena Дата: Понедельник, 21.01.2019, 22:55 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
VitLO, Ваш вопрос не относится к теме Напоминание дня рожденья
Прочитайте Правила форума и создайте свою тему. Эта тема закрыта


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеVitLO, Ваш вопрос не относится к теме Напоминание дня рожденья
Прочитайте Правила форума и создайте свою тему. Эта тема закрыта

Автор - Pelena
Дата добавления - 21.01.2019 в 22:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминание дня рожденья (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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