我想要在单元格值中更改“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
答案 0 :(得分:0)
上面的代码很完美。只是我忘了把触发器运行它。 ; - )