0

列Rの日付が今日の日付である場合に使用できるVBAコードがあるかどうか疑問に思っています。リマインダーボックスがポップアップして、「電話をかける必要があります」などと言うことができますか？同じ日付が多数存在する場合がありますが、必要なのはワークシートを開いたときにポップアップするボックスだけで、従業員にコールバック リストを確認させることができます。

私が今持っているもの：

For Each c In checkhere 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
4

1 に答える 1

3

これを「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
于 2013-03-28T17:12:51.997 に答える