如何用VBA为指定单元格区域添加横竖边框及自定义填充色？

以下是满足你需求的修改后代码，同时补充了原代码缺失的「勾选显示/取消勾选隐藏」核心逻辑：

Private Sub CheckBox5_Click()
    With ActiveSheet
        If CheckBox5.Value = True Then
            ' 显示E4:F11所在行
            .Range("E4:F11").EntireRow.Hidden = False
            
            ' 给整个区域设置红色填充、黑色字体，清除旧边框
            With .Range("E4:F11")
                .Interior.Color = RGB(220, 86, 65)
                .Font.Color = RGB(0, 0, 0)
                .Borders.LineStyle = xlNone
            End With
            
            ' 将指定单元格填充为白色
            .Range("E5,E7,E9,E11").Interior.Color = vbWhite
            
            ' 添加区域外粗边框
            .Range("E4:F11").BorderAround _
                LineStyle:=xlContinuous, _
                Weight:=xlThick, _
                Color:=RGB(0, 0, 0)
            
            ' 给指定行添加底部细边框
            Dim targetRanges As Variant
            targetRanges = Array("E5:F5", "E7:F7", "E9:F9")
            Dim rngItem As Variant
            For Each rngItem In targetRanges
                With .Range(rngItem).Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .Color = RGB(0, 0, 0)
                End With
            Next rngItem
            
        Else
            ' 隐藏E4:F11所在行
            .Range("E4:F11").EntireRow.Hidden = True
            
            ' 清除区域格式（隐藏后可选操作，恢复默认状态）
            With .Range("E4:F11")
                .Font.Color = RGB(255, 255, 255)
                .Interior.ColorIndex = xlNone
                .Borders.LineStyle = xlNone
            End With
        End If
    End With
End Sub

关键修改说明 #

• 补全显示/隐藏逻辑：通过EntireRow.Hidden直接控制区域可见性，匹配你描述的需求
• 分层设置填充色：先给整个区域统一红色填充，再单独覆盖指定单元格为白色，确保格式覆盖准确
• 边框处理优化：先清除旧边框再重新设置，避免残留格式干扰；外粗边框保留的同时，通过循环批量给指定行添加底部细边框
• 状态判断优化：直接使用复选框的Value属性判断勾选状态，比依赖单元格颜色更稳定可靠

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