VBA中某个对象多个属性的简便写法：With，以及With的嵌套

With结构

在VBA 中，With 结构用于组合同一个对象的多个属性和方法，避免重复写同一个对象名，提高编程和运行效率。

With 结构由 With 和 End With 两个语句构成，对象的属性和方法都写在两者之间。基本语法如下：

With [对象]
  .[属性] = [数据]
  .[方法]
  '其他属性和方法
End With

With 结构里，对象的属性和方法均由点 (.)符号开始，后接对象的属性名和方法名。

示例：

将工作簿中 Sheet1 工作表设置新名称，然后设置标签颜色为黑色，最后隐藏工作表。

如果不用 With 结构，代码如下：

Sub MyCode()

  Worksheets("Sheet1").Name = "新名称"
  Worksheets("新名称").Tab.ThemeColor = xlThemeColorLight1
  Worksheets("新名称").Visible = xlSheetHidden

End Sub

使用With结构，代码如下：

Sub MyCode()

  With Worksheets("Sheet1")
    .Name = "新名称"
    .Tab.ThemeColor = xlThemeColorLight1
    .Visible = xlSheetHidden
  End With

End Sub

 

嵌套 With 结构

 With 结构还能嵌套编写，即一个 With 结构中，如果父对象的属性是另一个对象，则针对这个子对象，继续使用 With 结构。

在之前的例子中，如果需要将 Sheet1 工作表中，A1:A10 单元格区域设置背景颜色，调整字体和字体大小，可以使用如下代码：

Sub MyCode()

  With Worksheets("Sheet1")
    .Name = "新名称"
    .Tab.ThemeColor = xlThemeColorLight1
    .Visible = xlSheetHidden
    
    With .Range("A1:A10")
      .Interior.ThemeColor = xlThemeColorAccent1
      .Font.Size = 12
      .Font.Name = "等线"
    End With

  End With

End Sub