如何创建展示项目状态随时间颜色变化的Sparkline（单单元格图表）

这个需求太实用了——要在单个单元格里用垂直彩色分段展示项目每周的状态变化，一眼就能扫清趋势，完全可以实现！下面分几种常用工具的方案给你细说：

一、Excel实现方案（最常用） #

1. 手动快速实现（适合少量项目） #

如果项目不多、每周状态数也少，可以用字符+手动格式设置快速搞定：

• 先在目标单元格（比如你的「Chart」列）输入公式，生成对应数量的等宽竖线字符。假设项目1的状态在B2到D2，公式就是：=REPT("|", COUNTA(B2:D2))，这样会生成和有效状态数一样多的竖线。
• 选中单元格里的每一个竖线字符，对应每周的状态设置颜色：Green设深绿色、Yellow/Amber设黄色、Red设红色。
• 记得把单元格字体改成等宽字体（比如Courier New），这样每个分段宽度一致，视觉更规整。

2. VBA自动生成（适合大量项目） #

如果项目多、状态数据量大，手动改格式太麻烦，写个简单的VBA宏就能自动批量生成：

1. 打开Excel的「开发者工具」（如果没显示，在选项里勾选“开发者工具”），点击「插入」→「模块」。
2. 粘贴下面的代码：

Sub GenerateStatusSparkline()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim statusRange As Range
    Dim sparklineCell As Range
    Dim charCount As Integer
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 遍历每行项目（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        Set statusRange = ws.Range(ws.Cells(i, 2), ws.Cells(i, lastCol - 1)) ' 最后一列是Chart列
        Set sparklineCell = ws.Cells(i, lastCol)
        
        ' 清空原有内容和格式
        sparklineCell.Clear
        charCount = 0
        
        ' 逐个处理每周状态，生成彩色竖线
        For j = 1 To statusRange.Cells.Count
            If statusRange.Cells(j).Value <> "" Then
                charCount = charCount + 1
                sparklineCell.Value = sparklineCell.Value & "|"
                ' 根据状态匹配颜色
                Select Case UCase(statusRange.Cells(j).Value)
                    Case "GREEN"
                        sparklineCell.Characters(charCount, 1).Font.Color = RGB(0, 128, 0)
                    Case "YELLOW", "AMBER"
                        sparklineCell.Characters(charCount, 1).Font.Color = RGB(255, 255, 0)
                    Case "RED"
                        sparklineCell.Characters(charCount, 1).Font.Color = RGB(255, 0, 0)
                End Select
            End If
        Next j
        
        ' 设置等宽字体和对齐方式，保证视觉效果
        sparklineCell.Font.Name = "Courier New"
        sparklineCell.Font.Size = 12
        sparklineCell.VerticalAlignment = xlCenter
    Next i
End Sub

3. 回到工作表，运行这个宏，它会自动遍历所有项目，把每行的状态转换成「Chart」列单元格里的彩色竖线分段，每个竖线对应一周的状态，完美匹配你要的效果！

二、Google Sheets实现方案 #

如果用Google Sheets，也可以用Apps Script生成垂直彩色分段：

1. 打开你的表格，点击「扩展程序」→「Apps Script」。
2. 粘贴下面的代码：

function getStatusSparkline(range) {
  const colorMap = {
    "GREEN": "#008000",
    "YELLOW": "#FFFF00",
    "AMBER": "#FFFF00",
    "RED": "#FF0000"
  };
  
  let html = '<div style="display:flex;flex-direction:column;height:100%;width:100%;">';
  range.forEach(row => {
    const status = row[0].toUpperCase();
    if (status && colorMap[status]) {
      html += `<div style="flex:1;background-color:${colorMap[status]};"></div>`;
    }
  });
  html += '</div>';
  
  return HtmlService.createHtmlOutput(html).setHeight(80).setWidth(20);
}

3. 保存后回到表格，在「Chart」列的单元格输入=getStatusSparkline(B2:K2)（替换成你的状态范围），就能生成垂直的彩色分段单元格了。

注意事项 #

• 确保状态输入统一：比如不要混用“Yellow”和“Amber”，上面的代码已经把这两个视为等价，但尽量保持输入一致更稳妥。
• 调整行高/字体大小：如果觉得分段太挤或太松，修改单元格行高或者代码里的字体大小/HTML高度即可。
• 等宽字体是关键：Excel里一定要用等宽字体，不然每个竖线宽度不一样，视觉会歪。

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