셀 값이 엑셀로 묶여지면 셀의 색이 바뀝니다

Question

셀 값을 변경할 때 "AS"색의 셀을 복사합니다. 즉, cntrl + c 셀의 색을 눌러 복사하면 셀 색이 변경됩니다. 누군가 내 아래 매크로를 편집하는 데 도움을 줄 수 있습니까?

Sub ccopy() 
    Dim x As Integer 

    x = Selection.Column 
    'MsgBox x 

    If x = 45 Then 
     With Selection 
      .Interior.ColorIndex = 27 
     End With 
    End If 

    'MsgBox "copy" 

    Selection.Copy 
End Sub 

Answer 1

위 코드는 완벽합니다. 그저 나는 그것을 실행하기 위해 호랑이를 놓는 것을 잊어 버렸습니다. ;-)