vba颜色代码名称对照表,excel中的VBA代码解释

vba颜色代码名称对照表,excel中的VBA代码解释详细介绍

本文目录一览： VBA 颜色代码大全？

Sub VBA颜色代码()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = Cells(i, 1).Interior.Color 'Color颜色
Cells(i, 3) = i 'ColorIndex索引号
Next
End Sub

excel颜色规范大全？

各位朋友，今天和你们分享Excel中颜色的一些基础知识，详见下面列表：
1、颜色索引值及其使用：ColorIndex；
2、颜色的RGB值；
3、颜色的RGB值与十进制值的相互转换；
4、颜色的RGB值与16进制值的相互转换；
5、颜色的中文名称、英文名称及其使用；
6、赠送的自定义函数演示效果及代码；
一、颜色索引表
在Excel中，颜色索引为1～56，共56个，我们可以用下面的VBA代码生成颜色索引和对应的颜色：
Sub生成1至56号颜色()
Dima%
Fora=1To56
Range("A"&a+2)=a'列生成颜色索引代码
Range("B"&a+2).Interior.ColorIndex=a'B列显示对应的颜色
Next
EndSub

如何用VBA获取各颜色的英文名

颜色有几千万种，亲不是每一种都有名字
有了：
http://www.excel123.cn/Article/excelvba/200908/429.html
下面是中文色名称，翻译后不一定能用，看网友能不能翻译下继续完成我的回答。
无色 = -4142
自动 = -4105
黑色 = 1
褐色 = 53
橄榄 = 52
深绿 = 51
深青 = 49
深蓝 = 11
靛蓝 = 55
灰色25 = 15
灰色40 = 48
灰色50 = 16
灰色80 = 56
深红 = 9
橙色 = 46
深黄 = 12
绿色 = 10
青色 = 14
蓝色 = 5
蓝灰 = 47
红色 = 3
浅橙色 = 45
酸橙色 = 43
海绿 = 50
水绿色 = 42
浅蓝 = 41
紫罗兰 = 13
粉红 = 7
金色 = 44
黄色 = 6
鲜绿 = 4
青绿 = 8
天蓝 = 33
梅红 = 54
玫瑰红 = 38
茶色 = 40
浅黄 = 36
浅绿 = 35
浅青绿 = 34
淡蓝 = 37
淡紫 = 39
白色 = 2
刚才试了一下，只有 红、绿、蓝、黄、黑、白（red green blue yellow black white）几种 颜色可以用英文名称进行赋值。只是用英文对单元格字体进行赋值，目前还不知道怎么反求。
Range("b1:b4").Font.Color = vbRed
不一定用vba，用get.cell函数再配合自定义名称；当然vba更简单。只要定义一个2维数组，把颜色编号和对应的英文名字全纳入到数组里，这样用colorIndex取颜色编号，就能获得该编号对应颜色的英文名。有名称的颜色名一共56种。

excel中的VBA代码解释

Rnd()在VBA里可以随机生成一个大于0、且小于1的数值
x = Rnd() * (5 - 2) + 2
即是 随机值 * (5 - 2) + 2
rnd()得0~1随机数，则rnd()*(5-2)得0~3随机数，那么x=rnd()*(5-2)+2得2~5随机数；
同理y得2~6随机数。
希望能帮到您。
一，Range("b2:f5").Interior.ColorIndex = xlNone
Range是区域对象，Range("b2:f5")就是指左上角为“B2”单元格，右下角为“F5”单元格这样一个连续的区域，应该是4行5列的一个区域。
Interior.ColorIndex 是指填充颜色（这里是采用ColorIndex严格说是颜色常数）
xlNone 表示清除原来的填充色。
所以这行代码就是清除区域Range("b2:f5")里的填充色。
二，Cells(x, y).Interior.ColorIndex = 3
Cells是单元格对象，Cells(x, y)就是指第x行y列对应的单元格
所以该行作用是，设置Cells(x, y)单元格的填充颜色常数为3。（具体3对应什么颜色我也背不出来）
三，DoEvents，这个都使用在反复执行用户循环的代码里。我们有体会，当执行次数很多的循环时，计算机的执行权完全被该循环控制，计算机无法执行其他操作，为此执行该语句，是让计算机可以执行其他操作。
四，If a = 1 Then Exit Sub
当 a = 1 退出过程，即结束运行该过程。
五，GoTo 10
无条件转移语句，就是转移到行号为10的那个语句。
你的这个过程如下：
Sub 随机()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始化
10:
x = Rnd() * (5 - 2) + 2
y = Rnd() * (6 - 2) + 2
Range("b2:f5").Interior.ColorIndex = xlNone
Cells(x, y).Interior.ColorIndex = 3
DoEvents
If a = 1 Then Exit Sub
GoTo 10
End Sub
而下面是另一个过程，上面没有语句调用过它，所以无关；
Sub 结束()
a = 1
End Sub
分析你上面的过程，似乎进入死循环，因为没有使得 a = 1 的操作？
10：
。。。。。。
。。。。。。
Goto 10
从上到下，执行到Goto 10，又回到10：那一行，反复无限循环。

