我想创建一个宏来查看今天的哪一天(星期一,星期二,星期三等),如果这一天是星期六或星期日那么宏将会停止一切,但如果它是工作日(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
带有**的零件是我需要帮助搞清楚的零件。如果有人最终搞清楚这一点,你能解释一下你是如何想出解决方案的吗?尝试更多地学习和理解宏。
答案 0 :(得分:8)
你去......
Private Sub Workbook_Open()
If Weekday(Date, vbMonday) < 6 Then Populate_Workbook
End Sub
Weekday()函数有一个可选的第二个参数,告诉它一周的哪一天开始。 Weekday()函数返回1到7之间的整数。
我已指示它在星期一开始这一周,因此星期六将是6,星期日将是7。