Excel_VBA 设置单元格的字体属性（字体、字号、加粗、斜体、颜色等）

Public Sub 4_144()
Dim myRange As Range
Dim myFont As Font
Set myRange = Range("A1") '指定任意的单元格区域
Set myFont = myRange.Font
Cells.Clear '清除工作表数据
myRange.Value = "ExcelVBA实用技巧大全"
With myFont
.Name = "华文新魏"
.Size = 15
.Bold = True
.Italic = True
.ColorIndex = 3
End With
Set myFont = Nothing
Set myRange = Nothing
End Sub