如何用VBA为Excel单元格设置字体、填充及边框的条件格式？

是的，完全可以通过VBA为Excel单元格设置基于公式条件的条件格式，同时修改字体颜色、单元格填充色和边框样式。你遇到的运行时错误1004是由于在设置边框时不必要的属性操作导致的。

问题原因 #

你的代码中尝试为边框设置.TintAndShade = 0，但该属性对于条件格式中的边框并非必需，且在部分Excel版本中会引发权限错误。此外，InputSheet变量未提前声明和赋值，也可能导致潜在问题。

修正后的示例代码 #

Sub FormatCellsWithConditionalFormatting()
    ' 定义变量和对象
    Dim cell As Range
    Dim InputSheet As Worksheet
    Dim part1 As String, part2 As String, formula As String
    Dim fillColour As Long, textSize As Integer

    ' 初始化变量
    fillColour = RGB(200, 200, 200)
    textSize = 10
    
    ' 设置输入工作表（请根据实际名称修改）
    Set InputSheet = ThisWorkbook.Sheets("Input")
    ' 设置目标单元格范围
    Set cell = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 构建条件格式公式
    part1 = InputSheet.Range("E41").Value
    part2 = InputSheet.Range("M6").Value
    formula = "='Sheet2'!" & part1 & " >= " & part2
    
    ' 清除现有条件格式
    cell.FormatConditions.Delete

    ' 添加新的条件格式规则
    With cell.FormatConditions.Add(Type:=xlExpression, Formula1:=formula)
        ' 设置单元格填充色
        .Interior.Color = fillColour
        ' 设置字体颜色（调用辅助函数）
        .Font.Color = GetOptimalFontColor(fillColour)
        .Font.Size = textSize
        
        ' 设置所有边框样式（如果四个边样式一致）
        With .Borders
            .LineStyle = xlContinuous
            .Color = RGB(0, 0, 0)
            .Weight = xlThin
        End With
        
        ' 若需单独设置某个边框，可使用以下方式（示例：仅设置底部边框）
        ' With .Borders(xlEdgeBottom)
        '     .LineStyle = xlContinuous
        '     .Color = RGB(0, 0, 0)
        '     .Weight = xlThin
        ' End With
    End With
End Sub

Function GetOptimalFontColor(bgColor As Long) As Long
    ' 根据背景色自动选择最优字体颜色（黑/白）
    Dim red As Integer, green As Integer, blue As Integer
    red = bgColor Mod 256
    green = (bgColor \ 256) Mod 256
    blue = (bgColor \ 65536) Mod 256
    
    ' 基于亮度公式判断
    If (red * 0.299 + green * 0.587 + blue * 0.114) > 186 Then
        GetOptimalFontColor = RGB(0, 0, 0) ' 浅色背景用黑色字体
    Else
        GetOptimalFontColor = RGB(255, 255, 255) ' 深色背景用白色字体
    End If
End Function

关键修改说明 #

1. 移除不必要的边框属性：删除了.TintAndShade = 0语句，该属性对条件格式边框无实际作用且会引发错误。
2. 完善变量声明：添加了InputSheet的声明和赋值，避免未定义对象的运行时错误。
3. 简化边框设置：通过.Borders集合一次性设置所有边框样式（若四边样式一致），如需单独设置某一边框，可取消注释示例代码并调整。
4. 明确命名：将borderColour改为fillColour，更准确反映其用途（原变量用于填充色而非边框色）。

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