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