求HEX色值转CMYKHSLHSB值的VBA代码

编写代码的时候，颜色的代码有多种格式，如RGB（255,255,255）对应CMYK（0,0,0,0）对应#ffffff（HEX格式），那么，这三者间要如何转换呢？
工具/原料
Photoshop
RGB
1
定义
RGB是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色的（来自百度百科）
2
代码格式
RGB代码的表现形式为（x,x,x），其中0≤x≤255
如（0,0,0）代表红绿蓝数值均为0，也就是黑色。
END
CMYK
1
定义及与RGB的区别
C（青）M（洋/品红）Y（黄）K（黑），CMYK也称作印刷色彩模式。
屏幕上显示的图像，是RGB模式呈现的，而印刷品上的图像，是CMYK模式表现的。
2
格式
CMYK代码的表现形式为（x,x,x,x），其中0≤x≤100，这里的x是一种百分值。
如白色的CMYK格式是（0,0,0,0）
END
Hex code
Hex code的格式为#+六位数字/字母，如纯蓝色是#0000FF
END
数值转换方法
1
知道了三类颜色码中的任一种，如何换算成另外两种，这里推荐使用Photoshop或者AI等设计软件，本文以ps为例。
2
打开ps，点击【文件】-【新建】，新建一个任意尺寸的画板。
3
然后选择【编辑】-【填充】
4
弹出的对话框里内容选项选择“颜色…”
5
调色板如图所示位置，分别对应RGB、CMYK和hex的数值
6
例如要把RGB（200,100,0）转换成CMYK，就在RGB区域对应输入这三个数值，之后CMYK版块显示的就是其对应的CMYK数值（27,71,100,0）
望采纳！

VBA字体颜色代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count >= 256 And Target.Rows.Count = 1 Then
Target.Font.Color = IIf(Target.Font.Color = vbBlack, vbRed, vbBlack)
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Address = Selection.EntireRow.Address Then
If Target.Font.ColorIndex < 0 Then
Target.Font.ColorIndex = 3
Else
Target.Font.ColorIndex = 0
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 255 Then Target.Font.Color = IIf(Target.Font.Color = vbBlack, vbRed, vbBlack)
End Sub
上面的有BUG，用下面的：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 255 And Target.Count < 10000 Then Target.Font.Color = IIf(Target.Font.Color = 255, 0, 255)
End Sub

excel vba填充单元颜色(按红绿蓝AAAA表)

