![我手动更改单元格的值和颜色,我希望将相同的值和颜色复制到另一张表的单元格中](https://linux22.com/image/1598995/%E6%88%91%E6%89%8B%E5%8A%A8%E6%9B%B4%E6%94%B9%E5%8D%95%E5%85%83%E6%A0%BC%E7%9A%84%E5%80%BC%E5%92%8C%E9%A2%9C%E8%89%B2%EF%BC%8C%E6%88%91%E5%B8%8C%E6%9C%9B%E5%B0%86%E7%9B%B8%E5%90%8C%E7%9A%84%E5%80%BC%E5%92%8C%E9%A2%9C%E8%89%B2%E5%A4%8D%E5%88%B6%E5%88%B0%E5%8F%A6%E4%B8%80%E5%BC%A0%E8%A1%A8%E7%9A%84%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD.png)
我正在手动更改单元格的值和颜色,我想将相同的值和颜色同时复制到另一张表的单元格中。可以吗?
答案1
值很容易。只需将 =A1 放入另一个单元格即可。要更改格式,您需要 VBA,例如
Private Sub Worksheet_Change(ByVal Target As Range)
' when a cell in column A is changed,
' the change will be copied to column F
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Copy Target.Offset(0, 5)
Application.CutCopyMode = False
End If
End Sub
请注意,此代码将复制格式和值,但它只会在编辑单元格时自动运行,而不会在仅格式化单元格时自动运行。没有可以获取格式更改的事件。