Excel VBA---之with语句用法

时间:2026-02-14 12:25:31

1、功能实现:

一、不用with语句,实现填充表格数据;

二、使用with语句,填充表格数据;

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

1、原始表格数据为空;

Excel VBA---之with语句用法

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

Excel VBA---之with语句用法

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

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

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

Excel VBA---之with语句用法

Excel VBA---之with语句用法

Excel VBA---之with语句用法

5、执行宏,运行结果如下;

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

表格名称已经被修改;

Excel VBA---之with语句用法

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

Excel VBA---之with语句用法

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

3、执行结果如下所示:

Excel VBA---之with语句用法

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

© 2026 一点资料
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com