sht.Range("A1:D4").Interior.Color = RGB(25, 115, 197)
RGB 颜色值,通用性强
或者
sht.Range("A1:D4").Interior.ColorIndex = 5
ColorIndex
的每个数值代码的颜色可以到网上查
' 边框颜色设置为黑色 - RGB(0, 0, 0)
sht.Range("A1:D4").Borders(xlInsideHorizontal).Color = RGB(0, 0, 0)
' 边框样式设置为实线 - xlContinuous
sht.Range("A1:D4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
xlInsideHorizontal
表示的是单元格区域内部的所有横向边,类似的 xlInsideVertical
表示的是内部纵向边,其它类似的还有上边、下边、左边、右边等
' 水平居中
sht.Range("A1:D4").HorizontalAlignment = xlCenter
' 垂直居中
sht.Range("A1:D4").VerticalAlignment = xlCenter
' 设置 A1:D4 区域内的文字字体颜色为白色-RGB(255, 255, 255)
sht.Range("A1:D4").Font.Color = RGB(255, 255, 255)
原文:https://www.cnblogs.com/wuzhiblog/p/vba_something.html