Excel和VBA（公众号：Excel和VBA）

前景提要

昨天我们实现了利用Excel VBA的方式，实现了相同数据高亮的效果，不同于Excel自带的高亮，可以按照不同的数据来高亮不同的颜色，最终实现的果效果非常的炫酷，但是炫酷只是相对于个人的， 有不少小伙伴就吐糟我的颜色不好看......，有小伙伴标提出是否能够不高亮单元格，单纯改变字体的颜色，这样看起来会舒服一点，数据也可以做到一目了然。那么，满足大家的要求，进入正题

场景说明

这是我们昨天已经实现的效果，今天我们更改下，变成更改字体的颜色，不改变单元格的背景色了。

代码区

Sub test()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择单元格区域", "区域的选择", , , , , , 8)

rng.Interior.Pattern = xlNone

For Each a In rng

If a = Cells(1, 9) Then

a.Font.Color = vbRed

ElseIf a = Cells(2, 9) Then

a.Font.Color = vbBlack

ElseIf a = Cells(3, 9) Then

a.Font.Color = vbBlue

ElseIf a = Cells(4, 9) Then

a.Font.Color = vbYellow