Excel宏可识别今天的哪一天

时间:2015-08-29 18:54:43

标签: excel vba excel-vba

我想创建一个宏来查看今天的哪一天(星期一,星期二,星期三等),如果这一天是星期六或星期日那么宏将会停止一切,但如果它是工作日(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
带有**的零件是我需要帮助搞清楚的零件。如果有人最终搞清楚这一点,你能解释一下你是如何想出解决方案的吗?尝试更多地学习和理解宏。

1 个答案:

答案 0 :(得分:8)

你去......

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

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

我已指示它在星期一开始这一周,因此星期六将是6,星期日将是7。