黑白鱼-黑白鱼001-软件工具-股票投资-股海泛舟

VBA之with语句的使用

发布:shubiao052018-9-28 15:42分类: VBA 标签: VBA

    如果我们要对A1单元格的字体进行设置,可以用以下程序代码:

    

Sub FontSet()
Worksheets("sheet1").Range("A1").Font.Name = "宋体"
Worksheets("sheet1").Range("A1").Font.Size = 12
Worksheets("sheet1").Range("A1").Font.Bold = True
Worksheets("sheet1").Range("A1").Font.ColorIndex = 7
End Sub
    上面有很多重复的字段,我们可以改用With语句进行编写: 

Sub FontSet()
With Worksheets("sheet1").Range("A1").Font
    .Name = "宋体"
    .Size = 12
    .Bold = True
    .ColorIndex = 10
End With
End Sub
    合理合用With语句,可以减少代码的输入量,节省时间,提高编程效率。
    欢迎关注公众号:黑白鱼001



温馨提示如有转载或引用以上内容之必要,敬请将本文链接作为出处标注,谢谢合作!

已有 0/18908 人参与

欢迎订阅黑白鱼

欢迎使用手机扫描二维码,关注公众号“黑白鱼001”