Excel VBA控製單元格的顔色

2017-08-27 10:13:00
zstmtony
原創
3005

備忘一下。

用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
分享