Excel VBA控制单元格的颜色

2017-08-27 10:13:00
zstmtony
原创
701

备忘一下。

用VBA设置单元格的前景颜色与填充颜色


Sub 颜色代码()
For i = 1 To 256
  Cells(i, 1) = i
  '设置背景颜色 填充颜色
  Cells(i, 1).Interior.ColorIndex = i  '使用颜色索引  自己用代码就可以获取颜色列表了
  'Cells(i, 1).Interior.Color=vbRed  '使用颜色常量
  'Cells(i, 1).Interior.Color=RGB(255,0,0)  '使用RGB颜色
  Cells(i, 1).Font.Color=vbBlack  '设置前景颜色
Next
End Sub
分享