1、实例如下【请使用VBA，在A6单元格内，输入“好人一生平安！”，边框为蓝色，字体为楷体、加粗、斜体、红色、加下划线、字号16，将工作表命名为“with语句”!】
3、在VBA界面，点击菜单栏【插入】，在其下拉菜单中，点击【模块】！
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
