vba - Excel 宏识别今天是星期几

Question

这个问题已经有答案了:

How to determine if a date falls on the weekend? (4 个回答)

已关闭 8 年前。

我想创建一个宏来查看今天是一周中的哪一天(星期一、星期二、星期三等)，如果这一天是星期六或星期日，那么宏将停止一切，但如果是工作日(M、T、W、Th 或 F)，那么它将调用下一个 Sub。

Private Sub Workbook_Open()
    **If today is Saturday or Sunday Then**
        **do nothing**
        Else
        Call Populate_Workbook()
      End If
End Sub

带有 ** 的部分是我需要帮助弄清楚的部分。如果有人最终解决了这个问题，您能解释一下您是如何想出解决方案的吗？尝试更多地学习和理解宏。

Answer 1

给你...

Private Sub Workbook_Open()
    If Weekday(Date, vbMonday) < 6 Then Populate_Workbook
End Sub

Weekday() 函数有一个可选的第二个参数，告诉它一周从哪一天开始。 Weekday() 函数返回 1 到 7 之间的整数。

我已指示它从星期一开始一周，因此星期六为 6，星期日为 7。