VBA With 基础教程

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

语法:

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

With [对象]    

    .[属性] = [数据]   

    .[方法]    '其他属性和方法

End With

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

示例 :

假设现在需要操作工作簿中的sheet2的一系列动作如下：

Sub Demo()

    Worksheets("Sheet2").Name = "villiam"
    Worksheets("villiam").Tab.ThemeColor = xlThemeColorLight1
    Worksheets("villiam").Visible = xlSheetHidden
    
End Sub

以上代码也没问题，但却有重复的代码部分。我们尝试使用with来优化下：

Sub Demo()

    With Worksheets("Sheet2")
        .Name = "villiam"
        .Tab.ThemeColor = xlThemeColorLight1
        .Visible = xlSheetHidden
    End With
    
End Sub

看起来是不是瞬间升级了一个档次～

我们再来看个复杂的with结构：

Sub Demo()

    With Worksheets("Sheet2")
        .Name = "villiam"
        .Tab.ThemeColor = xlThemeColorLight1
        .Visible = xlSheetHidden
        
        With .Range("C1:C10")
            .Interior.ThemeColor = xlThemeColorAccent1
            .Font.Size = 10
            .Font.Name = "等线    "
        End With
        
    End With
    
End Sub

总结 :

With 结构可以将同一个对象的多个属性和方法组合起来，避免重复写对象名。此外，With 结构还能嵌套使用，进一步提高编程效率和程序运行效率。