在VBA中，你可以使用Font对象来控制Excel中的字体样式。以下是计算机教程网整理的一些基本的VBA代码示例，展示如何玩转字体：
设置字体名称
Sub SetFontName()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Name = "Arial"
End With
End Sub
设置字体大小
Sub SetFontSize()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Size = 14
End With
End Sub
设置单元格字体为粗体
Range("A1").Font.Bold = True
Sub SetBoldFont()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Bold = True
End With
End Sub
设置单元格字体为斜体
Range("A1").Font.Italic = True
Sub SetItalicFont()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Italic = True
End With
End Sub
设置单元格字体为下划线
Range("A1").Font.Underline = True
Sub SetUnderlineFont()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Underline = xlUnderlineStyleSingle
End With
End Sub
设置单元格字体为删除线
Range("A1").Font.Strikethrough = True
设置单元格字体大小为12号
Range("A1").Font.Size = 12
设置单元格字体颜色为红色
Range("A1").Font.Color = RGB(255, 0, 0)
Sub SetFontColor()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Color = RGB(255, 0, 0) ' 红色
End With
End Sub
设置字体
Range("A1").Font.Name = "宋体"
设置单元格文本水平居中
Range("A1").HorizontalAlignment = xlCenter
设置单元格文本垂直居中
Range("A1").VerticalAlignment = xlCenter
设置单元格文本左对齐
Range("A1").HorizontalAlignment = xlLeft
设置单元格文本右对齐
Range("A1").HorizontalAlignment = xlRight
设置单元格文本自动换行
Range("A1").WrapText = True
设置单元格文本不自动换行
Range("A1").WrapText = False
设置单元格文本旋转角度为90度
Range("A1").Orientation = 90
设置单元格文本旋转角度为-90度
Range("A1").Orientation = -90
设置单元格文本旋转角度为45度
Range("A1").Orientation = 45
设置单元格文本旋转角度为-45度
Range("A1").Orientation = -45
设置单元格文本旋转角度为180度
Range("A1").Orientation = 180
设置单元格文本旋转角度为0度
Range("A1").Orientation = 0
设置单元格文本缩放比例为100%
Range("A1").Font.Size = Range("A1").Font.Size * 1
设置单元格文本缩放比例为150%
Range("A1").Font.Size = Range("A1").Font.Size * 1.5
设置字体组合属性
Sub SetFontProperties()
With ThisWorkbook.Sheets("Sheet1").Range("A1").Font
.Name = "Arial"
.Size = 14
.Bold = True
.Italic = True
.Underline = xlUnderlineStyleSingle
.Color = RGB(255, 0, 0)
End With
End Sub
以上代码可以直接在VBA编辑器中运行，并应用于Excel工作簿中的相应范围。你可以根据需要调整工作表的名称("Sheet1")和范围("A1")。