根据Excel工作表中的数据填充颜色

Question

我使用Excel工作表来分配工作，他们是团队中的3-4个用户。我想要做的是，基于某个值，我希望将一个任务分配给一个用户(这一步已经通过一些VBA和宏实现)，下一步是对每个用户进行颜色编码。因此，根据出现在任务前面的名称，单元格颜色需要更改以反映用户。

基本上，当每个用户的名字遇到任何任务时，都应该自动获得一个颜色。该颜色对于该用户是一致的，并且与任务无关。

Answer 1

如果名称位于第一列：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim clr As Long, c As Range, v

    For Each c In Target.Cells
        If c.Column = 1 Then
            v = c.Value
            clr = -1
            If Len(v) > 0 Then
                Select Case v
                Case "Fred": clr = vbRed
                Case "Jeff": clr = vbBlue
                Case "Jane": clr = vbYellow
                End Select
            End If
            If clr > 0 Then
                c.Interior.Color = clr
            Else
                c.Interior.ColorIndex = xlNone
            End If
        End If
    Next c
End Sub