VBA中with语句的应用

1、实例如下【请使用VBA，在A6单元格内，输入“好人一生平安！”，边框为蓝色，字体为楷体、加粗、斜体、红色、加下划线、字号16，将工作表命名为“with语句”!】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏里，点击【visual basic】,进入VBA界面！

3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！

4、会弹出【代码编辑】窗口！

5、在【代码编辑】窗口，输入如下代码。

Sub with语句()

With Sheet10.Range("a6")

  .Value = "好人一生平安！"

  .Borders.LineStyle = 1

  .Borders.ColorIndex = 8

  .Parent.Name = "with语句"

  With .Font

    .Name = "楷体"

    .Bold = True

    .Italic = True

    .ColorIndex = 3

    .Size = 16

    .Underline = True

  End With

End With

End Sub

6、在VBA界面，点击【运行】按钮，会看到在工作表中A10单元格内，显示出题目所要求的结果。