VBA常用语句（with语句）

观察一下我们做合并工作表以及一些其它任务的VBA代码就会发现，我们经常能看到一些语句，例如：

if

end if

之类的固定语句，这些就是VBA中常用的基本语句。

这些语句可以实现循环、逻辑判断等等目的。VBA中的语句有70多种，今天我们学习最常用的四种语句中的第一种。

1、With语句

正常情况下我们完成下列需求：

选择单元格A1，设置字体加粗，倾斜，加下划线，底色为黄色。

代码如下：

Sub 宏1(）

    Range('A1').Font.Bold = True 

    Range('A1').Font.Italic = True

    Range('A1').Font.Underline = xlUnderlineStyleSingle

    Range('A1').Interior.Color = 65535   

End Sub

对象.属性.属性值

这样，每个属性前面的对象都要重复写。

用with正好可以解决这个事情。

结构如下：

with 对象

.属性1=属性值

.属性2=属性值

.属性3=属性值

……

.属性N=属性值

end with

上面代码修改后如下：

Sub 宏2()

With Range('A1')

.Font.Bold = True

.Font.Italic = True

.Font.Underline = xlUnderlineStyleSingle

.Interior.Color = 65535

End With

End Sub

这样就可以避免每次都要重复写对象了。

今天的分享就到这里。

只要你行动，离梦想就会更近一步，欢迎加入我们的学习行列，经常问问题的同学也希望你能转发、分享、赞赏，帮助别人也是在帮自己。

想报名参加培训的同学请联系本人微信：527240310，针对你日常工作中遇到的问题进行培训，培训时会发你素材，同步操作，让你真正学明白。一次报名后，后期录制的所有视频均可免费观看。