Excel甘特图式排班表：如何基于单元格加粗格式修改颜色

方法一：使用VBA宏（自动触发） #

这是最直接的实现方式，通过监听单元格格式变化（加粗）自动设置颜色，无需额外输入或修改现有公式。

操作步骤： #

1. 打开目标Excel文件，按Alt + F11打开VBA编辑器。
2. 在左侧工程资源管理器中找到排班表所在工作表（如Sheet1），双击进入代码窗口。
3. 粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    ' 替换为你实际的排班单元格区域，比如A2:Z100
    For Each cell In Intersect(Target, Range("A2:Z100"))
        If cell.Font.Bold = True Then
            ' 设置休息时段填充色，这里用灰色，可替换为你需要的颜色
            cell.Interior.Color = RGB(217, 217, 217)
        Else
            ' 恢复无填充，或匹配工作时段的绿色
            cell.Interior.ColorIndex = xlColorIndexNone
        End If
    Next cell
End Sub

4. 修改代码中的Range("A2:Z100")为你实际的排班单元格范围。
5. 将文件保存为启用宏的工作簿（.xlsm），关闭VBA编辑器。

效果： #

选中单元格设置加粗时，该单元格自动变为指定颜色；取消加粗则恢复原有格式。

方法二：格式刷快速同步（手动可视化操作） #

如果不想用宏，可通过手动操作快速实现，无需修改公式：

• 先设置一个休息时段单元格：加粗+设置目标颜色。
• 选中该单元格，点击格式刷（开始选项卡-剪贴板组），刷过其他需要设置的休息时段单元格。
• 后续新增休息时段时，重复上述步骤即可。

注意事项 #

• 宏方法需保存为xlsm格式，打开文件时需启用宏。
• 若要实现单元格格式修改后立即触发变色（而非仅选中时），可结合API监听格式变化，但操作较复杂，上述SelectionChange事件足以满足日常使用需求。

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