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

时间:2015-01-27 15:25:59

标签: excel

我想要在单元格值中更改“AS”颜色的单元格被复制,即按下ctrl + 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

1 个答案:

答案 0 :(得分:0)

上面的代码很完美。只是我忘了把触发器运行它。 ; - )