如何用Excel VBA实现：若今天为周一则在Label1显示指定内容，否则隐藏标签？

以下是实现需求的VBA代码，可根据Label1所在位置（工作表或用户窗体）选择对应模块放置：

Sub CheckMondayAndUpdateLabel()
    ' 判断当前日期是否为周一
    If Weekday(Date, vbMonday) = 1 Then
        ' 是周一，显示Label1并设置文本
        Label1.Visible = True
        Label1.Caption = "Today is Monday"
    Else
        ' 不是周一，隐藏Label1
        Label1.Visible = False
    End If
End Sub

关键细节说明 #

• Weekday(Date, vbMonday)：指定周一为一周的起始日，此时周一返回数值1，周二到周日依次返回2-7，判断逻辑更直观。若不指定参数，默认周日为起始日，周一返回2，也可改用Weekday(Date) = 2实现判断，但前者可读性更强。
• Label1.Visible：控制控件的显示状态，True为显示，False为隐藏。
• Label1.Caption：设置Label控件的显示文本内容。

场景化使用示例 #

• 若Label1在工作表中，可将代码绑定到工作表激活事件，每次打开或切换到该工作表自动执行：

Private Sub Worksheet_Activate()
    CheckMondayAndUpdateLabel
End Sub

• 若Label1在用户窗体中，可将代码绑定到窗体初始化事件，窗体加载时自动执行：

Private Sub UserForm_Initialize()
    CheckMondayAndUpdateLabel
End Sub

内容的提问来源于stack exchange，提问作者Mahmut