Excel VBA实现按单元格数据自动隐藏/显示多站点日历列

原代码核心问题 #

• 遍历范围错误：整列包含顶部日期行，未限定到员工工时行（4-40行）
• 逻辑错误：原代码碰到第一个0就隐藏列，碰到第一个>0就终止流程，完全不符合「整列员工工时全为0才隐藏」的需求
• 覆盖范围不足：仅处理单列CS，未覆盖站点A(B-H)、站点B(I-P)的目标列

修正后的完整VBA代码 #

Private Sub ToggleButton14_Click()
    Dim targetCols As Variant
    Dim col As Variant
    Dim checkRange As Range
    Dim nonZeroCount As Long
    
    ' 定义需要处理的所有目标列：站点A(B-H)、站点B(I-P)
    targetCols = Array("B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P")
    
    ' 遍历每一列
    For Each col In targetCols
        ' 限定检查范围：当前列的第4行到第40行（排除顶部日期行）
        Set checkRange = ActiveSheet.Range(col & "4:" & col & "40")
        
        ' 统计范围内大于0的单元格数量
        nonZeroCount = WorksheetFunction.CountIf(checkRange, ">0")
        
        ' 判断是否隐藏列：全0则隐藏，否则显示
        If nonZeroCount = 0 Then
            checkRange.EntireColumn.Hidden = True
        Else
            checkRange.EntireColumn.Hidden = False
        End If
    Next col
End Sub

代码关键说明 #

• 目标列定义：用数组一次性列出所有需要处理的列，避免重复代码
• 范围限定：明确只检查员工工时所在的4-40行，排除顶部日期单元格的干扰
• 高效判断：用CountIf函数直接统计非0单元格数量，比遍历每个单元格更高效且逻辑清晰
• 统一处理：循环覆盖所有站点的日期列，一次完成所有列的显示/隐藏判断

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