按星期几自动运行对应Macro：现有VBA代码故障排查求助

嘿，我帮你排查下这段VBA代码的问题，主要有几个关键错误导致它无法正常工作：

1. Weekday函数参数使用错误 #

你在每个If判断里都给Weekday传了不同的起始日参数（比如vbMonday、vbTuesday），这完全搞错了这个参数的作用！Weekday的第二个参数是定义一周的第一天，不是用来匹配当前星期的标识。举个例子：

• 当你写Weekday(sDate, vbMonday) = 2时，因为你把周一设为一周第一天，此时周一返回1，周二返回2，这就导致你的判断逻辑完全错位了。

2. 冗余的日期字符串转换 #

Date本身就是VBA的日期型变量，直接传给Weekday函数就行，没必要转成ddmmyyyy格式的字符串，这一步完全多余，还可能引入潜在的类型转换问题。

3. 语法错误：Else If应该写成ElseIf #

VBA里的多分支判断是ElseIf（连写），分开写的Else If会导致编译失败，这是很容易忽略的语法细节。

修正后的代码（更简洁易读的版本） #

我用Select Case替代了一堆If-ElseIf，逻辑更清晰，也避免了参数误用的问题：

Private Sub Workbook_Open()
    Dim currentWeekday As Integer
    ' 这里用vbSunday定义周日为一周第一天，返回值：1=周日，2=周一...7=周六
    currentWeekday = Weekday(Date, vbSunday)
    
    Select Case currentWeekday
        Case 1
            SundayEfficiency ' Call关键字可以省略，直接写宏名即可
        Case 2
            MondayEfficiency
        Case 3
            TuesdayEfficiency
        Case 4
            WednesdayEfficiency
        Case 5
            ThursdayEfficiency
        Case 6
            FridayEfficiency
        Case 7
            SaturdayEfficiency
    End Select
End Sub

额外注意事项 #

• 确保你的7个宏（比如SundayEfficiency）都存放在标准模块里（不是工作表或ThisWorkbook模块），并且是Public类型（默认新建的宏就是Public，除非你特意改成Private），不然Workbook_Open可能无法调用到它们。
• 打开工作簿时要启用宏，不然自动运行的逻辑不会触发。
• 如果习惯以周一作为一周的第一天，只需把vbSunday改成vbMonday，对应的Case值也要调整：1=周一，2=周二...7=周日。

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