VBA RGB |使用RGB功能设置内部单元的颜色

Excel VBA RGB颜色

红绿蓝 也可以称为红色绿色和蓝色,此函数用于获取颜色值的数值,此函数具有三个组成部分作为命名范围,它们分别是红色,蓝色和绿色,其他颜色被视为VBA中的这三种不同颜色。

在VBA中,一切都归结为每一部分的编码,例如,如果要引用工作表的某些部分,则可以使用RANGE对象,如果要更改字体颜色,则可以使用NAME属性的范围,然后写出我们需要的字体名称,但想象一下要更改字体颜色或单元格背景颜色的情况,我们可以利用内置的VB颜色,例如vbGreen,vbBlue,vbRed等...但是我们有专用的功能可以播放不同的颜色,即RGB功能。

以下是RGB颜色功能的语法。

正如您在上面看到的,我们可以提供三个参数,即Red,Green和Blue。所有这三个参数只能接受0到255之间的整数,并且此函数的结果将是“ Long”数据类型。

使用VBA RGB功能更改单元格的颜色

您可以在此处下载此VBA RGB Excel模板– VBA RGB Excel模板

范例#1

例如,如下图所示,我们具有从单元格A1到A8的数字。

对于此单元格范围,我们将尝试使用RGB函数将字体颜色更改为某种随机颜色。

首先启动宏过程。

代码:

 Sub RGB_Example1()结束子 

首先,我们需要引用要更改颜色的字体的单元格范围,在这种情况下,我们的单元格范围是A1到A8,因此请使用 范围 目的。

代码:

 Sub RGB_Example1()范围(“ A1:A8”)结束Sub 

放置点以查看RANGE对象的IntelliSense列表,从IntelliSense列表中,我们尝试更改字体的颜色,因此选择 字体 列表中的属性。

代码:

 Sub RGB_Example1()Range(“ A1:A8”)。Font End Sub 

在该属性中选择FONT属性后,我们将尝试更改 颜色,因此请选择FONT的color属性。

代码:

 Sub RGB_Example1()Range(“ A1:A8”)。Font.Color End Sub 

放置等号并打开RGB功能。

代码:

 Sub RGB_Example1()Range(“ A1:A8”)。Font.Color = RGB(End Sub 

为RGB函数的所有三个参数给出0到255之间的随机整数。

代码:

 Sub RGB_Example1()Range(“ A1:A8”)。Font.Color = RGB(300,300,300)End Sub 

好的,现在运行代码,查看从A1到A8的单元格字体颜色的结果。

输出:

因此,字体的颜色从黑色更改为其他颜色。颜色取决于我们赋予RGB功能的数字。

下面是RGB颜色代码,以获取一些常见的颜色。

您可以将整数组合从0更改为255,以获得各种颜色。

范例#2

对于相同范围的单元格,让我们看看如何更改这些单元格的背景颜色。

首先,使用 范围 目的。

代码:

 Sub RGB_Example2()范围(“ A1:A8”)。结束子 

这次我们要更改提到的单元格的背景色,因此我们现在与FONT属性无关,要更改背景色,请选择“内部的” RANGE对象的属性。

代码:

 Sub RGB_Example2()Range(“ A1:A8”)。Interior End Sub 

一旦选择了“ Interior”属性,请放点以查看该“ Interior”属性的属性和方法。

代码:

 Sub RGB_Example2()Range(“ A1:A8”)。内部。结束子 

由于我们正在更改上述单元格的内部颜色,因此请选择“颜色“ 财产。

代码:

 Sub RGB_Example2()Range(“ A1:A8”)。Interior.Color End Sub 

若要设置单元格范围(A1至A8)的内部颜色属性,请使用等号并打开RGB功能。

代码:

 Sub RGB_Example2()Range(“ A1:A8”)。Interior.Color = RGB(End Sub 

根据需要输入随机数。

代码:

 Sub RGB_Example2()Range(“ A1:A8”)。Interior.Color = RGB(0,255,255)End Sub 

运行代码,然后查看背景色。

输出:

背景颜色已更改。

这里要记住的事情

  • RGB代表红色,绿色和蓝色。
  • 这三种颜色的组合将给出不同的颜色。
  • 所有这三个参数只能接受0到255之间的整数值。高于此数字的任何数字都将重置为255。