「呼叫」提醒彈出？

Question

我想知道如果有一個VBA代碼，我可以使用，如果列R中的日期是今天的日期，提醒框可以彈出並說「你有電話打」或沿着這些線？可能有許多日期相同，但只需打開工作表時打開的框以使員工查看其回叫列表。

我現在擁有的一切：

關於C在checkhere 如果c.Value =日期，那麼 MSGBOX 「你有一些回調，使」 退出對於 結束如果 下一個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 

Answer 1

將這個成 '的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