1、实例【将大于等于90的分数设置为：红色、华文彩云、加粗、下划线、斜体？】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Sub 大于等于90分为红色()
Set i = Columns(3).End(xlDown)
Range([a2], i).ClearFormats
For Each rng In Range([a2], i)
If rng >= 90 Then
With rng.Font
.Name = "华文彩云"
.Size = 14
.Bold = 1
.Italic = 1
.Color = RGB(255, 0, 0)
.Underline = True
End With
End If
Next
End Sub
6、在VBA界面，点击【运行】按钮！
7、我们会发现，大于等于90的分数设置为了：红色、华文彩云、加粗、下划线、斜体
