VBA中的颜色，colorIndex 或color 或backcolor

 

1 EXCEL中单元格的颜色

1.1  条件格式

* 一般EXCEL里，好像都是用条件格式去控制 变色
1.2  可以按颜色筛选

* EXCEL可以根据颜色筛选，并且可以根据非常见颜色筛选
* 如果是非常见颜色，需要先 在EXCEL单元格使用，然后再其他单元格颜色里可以筛选到
 

 

 

2 VBA中的颜色

2.1  使用colorindex

* 改变单元格的背景色用:       range.Interior.ColorIndex=
* 改变单元格的字体的颜色:   range.font.ColorIndex=
* colorindex是EXCEL的颜色代码，不通用，一共就56个
2.1.1 自己写个代码，显示出EXCEL的colorindex的颜色和数字的对应关系

Sub test_color() Range("i6:i19")).Interior.ColorIndex For Each i In
Range("B1:H19") i.Offset(0, 1).Interior.ColorIndex = i.Value Next
'第一次想到的这种思路不行Union(Range("c6:c19"), Range("E6:E19"), Range("G6:G19")) End Sub
 

 

2.2 通用RGB()值，比如 color=rgb(,,)  或 TextBox1.BackColor=rgb()

*
range.interior.color=rgb()

*
TextBox1.BackColor = RGB(0, 255, 0)

*
其实使用习惯了，用rgb() 值更方便

Sub test_color2() Range("C1").Interior.Color = RGB(255, 0, 0)
Range("C2").Interior.Color = RGB(0, 255, 0) Range("C3").Interior.Color = RGB(0,
0, 255) Range("D1").Interior.Color = RGB(255, 255, 255)
Range("D2").Interior.Color = RGB(0, 0, 0) Range("e1").Interior.Color = RGB(255,
255, 0) Range("e2").Interior.Color = RGB(0, 255, 255)
Range("e3").Interior.Color = RGB(255, 0, 255) End Sub
 

2.3 还一种设置颜色的方法

* 关键字是 &
* 暂时还不清楚颜色代码和颜色的对应关系 Private Sub Label1_Click() Label1.BackColor = &O555555
End Sub

 

 

 

3 哄孩子玩的的EXCEL变颜色代码

代码1： 哄孩子的EXCEL变颜色代码
Sub ponyma1() 'For i = 1 To 101 Step 2 ' Cells(i, 2).Interior.ColorIndex = 6
'Next ' ' 'For i = 2 To 100 Step 2 ' Cells(i, 2).Interior.ColorIndex = 1 'Next
k = 10 For i = 1 To 102 Step 1 Cells(i, 1).Interior.ColorIndex = 1 + k Cells(i,
2).Interior.ColorIndex = 1 + k - 1 Cells(i, 3).Interior.ColorIndex = 1 + k - 2
k = k + 1 If k >= 7 Then k = 0 End If Next End Sub
 

代码2：循环等待时间变颜色的代码------等时间这个好卡
Sub ponyma1() For i = 0 To 56 Application.Wait (Now + TimeValue("0:00:01"))
Range("c1:c10").Interior.ColorIndex = i Next End Sub
 

• « 上一篇：Mysql如何查看操作记录
• » 下一篇：Mysql函数大全+案例练习