LibreOffice中如何根据任务值自动为单元格分配不同颜色（无需逐个设置条件格式）

嗨，我完全懂你的困扰！手动给每个任务单独加条件格式规则实在太繁琐了，尤其是任务还经常变动的时候，改起来特别麻烦。下面给你两个实用的解决方案，不用逐个设置规则就能实现不同任务自动分配独特颜色：

方法一：使用LibreOffice宏（最灵活的方案） #

这个方法能自动识别所有唯一任务，给每个任务分配专属颜色，还能批量应用到所有对应单元格，完全不用手动干预。步骤如下：

• 打开你的Calc表格，按下Alt+F11打开宏编辑器
• 点击菜单栏的「插入」→「模块」，在弹出的空白模块里粘贴下面的代码：

Sub ColorTasksByValue()
    Dim oSheet As Object
    Dim oRange As Object
    Dim oCell As Object
    Dim taskDict As Object
    Dim taskColor As Long
    Dim row As Integer, col As Integer
    
    ' 获取当前选中的区域（先选中你要处理的任务单元格范围）
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oRange = ThisComponent.CurrentController.Selection
    Set taskDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历选中区域，给每个唯一任务分配随机颜色
    For row = 0 To oRange.Rows.Count - 1
        For col = 0 To oRange.Columns.Count - 1
            oCell = oRange.getCellByPosition(col, row)
            taskValue = oCell.String
            If taskValue <> "" And Not taskDict.Exists(taskValue) Then
                ' 生成区分度高的随机颜色（避免太浅或和背景混淆）
                taskColor = RGB(Int(200 * Rnd()) + 55, Int(200 * Rnd()) + 55, Int(200 * Rnd()) + 55)
                taskDict.Add taskValue, taskColor
            End If
            ' 给单元格设置对应的颜色
            If taskValue <> "" Then
                oCell.CellBackColor = taskDict(taskValue)
            End If
        Next col
    Next row
End Sub

• 回到Calc表格，选中你需要着色的所有任务单元格（包括规划网格里的任务）
• 按下Alt+F8，选择刚才创建的ColorTasksByValue宏，点击「执行」就完成了

后续新增任务时，只要重新选中区域运行宏就行，它会自动给新任务分配新颜色，旧任务的颜色也不会改变。

方法二：辅助列+条件格式（无宏方案） #

如果你不想用宏，可以试试这个方法，通过辅助列给任务分配唯一编号，再用条件格式批量着色：

• 插入一个辅助列（比如在任务列旁边的B列），在B2单元格输入公式：=MATCH(A2,$A$2:$A$100,0)（假设你的任务在A列，范围是A2到A100，可根据实际调整），然后下拉填充到所有任务行。这个公式会给每个唯一任务分配一个唯一的序号
• 选中所有需要着色的任务单元格（包括规划网格里的任务），点击菜单栏「格式」→「条件格式」→「新建规则」
• 选择「基于公式」，输入=MOD(B2,6)=0（这里的6是你准备用的颜色数量，可按需调整），然后设置一种背景色；重复这个操作，依次创建=MOD(B2,6)=1、=MOD(B2,6)=2等规则，每个规则对应不同的颜色
• 新增任务时，只要下拉辅助列的公式，新任务会自动获得序号，条件格式会自动应用对应的颜色

这个方法虽然不能做到每个任务完全独一颜色，但只要颜色数量足够，也能很好地区分不同任务，而且不用逐个添加任务规则。

备注：内容来源于stack exchange，提问作者djo0012