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 WithEnd WithEnd Sub
6、在VBA界面，点击【运行】按钮，会看到在工作表中A10单元格内，显示出题目所要求的结果。
