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