datevalidation/打开工作簿VBA

我有一个工作簿，我正试图设置每当打开工作簿的电子邮件通知。 我打算触发通知的方式之一是基于datevalidation。 我试图找出一个VBA解决scheme刷新特定单元格的date值取决于一周中的天数。 我有一行7个单元格（每个代表星期天 – 星期六），并试图找出一个将填充这些单元格中的date，因为它们与今天的date相符。 例如，如果今天=星期四，小组将知道TODAY（）= 05/21/2015，这是单元格5中的开始date，然后可以计算出其他date取决于它们与5 …这是可行的吗？ 我原本是在大量的条件公式中工作，但是试图处理如此多的公式以便互相检查和平衡，这似乎是一个很好的途径…

我正在试图勾勒出sub需要怎么样，但是我在如何在VBA中引用date的经验很less。 有什么想法吗？

Answer 1

进入这个工作簿模块

private sub workbook_open Dim dayOfWeek As String Dim i As Integer dayOfWeek = Weekday(Date) Select Case dayOfWeek Case "1" For i = 1 To 7 Cells(1, i).Value = Date + i - 1 Next i Case "2" For i = 1 To 7 Cells(1, i).Value = Date + i - 2 Next i Case "3" For i = 1 To 7 Cells(1, i).Value = Date + i - 3 Next i Case "4" For i = 1 To 7 Cells(1, i).Value = Date + i - 4 Next i Case "5" For i = 1 To 7 Cells(1, i).Value = Date + i - 5 Next i Case "6" For i = 1 To 7 Cells(1, i).Value = Date + i - 6 Next i Case "7" For i = 1 To 7 Cells(1, i).Value = Date + i - 7 Next i End Select End Sub