Цвет заливки в соответствии с данными в 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