셀에 내용 입력시 도형 색 변화

http://cafe.naver.com/excelmaster/131699

내용에 '완료'면 도형이 빨갛게

'진행중'이면 파랗게 변하는 매크로

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim clrFree&, strRng$
    Dim Shp As Shape
    
    Application.ScreenUpdating = False  '화면 업데이트 중지
    
    With Target
    
        If .CountLarge > 1 Then Exit Sub    '다중셀 선택 시 매크로 종료
        If .Column <> 5 Then Exit Sub   'E열 이외의 셀 선택시 매크로 종료
        
        strRng = .Address   '데이터를 입력한 셀 주소
    
        Select Case .Value
            Case "완료": clrFree = RGB(255, 0, 0)   '완료는 빨간색
            Case "진행중": clrFree = RGB(0, 176, 240)   '진행중은 파란색
            Case Else: clrFree = RGB(255, 255, 255) '이외의 값은 흰색
        End Select
    
        For Each Shp In ActiveSheet.Shapes  '시트 내의 모든 도형을 순환
            If Shp.TopLeftCell.Offset(, -1).Address = strRng Then   '도형이 데이터의 옆셀이라면
                Shp.Fill.ForeColor.RGB = clrFree    '도형 색 변화
            End If
        Next Shp
    
    End With
    
    Application.ScreenUpdating = True
        
End Sub
 

내용 입력시 도형 색상 변화.xlsm