在VBA中,With语句是一个非常有用的结构,它允许你对一个对象执行多个操作,而不需要在每次引用该对象时都重复其名称。这不仅可以减少代码量,还可以使代码更加清晰和易于维护。
一、基本语法
'''
With object
.property1 = value1
.method1
.property2 = value2
……
可以继续添加更多的属性赋值或方法调用
End With
'''
二、示例
'''
调整工作表(Worksheet)上的几个单元格的格式
'''
Worksheets("Sheet1").Range("A1").Font.Bold = True
Worksheets("Sheet1").Range("A1").Font.Size = 14
Worksheets("Sheet1").Range("A1").Interior.Color = RGB(255, 255, 0)
'''
使用With语句后,代码可以简化为:
'''
With Worksheets("Sheet1").Range("A1")
.Font.Bold = True
.Font.Size = 14
.Interior.Color = RGB(255, 255, 0)
End With
三、注意
虽然With语句本身不支持直接的嵌套(即,你不能在一个With块内再定义一个With块来引用不同的对象),但你可以通过代码逻辑来实现类似的效果。