Excel VBA 入门教程（∞）杂项

设置单元格底色

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)

在工作薄内增加新的工作表

wbk.Worksheets.Add(Before:=wbk.Worksheets(wbk.Sheets.Count)).Name = tb_name

设置超链接

连接至同工作薄内的指定工作表

sht.Hyperlinks.Add Anchor:=sht.Cells(48, 2), Address:="", SubAddress:="Sheet8!A1", TextToDisplay:="Sheet8"