Напоминание дня рожденья

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

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

Напоминание дня рожденья (Макросы Sub)

Дата: Вторник, 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

Ответить

Матраскин

Дата: Вторник, 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

Ответить

Саня

Дата: Вторник, 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]

Ответить

Дата: Вторник, 30.07.2013, 13:10 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Спосибо за ответы,а можно сделать чтобы когда ячейка будет красной,то рядом в ячейке отобажалась конкретная цифра,например 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

Ответить

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)

Ответить

Pelena

Дата: Понедельник, 21.01.2019, 22:55 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19401

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

Замечаний: ±

Excel 365 & Mac Excel

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Напоминание дня рожденья (Макросы Sub)

Страница 1 из 1
1