Public Cstep As LongFunction ColorNum(S As Long)Select Case SCase 1ColorNum = 3Case 2ColorNum = 14Case 3ColorNum = 23Case ElseColorNum = 3Cstep = 1End Select'3为红色 14为绿色 23为蓝色 标准色3-4-5End FunctionSub macro20150629() '2015-6-29 Dim SRow As Long Dim SCol As Long Dim MRows As Long Dim MCols As Long Dim MyColor As LongApplication.ScreenUpdating = False Rem 3 14 23 MRows = Range("A1").CurrentRegion.Rows.Count MCols = Range("A1").CurrentRegion.Columns.Count Cstep = 0 For SCol = 1 To MCols For SRow = 1 To MRows MyColor = Worksheets(1).Cells(SRow, SCol).Interior.ColorIndex Cstep = Cstep + 1 If MyColor = 3 Then MyColor = ColorNum(Cstep) Else MyColor = ColorNum(Cstep) Worksheets(1).Cells(SRow, SCol).Interior.ColorIndex = MyColor End If Next Next Application.ScreenUpdating = True End Sub因你没有说明颜色顺序方向，那么我就以行为方向了。
Sub xx() Dim x(1 To 3) a = Range([K3]).Column b = Range([K3]).Column + Range([K3]).Columns.Count - 1 s = [L3] c = 1 Do While c < 4 ^ 8 For i = a To b If Cells(c, i).Interior.ColorIndex <> xlNone Then c = c - 1 Exit Do End If Next c = c + 1 Loop n = Cells(4 ^ 8, a).End(3).Row i = c Do While i > 13 For j = a To b t = Cells(i, j).Text & Cells(i + 1, j).Text If InStr(1, s, t, vbTextCompare) > 0 Then Cells(i, j).Interior.ColorIndex = 3 If Cells(i + 1, j).Interior.ColorIndex <> 3 Then Cells(i + 1, j).Interior.ColorIndex = 4 If Cells(i + 2, j).Interior.ColorIndex <> 3 Then Cells(i + 2, j).Interior.ColorIndex = 5 Exit Do End If Next i = i - 1 LoopEnd Sub

在Excel VBA中，单元格的.interior.color的值是什么格式的？

interior.color的值是一个十进制数，范围是0-16777215. 属于long长整形范围
我研究了一下，规律是这样：
在excel中的RGB值，顺序是BGR，所以纯蓝色是（255，000，000），纯绿色是（000，255,000），纯红色是（000,000,255）对应的十六进制分别是FF0000;00FF00;0000FF。把这三个十六进制化成十进制数就是16711680；65280；255。
16711680；65280；255——这三个数就是你用interior.color将会看到的值！
直接十进制的整数也行吧 。你可以试试 cells(i,1).Interior.colorIndex=i i从1到255
貌似1 黑色 2白色 3红色 4 绿色 5 蓝色 6黄色 7 桃红 8 青色 9 暗红色 10 墨绿色 等等
十六进制用ox开始，vbBlue是常数，不用加引号
一般，1到56的数就可以了。如range("A1").interior.color=8
是长整数：
Range("A1").Interior.Color=vbRed
debug.Print Range("A1").Interior.Color
255
Range("A2").Interior.Color=vbBlue
Debug.Print Range("A2").Interior.Color
16711680
是十进制数格式，查询interior．color的值。
1．参考下表可以查询某一种颜色的颜色指标值。
2．首先，您需要在EXCEL工作表的空白页下创建一个按钮控件。效果如下图所示：是的
3．单击鼠标右键找到指定的宏并创建宏模块。操作界面如下图所示：
4．进入vbaprojectproject模式，找到模块1，在模块1的界面中编写代码。效果如下图所示：
5．下一步是编写代码。
SubMsg（）
Sheet1。范围（“C2：E6”）。内部。ColorIndex＝27
EndSub
6. 最后，点击按钮控件，触发代码，运行结果，显示背景颜色，vba中的代码。内部。ColorIndex = 27

关于excel整行变色的vba代码。

代码如下，供参考：
Sub 变色()
Selection.EntireRow.Select '选中整行
Selection.Interior.Color = 65535 '设置成黄色
End Sub
根据目前的情况，要实现这样的效果，只能使用VBA来实现，下面是方法，请君过目。
　　如下图，这是正常情况下的效果，当我们选择一个单元格后，只有这个单元格边框颜色有所变化，该行的其它单元格，都未发生任何变化。
现在，我们要做的就是，如下图一样，一旦选择了某个单元格，那么，该单元格所在的行，颜色发生改变，以方便我们录入数据。
实现的方法是，在工作表名称(如：Sheet1)上点击右键，在弹出的快捷菜单中选择“查看代码”，如下图！
接下来，会弹出VBA代码编写窗口，如下图！
5
上图中，在Sheet1上点击右键，选择“查看代码”，弹出代码编写窗口。
　　现在，我们要做的就是输入VBA功能代码了，代码如上图！记住，先选择好Worksheet对象名称和SelectionChange事件名称，然后在窗口中输入如上图右边的那些代码。
　　为方便大家学习，下面粘贴出源代码：
　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Rows().Interior.ColorIndex = 0
　　x = ActiveCell.Row
　　Rows(x).Interior.ColorIndex = 9
　　End Sub