相同数据单元格高亮不喜欢,要高亮字体?安排点击上方“Excel和VBA”,选择“置顶公众号” 致力于原创分享Excel的相关知识,源码,源文件打包提供 一起学习,一起进步~~ 昨天我们实现了利用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 End If Next a End Sub 乍一看,这个代码很眼熟啊,是不是我放错代码了? 不不不,代码并没有放错,虽然大致结构逻辑是相同的,但是实际上代码本身有了变化 先来看看效果 好了,成功的实现了效果,这次更改的并不是单元格的颜色了,而是单元格字体的颜色了,不知道小伙伴们满意了吗 代码解析那我们进入今天的代码 前面我自己也坦白了,今天的代码和昨天有很大的相似之处,但是确实是有一些变化 变化在哪里呢? a.Font.Color = vbRed,更改单元格字体颜色 a.Interior.Color = vbRed,昨天的是更改单元格的背景色 是不是很明显了,相对比着学习,这样就可以更加轻松的学会更改单元格字体的颜色啦。 我想肯定还会有小伙伴吐槽我的颜色不好看,那么大家可以根据自己的需要选择自己喜欢的颜色,如果你不知道这个单元格的颜色是用什么代码表示怎么办呢?简单,录制宏!(这里动图上传不了。。。) 如何利用录制宏的方法获得自己喜欢颜色的方法,我也告诉大家啦,吐糟我颜色不好看的小伙伴们,可以自己动手啦。 |
|