VBA 设置Range样式

Range.Font属性设置字体，包括：字体名称、字体颜色、字体大小；粗体、斜体、下划线。

Range.Borders属性设置边框：包括：线型、颜色、粗细。

HorizontalAlignment与VerticalAlignment设置：水平对齐方式、垂直对齐方式。

示例

Sub sub4()

  Dim ws As Worksheet
  Set ws = Workbooks.Item("小步教程1.xlsx").Worksheets.Item("Sheet1")
  Dim r As Range

  Set r = ws.Range("A1")

  r.Font.Name = "微软雅黑"    '字体名称
  r.Font.Color = RGB(255, 0, 0)  '字体颜色
  r.Font.Size = 16        '字体大小

  r.Font.Bold = True     '粗体
  r.Font.Italic = True    '斜体
  r.Font.Underline = True   '下划线

  r.Interior.Color = RGB(0, 255, 0)  '背景色

  r.Borders.LineStyle = xlContinuous '边框线型为实线
  r.Borders.Color = RGB(0, 0, 0)   '边框颜色
  r.Borders.Weight = xlThin      '边框线的粗线

  r.HorizontalAlignment = xlCenter  '水平对齐方式
  r.VerticalAlignment = xlVAlignCenter '垂直居中对齐

  'r.IndentLevel = 1           '设置缩进
  'r.InsertIndent 1            '增加一个缩进

End Sub

❮上一节 VBA 设置Range数值格式下一节 VBA 设置Range宽高❯

第08章 VBA Excel对象

VBA 设置Range样式

VBA 教程