Excel VBA代码运行触发类型不匹配错误，请求排查解决帮助

核心错误点分析 #

1. 日期字符串拼接笔误
   你代码里的日期拼接有明显错误：(CB_Mth.Value) & "1/1" & (CB_Yr.Value) 应该是 CB_Mth.Value & "/1/" & CB_Yr.Value —— 你把日期分隔符写成了1，导致生成的字符串（比如11/12024）根本不是合法日期格式，Weekday和DateAdd函数无法将其转换为日期类型，直接触发「类型不匹配」错误。

2. 月份比较的类型/内容不匹配
   Format(..., "mmm") 返回的是英文月份缩写（比如Jan、Feb），但如果你的CB_Mth.Value是数字（比如1代表一月）或者中文月份名称，两者的类型或内容不匹配，也会导致比较时的类型错误。

3. 日期比较的格式不一致
   你用Format(..., "d/m/yyyy")（四位年份）和Format(ThisDay, "d/m/yy")（两位年份）做比较，即使是同一天，字符串也会不相等；另外如果ThisDay不是日期类型变量，也会触发类型错误。

4. 语法缺失（次要但影响运行）
   代码末尾的Next没有对应的For循环，这会导致语法错误，需要补充完整循环结构。

修正后的完整代码 #

Sub UpdateCalendar()
    Dim i As Integer
    Dim targetDate As Date
    Dim firstDayOfMonth As Date
    Dim cbMonth As Integer
    Dim cbYear As Integer
    
    ' 先将控件值转换为数字，避免类型问题
    cbMonth = Val(CB_Mth.Value)
    cbYear = Val(CB_Yr.Value)
    
    ' 生成当月第一天的日期（彻底避免字符串拼接错误）
    firstDayOfMonth = DateSerial(cbYear, cbMonth, 1)
    
    ' 补充For循环（假设i是日历控件的天数范围，比如1到42）
    For i = 1 To 42
        ' 计算当前循环对应的日期
        targetDate = DateAdd("d", i - Weekday(firstDayOfMonth), firstDayOfMonth)
        
        ' 检查该日期是否属于当前选中的月份
        If Month(targetDate) = cbMonth Then
            ' 切换控件背景色和字体样式
            If Controls("D" & i).BackColor <> &H99FF33 Then
                Controls("D" & i).BackColor = &H99FF33
                Controls("D" & i).Font.Bold = True
                
                ' 直接用日期类型比较是否为当天，避免Format转换错误
                If targetDate = Date Then
                    Controls("D" & i).SetFocus
                End If
            Else
                ' 简化重复逻辑，统一设置样式
                Controls("D" & i).BackColor = &H99FF33
                Controls("D" & i).Font.Bold = False
            End If
        End If
    Next i
End Sub

关键修改说明 #

• 用DateSerial生成当月第一天，彻底避免字符串拼接导致的日期格式错误，从根源解决类型不匹配。
• 直接用Month(targetDate)和选中的月份数字比较，避免字符串格式不一致的问题。
• 日期比较直接用日期类型变量对比（targetDate = Date），不用Format转换为字符串，既高效又避免类型错误。
• 补充了完整的For循环结构，修正语法错误。
• 先将控件值转换为整数，避免控件返回字符串导致的类型问题。

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