前景提要
一直都有很多的人想要学习编程,因为编程能够实现很多我们常规软件,系统无法实现的东西,并且学会了编程能够自主独立开发自己想要的软件和系统,能够提升自己的职场价值。
但是网上的编程教程,随便都上千,还不知道学习效果如何,就要交这么多钱,相信大家都是不愿意的,所以很多人还是选择自学。
但是自学编程又不知道从哪学起,这里我给大家的建议就是先接触Excel的VBA编程,从最基础的学习,为什么要先接触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
End If
Next a
End Sub
乍一看,这个代码很眼熟啊,是不是我放错代码了?
不不不,代码并没有放错,虽然大致结构逻辑是相同的,但是实际上代码本身有了变化
先来看看效果
好了,成功的实现了效果,这次更改的并不是单元格的颜色了,而是单元格字体的颜色了,不知道小伙伴们满意了吗
代码解析
那我们进入今天的代码
前面我自己也坦白了,今天的代码和上一节有很大的相似之处,但是确实是有一些变化
变化在哪里呢?
a.Font.Color = vbRed,更改单元格字体颜色
a.Interior.Color = vbRed,上一节的是更改单元格的背景色
是不是很明显了,相对比着学习,这样就可以更加轻松地学会更改单元格字体的颜色啦。
我想肯定还会有小伙伴吐槽我的颜色不好看,那么大家可以根据自己的需要选择自己喜欢的颜色,如果你不知道这个单元格的颜色是用什么代码表示怎么办呢?简单,录制宏!
如何利用录制宏的方法获得自己喜欢颜色的方法,我也告诉大家啦,吐糟我颜色不好看的小伙伴们,可以自己动手啦。
领取专属 10元无门槛券
私享最新 技术干货