日期 Validation/Open 工作簿 VBA

Question

我有一个工作簿，我正在尝试为工作簿打开时设置电子邮件通知。我打算触发通知的方法之一是基于日期验证。我正在尝试找出一个 VBA 解决方案，用于根据星期几刷新特定单元格的日期值。我有一行 7 个单元格（每个单元格代表星期日至星期六），我试图找出一个 sub 来填充这些单元格中的日期，因为它们与今天的日期相对应。例如，如果今天 = 星期四，子程序会知道 TODAY()=05/21/2015 并且这是单元格 5 中的开始日期，然后它可以根据与它们的距离计算出其他日期是什么5...这样的事情可行吗？我最初使用了大量的条件公式，但是尝试使用可以相互检查和平衡的公式处理如此多的列变得越来越混乱，这似乎是一个很好的追求...

我正在尝试勾勒出潜艇的外观，但我对如何参考 VBA 中的日期经验很少。有什么想法吗？

Answer 1

将其放入 Thisworkbook 模块

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

日期 Validation/Open 工作簿 VBA

Date Validation/Open Workbook VBA

excel

vba

conditional-statements