Excel VBA---之with语句用法

1、功能实现：

一、不用with语句，实现填充表格数据；

二、使用with语句，填充表格数据；

2、一、不用with语句，实现填充表格数据；

1、原始表格数据为空；

3、打开VBE，编写代码：

Sub firstSub()

Range("a1").Value = "Who am I?"

Range("a1").Parent.Name = "go on"

Range("a1").Font.Size = 20

Range("a1").Font.Bold = True

End Sub

4、回到Excel界面中，插入--形状，选择一个椭圆；

4、在Excel界面中绘制椭圆；

5、右键选择椭圆，点击 指定宏--选择刚刚定义的宏，并点击确定；

5、执行宏，运行结果如下；

在a1列中填充了Who am I，字体变为20，字体加粗；

表格名称已经被修改；

1、二、使用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 With

End With

End Sub

2、在Excel中参照以上方法插入宏，执行宏withSub；

3、执行结果如下所示：

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