1. ActiveSheet.Cells(1, 1).Interior.Color = RGB(255, 0, 0) - 將單元格A1的背景色設置為紅色。
- 將單元格A1的字體顏色設置為白色。 3.ActiveSheet.Range('A1:B2').Interior.Color = RGB(0, 255, 0) - 將A1到B2區(qū)域的背景色設置為綠色。 4. ActiveSheet.Range('A1:B2').Font.Color = RGB(0, 0, 255) - 將A1到B2區(qū)域的字體顏色設置為藍色。 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的背景色設置為黃色(使用顏色索引)。
- 將單元格A1的字體顏色設置為紅色(使用顏色索引)。 9.ActiveSheet.Range('A1:B2').Interior.ColorIndex = 4 - 將A1到B2區(qū)域的背景色設置為藍色(使用顏色索引)。 10.ActiveSheet.Range('A1:B2').Font.ColorIndex = 5 - 將A1到B2區(qū)域的字體顏色設置為紫色(使用顏色索引)。 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區(qū)域的背景色設置為主題顏色3。 16.ActiveSheet.Range('A1:B2').Font.ThemeColor = xlThemeColorAccent4 - 將A1到B2區(qū)域的字體顏色設置為主題顏色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區(qū)域的背景色設置為較淺的半透明。 22.ActiveSheet.Range('A1:B2').Font.TintAndShade = 0.9 - 將A1到B2區(qū)域的字體顏色設置為較淺的半透明。 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區(qū)域的背景色設置為向下漸變填充。 28.ActiveSheet.Range('A1:B2').Font.Pattern = xlPatternLightUp - 將A1到B2區(qū)域的字體顏色設置為向上漸變填充。 29. ActiveSheet.Rows(1).Interior.Pattern = xlPatternDarkTrellis - 將第1行的背景色設置為深色網(wǎng)格填充。 30. ActiveSheet.Columns(1).Interior.Pattern = xlPatternLightTrellis - 將第1列的背景色設置為淺色網(wǎng)格填充。 |
|