如果在excel中复制了单元格值，则更改单元格的颜色

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

上面的代码是完美的。 只是我忘了使用triger来运行它。 ;-)