如何在VBA代码中修改页眉颜色？解决运行时错误424

错误原因分析 #

• With语句语法错误：你代码里的With ActiveSheet.PageSetup.RightHeader = "Name - " & WorkRng.Value是错误写法，With关键字后必须直接跟合法的对象引用，不能包含赋值操作，这是触发424错误的直接原因。
• 页眉字体颜色访问方式错误：ActiveSheet.PageSetup.RightHeader只是一个文本字符串，本身没有Font.Color属性，不能直接通过这种方式设置颜色。

修正后的代码示例 #

方法1：嵌入格式代码设置页眉颜色 #

这种方式直接在页眉文本中加入颜色格式代码（&K后接十六进制颜色码，注意是RGB倒序，比如红色对应&KFF0000）：

Sub HeaderForm()
    Dim WorkRng As Range
    Set WorkRng = Range("B7")
    
    ' 设置右页眉文本并指定字体颜色（示例为红色）
    ActiveSheet.PageSetup.RightHeader = "&KFF0000Name - " & WorkRng.Value
End Sub

方法2：通过HeaderFooter对象设置字体 #

先获取页眉的HeaderFooter对象，再设置其Font属性：

Sub HeaderForm()
    Dim WorkRng As Range
    Set WorkRng = Range("B7")
    
    ' 设置右页眉文本
    ActiveSheet.PageSetup.RightHeader = "Name - " & WorkRng.Value
    ' 定位右页眉字体对象并设置颜色
    With ActiveSheet.PageSetup.RightHeader.Font
        .Color = vbRed ' 可替换为RGB(255,0,0)或其他颜色值
    End With
End Sub

补充说明 #

• 方法1的格式代码还支持其他格式，比如&B加粗、&I斜体，可组合使用（如&B&KFF0000Name...）。
• 建议明确指定目标工作表（比如ThisWorkbook.Sheets("Sheet1").PageSetup...），避免因ActiveSheet不是目标表引发问题。

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