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)

相关推荐