30句颜色设置vba代码，总有一款适合你

1. ActiveSheet.Cells(1, 1).Interior.Color = RGB(255, 0, 0) 

- 将单元格A1的背景色设置为红色。

2. ActiveSheet.Cells(1, 1).Font.Color = RGB(255, 255, 255) 

- 将单元格A1的字体颜色设置为白色。

3.ActiveSheet.Range('A1:B2').Interior.Color = RGB(0, 255, 0)

- 将A1到B2区域的背景色设置为绿色。

4. ActiveSheet.Range('A1:B2').Font.Color = RGB(0, 0, 255)

- 将A1到B2区域的字体颜色设置为蓝色。

5. ActiveSheet.Rows(1).Interior.Color = RGB(255, 255, 0) 

- 将第1行的背景色设置为黄色。

6. ActiveSheet.Columns(1).Interior.Color = RGB(255, 0, 255) 

- 将第1列的背景色设置为品红色。

7. ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 

- 将单元格A1的背景色设置为黄色（使用颜色索引）。

8. ActiveSheet.Cells(1, 1).Font.ColorIndex = 2 

- 将单元格A1的字体颜色设置为红色（使用颜色索引）。

9.ActiveSheet.Range('A1:B2').Interior.ColorIndex = 4

- 将A1到B2区域的背景色设置为蓝色（使用颜色索引）。

10.ActiveSheet.Range('A1:B2').Font.ColorIndex = 5

- 将A1到B2区域的字体颜色设置为紫色（使用颜色索引）。

11. ActiveSheet.Rows(1).Interior.ColorIndex = 6

- 将第1行的背景色设置为青色（使用颜色索引）。

12.ActiveSheet.Columns(1).Interior.ColorIndex = 7

 - 将第1列的背景色设置为灰色（使用颜色索引）。

13. ActiveSheet.Cells(1, 1).Interior.ThemeColor = xlThemeColorAccent1

 - 将单元格A1的背景色设置为主题颜色1。

14. ActiveSheet.Cells(1, 1).Font.ThemeColor = xlThemeColorAccent2

- 将单元格A1的字体颜色设置为主题颜色2。

15. ActiveSheet.Range('A1:B2').Interior.ThemeColor = xlThemeColorAccent3

- 将A1到B2区域的背景色设置为主题颜色3。

16.ActiveSheet.Range('A1:B2').Font.ThemeColor = xlThemeColorAccent4

 - 将A1到B2区域的字体颜色设置为主题颜色4。

17.ActiveSheet.Rows(1).Interior.ThemeColor = xlThemeColorAccent5

 - 将第1行的背景色设置为主题颜色5。

18.ActiveSheet.Columns(1).Interior.ThemeColor = xlThemeColorAccent6

- 将第1列的背景色设置为主题颜色6。

19. ActiveSheet.Cells(1, 1).Interior.TintAndShade = 0.5

 - 将单元格A1的背景色设置为半透明。

20. ActiveSheet.Cells(1, 1).Font.TintAndShade = 0.7

 - 将单元格A1的字体颜色设置为较深的半透明。

21.ActiveSheet.Range('A1:B2').Interior.TintAndShade = 0.3

 - 将A1到B2区域的背景色设置为较浅的半透明。

22.ActiveSheet.Range('A1:B2').Font.TintAndShade = 0.9

- 将A1到B2区域的字体颜色设置为较浅的半透明。

23.ActiveSheet.Rows(1).Interior.TintAndShade = 0.6

 - 将第1行的背景色设置为较深的半透明。

24.ActiveSheet.Columns(1).Interior.TintAndShade = 0.4

 - 将第1列的背景色设置为较浅的半透明。

25. ActiveSheet.Cells(1, 1).Interior.Pattern = xlPatternSolid

 - 将单元格A1的背景色设置为纯色填充。

26. ActiveSheet.Cells(1, 1).Font.Pattern = xlPatternGray75

 - 将单元格A1的字体颜色设置为灰色渐变填充。

27.ActiveSheet.Range('A1:B2').Interior.Pattern = xlPatternLightDown

 - 将A1到B2区域的背景色设置为向下渐变填充。

28.ActiveSheet.Range('A1:B2').Font.Pattern = xlPatternLightUp

- 将A1到B2区域的字体颜色设置为向上渐变填充。

29. ActiveSheet.Rows(1).Interior.Pattern = xlPatternDarkTrellis

 - 将第1行的背景色设置为深色网格填充。

30. ActiveSheet.Columns(1).Interior.Pattern = xlPatternLightTrellis - 将第1列的背景色设置为浅色网格填充。