Всплывающее напоминание о звонке?

Мне интересно, есть ли код VBA, который я могу использовать, если дата в столбце R является сегодняшней датой, что окно напоминания может появиться и сказать: «вам нужно позвонить» или что-то в этом роде? Может быть множество одинаковых дат, но нужно только всплывающее окно при открытии рабочего листа, чтобы сотрудник мог просмотреть свой список обратных вызовов.

Что у меня есть сейчас:

Для каждого c In проверьте здесь If c.Value = Date Then MsgBox «У вас есть несколько обратных вызовов для выполнения» Exit For End If Next c

Dim NewControl As CommandBarControl
Application.CommandBars("Cell").Controls("Insert Date").Delete
Set NewControl = Application.CommandBars("Cell").Controls.Add
With NewControl
    .Caption = "Insert Date"
    .OnAction = "Module1.OpenCalendar"
    .BeginGroup = True
End With
 End Sub

excel vba popup userform
person user2216130    schedule 28.03.2013    source источник
comment
Вы можете использовать Workbook_Open(), чтобы проверить сегодняшнюю дату в Col R. Возможно, вы захотите попробовать и опубликовать код, который вы пробовали, чтобы мы могли вам помочь :)   -  person Siddharth Rout    schedule 28.03.2013

Ответы (1)


arrow_upward
3
arrow_downward

Поместите это в «ThisWorkbook»

            Private Sub Workbook_Open()

            Dim checkhere As Range

            Set sh = Sheets("yoursheethere")
            Set checkhere = sh.Range("R1:R" & sh.Range("R1").End(xlDown).Row)

            For Each c In checkhere

                If c.Value = Date Then
                MsgBox "You have some unanswered calls"
                Exit For
                End If
            Next c

            End Sub
person kaybee99    schedule 28.03.2013
comment
+ 1 Gr8 :) Возможно, вы захотите указать, на каком листе находится диапазон R, иначе он всегда будет принимать ActiveSheet;) - person Siddharth Rout; 28.03.2013
comment
Ах.. Я скопировал и вставил, но я думаю, что удалил часть моего другого кода.. теперь я полностью потерян!! Ой.. - person user2216130; 28.03.2013
comment
Вставьте его на пару строк ниже текста, который уже есть - person kaybee99; 28.03.2013
comment
Это отлично работает для одного листа в книге. Но каждый месяц — это отдельный лист. Как я могу изменить код для открытия для каждого листа? - person user2216130; 02.04.2013