©2020-2024 ioDraw All rights reserved
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