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列的背景色设置为浅色网格填充。
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报。