Excel VBA按月份隐藏列异常：仅显示每月前28天问题排查

问题场景 #

帮厨师优化Excel入住计划，通过VBA实现隐藏非指定月份的列，但当前代码仅能显示到每月28号的列，效果不符合预期。

原代码 #

Sub montatslen()

Dim spaltenr As Integer

For spaltenr = 32 To 34
    If Cells(3, 7).Value = Month(Cells(14, spaltenr).Value) Then
        Columns(spaltenr).EntireColumn.Hidden = False
    Else
        Columns(spaltenr).EntireColumn.Hidden = True
    End If
Next spaltenr
End Sub

问题分析 #

1. 循环范围过小：原代码仅遍历第32到34列，对应29、30、31号的日期列根本没被处理，自然无法显示这些列。
2. 无日期有效性校验：如果Cells(14, spaltenr)不是有效日期格式，Month()函数会触发错误，导致代码中断或逻辑异常。
3. 目标月份未做有效性检查：若Cells(3,7)（G3单元格）的值不是1-12的数字，会直接导致判断逻辑失效。

修正后的代码 #

Sub montatslen()
    Dim spaltenr As Integer
    Dim targetMonth As Integer
    Dim cellDate As Variant
    
    ' 获取目标月份并校验有效性
    targetMonth = Cells(3, 7).Value
    If targetMonth < 1 Or targetMonth > 12 Then
        MsgBox "G3单元格的月份值无效，请输入1-12的数字！"
        Exit Sub
    End If
    
    ' 循环范围根据实际表格调整，这里假设日期列从32到62列（覆盖最多31天的月份）
    For spaltenr = 32 To 62
        cellDate = Cells(14, spaltenr).Value
        ' 仅处理有效日期的列
        If IsDate(cellDate) Then
            Columns(spaltenr).EntireColumn.Hidden = (Month(cellDate) <> targetMonth)
        Else
            ' 非日期列默认隐藏，可根据需求修改
            Columns(spaltenr).EntireColumn.Hidden = True
        End If
    Next spaltenr
End Sub

修正说明 #

• 扩大循环列范围：根据实际表格中日期列的起止，调整32 To 62的数值，确保覆盖所有日期列。
• 增加有效性校验：提前检查目标月份和单元格日期的有效性，避免逻辑错误或代码崩溃。
• 简化隐藏逻辑：用(Month(cellDate) <> targetMonth)直接赋值给Hidden属性，代码更简洁。

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