在VBA中，如何设置字体格式?

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的分数设置为了：红色、华文彩云、加粗、下划线、斜体