Excel VBA Interior.ColorIndex 色彩列表
使用如下VBA代码取得相应的单元格底色
Sub a()Sub a()
Range("A1").Select
For i = 0 To 56 Step 1
ActiveCell.Interior.ColorIndex = i
ActiveCell.Offset(0, 1).Value2 = i
If i Mod 19 = 18 And i <> 0 Then
ActiveCell.Offset(-18, 2).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
结果如下
另外补充一点。当Excel的默认颜色里面没有我们所需要的颜色时,我们还可以使用RGB颜色代码修改默认颜色为想要的颜色。TD Bank的一些reports里面有使用到这种方法。
示例:
ActiveWorkbook.Colors(39) = RGB(226, 197, 255) ‘修改color index为39的颜色
WorkSheets(1).Cells(1,1).Value.Interior.ColorIndex = 39 ‘将cell A1的值设置为color index为39的颜色
posted on 2013-01-15 14:10 Alice Sun 阅读(11176) 评论(0) 编辑 收藏 举报
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步