底色VBA

nnsea

'Interior 对象
'代表一个对象的内部

'针对interior对象，我们用得最多的是它的颜色，下面就来讨论一下。


Sub 索引颜色值()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next i
End Sub

Sub 早期颜色值()
For i = 0 To 15
Cells(i + 1, 1).Interior.Color = QBColor(i)
Cells(i + 1, 2) = i
Next i
End Sub

Sub 三原色颜色值()
Cells(2, 4).Interior.Color = RGB([a1], [b1], [c1])
End Sub


Sub 直接颜色值() '此颜色有255^3种颜色
Cells(1, 1).Interior.Color = [b1]
End Sub