我希望VBA程序根据另一个单元格中的文本颜色更改一个单元格中文本的颜色。例如:
如果单元格A1中的文本颜色为蓝色。我希望单元格B1中的文本颜色为蓝色。
公式或VBA程序会有所帮助,因为我需要对大量单元格执行相同的操作。
感谢。
答案 0 :(得分:5)
使用指定单元格的Font.Color
属性。
Range("B1").Font.Color = Range("A1").Font.Color
您也可以使用任何变量进行重复使用。
Dim ColorTemplate As Long = Range("A1").Font.Color
Range("B1").Font.Color = ColorTemplate
Range("C1").Font.Color = ColorTemplate
...