Excel VBA---之with语句用法

功能实现：一、不用with语句，实现填充表格数据；二、使用with语句，填充表格数据；

一、不用with语句，实现填充表格数据；1、原始表格数据为空；

2、打开VBE，编写代码：Sub firstSub()Range('a1').Value = 'Who am I?'Range('a1').Parent.Name = 'go on'Range('a1').Font.Size = 20Range('a1').Font.Bold = TrueEnd Sub

3、回到Excel界面中，插入--形状，选择一个椭圆；4、在Excel界面中绘制椭圆；5、右键选择椭圆，点击 指定宏--选择刚刚定义的宏，并点击确定；

6、执行宏，运行结果如下；在a1列中填充了Who am I，字体变为20，字体加粗；表格名称已经被修改；

二、使用with语句，填充表格数据；1、在VBE中编写代码为：Sub withSub()With Range('a1')    .Value = 'With with withWho am I?'    .Parent.Name = 'With with withgo on'    With .Font        .Size = 30        .Bold = True    End WithEnd WithEnd Sub

2、在Excel中参照以上方法插入宏，执行宏withSub；3、执行结果如下所示：

综上所述，本文通过对比 使用with关键字、不适用with关键字两种方法表示了填充表格的方式。

表格属性的表达方式

with关键字的使用方法