Excel VBA 8.34 相同数据单元格高亮不喜欢，要高亮字体？安排
相同数据单元格高亮不喜欢，要高亮字体？安排
点击上方“Excel和VBA”，选择“置顶公众号”
致力于原创分享Excel的相关知识，源码，源文件打包提供
一起学习，一起进步~~
昨天我们实现了利用Excel VBA的方式，实现了相同数据高亮的效果，不同于Excel自带的高亮，可以按照不同的数据来高亮不同的颜色，最终实现的果效果非常的炫酷，但是炫酷只是相对于个人的， 有不少小伙伴就吐糟我的颜色不好看......，有小伙伴标提出是否能够不高亮单元格，单纯改变字体的颜色，这样看起来会舒服一点，数据也可以做到一目了然。那么，满足大家的要求，进入正题
场景说明
这是我们昨天已经实现的效果，今天我们更改下，变成更改字体的颜色，不改变单元格的背景色了。
非常简单， 直接看代码
代码区
Sub test()Dim rng As Range, a As RangeSet rng = Application.InputBox("请选择单元格区域", "区域的选择", , , , , , 8)rng.Interior.Pattern = xlNoneFor 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 End IfNext aEnd Sub乍一看，这个代码很眼熟啊，是不是我放错代码了？
不不不，代码并没有放错，虽然大致结构逻辑是相同的，但是实际上代码本身有了变化
先来看看效果
好了，成功的实现了效果，这次更改的并不是单元格的颜色了，而是单元格字体的颜色了，不知道小伙伴们满意了吗
代码解析
那我们进入今天的代码
前面我自己也坦白了，今天的代码和昨天有很大的相似之处，但是确实是有一些变化
变化在哪里呢？
a.Font.Color = vbRed，更改单元格字体颜色a.Interior.Color = vbRed，昨天的是更改单元格的背景色是不是很明显了，相对比着学习，这样就可以更加轻松的学会更改单元格字体的颜色啦。
我想肯定还会有小伙伴吐槽我的颜色不好看，那么大家可以根据自己的需要选择自己喜欢的颜色，如果你不知道这个单元格的颜色是用什么代码表示怎么办呢？简单，录制宏！（这里动图上传不了。。。）
如何利用录制宏的方法获得自己喜欢颜色的方法，我也告诉大家啦，吐糟我颜色不好看的小伙伴们，可以自己动手啦。
赞 (0)