假设工作表是Sheet1,试试这样:
工具->宏->
Visual Basic 编辑器->Microsoft Excel对象->双击Sheet1
在右边的空白处输入
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("b2").Font.ColorIndex = Range("a1").Font.ColorIndex
End Sub
然后回到Excel工作簿
当修改Sheet1的A1的颜色后,选别的单元格时B1就会跟着变色了.
若想选其他单元格作相应变化,把代码里面的"b2","a1"作相应修改