VBA实战(Excel)(3)：100个处理表格的实用方法

VBA中的常用对象和属性介绍

VBA是Visual Basic for Applications的缩写，它是一种宏编程语言，常用于Microsoft Office套件中的应用程序，如Excel、Word和Access等。在VBA中，对象和属性扮演着重要的角色。对象是编程中的核心概念，用于表示应用程序中的各种元素，而属性则描述了对象的特征和状态。本文将介绍VBA中的一些常用对象和属性，以帮助读者更好地理解和应用VBA。

一、常用对象介绍

1. Application对象

Application对象代表了当前正在运行的应用程序，例如Excel或Word。它可以用于控制应用程序的各种属性和行为。例如，可以使用Application对象来激活或隐藏应用程序窗口，关闭或打开文件，或者设置应用程序的显示语言。通过Application对象，可以实现对整个应用程序的控制。

2. Workbook对象

Workbook对象代表了Excel中的工作簿，它是Excel中的一个主要对象。通过Workbook对象，可以对工作簿进行各种操作，如打开、关闭、保存和创建新的工作簿。可以通过引用Workbook对象的属性和方法，对工作簿中的数据进行读取和修改，或者对工作簿进行格式化和计算等操作。

3. Worksheet对象

Worksheet对象代表了Excel中的工作表，一个工作簿中可以包含多个工作表。通过Worksheet对象，可以对工作表中的单元格进行操作，如读取和修改单元格的值、格式化单元格的内容和样式，或者在工作表中插入和删除行列等操作。可以通过Workbook对象的Worksheets属性来引用和操作指定的Worksheet对象。

4. Range对象

Range对象代表了Excel中的一个区域，可以是单个单元格、一行或一列，也可以是多行多列的区域。通过Range对象，可以对指定的区域进行各种操作，如读取和修改区域中的值、格式化区域的内容和样式，或者进行区域的复制和粘贴操作。可以通过Worksheet对象的Range属性来引用和操作指定的Range对象。

5. FileSystemObject对象

FileSystemObject对象代表了文件系统中的一个对象，它提供了对文件和文件夹进行操作的方法和属性。通过FileSystemObject对象，可以创建、删除、复制和移动文件和文件夹，或者获取文件和文件夹的属性。可以使用FileSystemObject对象来进行文件的读写、文件夹的遍历和操作等操作。

二、常用属性介绍

1. Name属性

Name属性用于获取或设置对象的名称。对于Workbook对象和Worksheet对象，可以使用Name属性获取或设置工作簿或工作表的名称。例如，可以使用`Workbook.Name`获取或设置工作簿的名称，使用`Worksheet.Name`获取或设置工作表的名称。

2. Value属性

Value属性用于获取或设置对象的值。对于Range对象，可以使用Value属性获取或设置单元格或区域的值。例如，可以使用`Range("A1").Value`获取或设置A1单元格的值，使用`Range("A1:B2").Value`获取或设置A1到B2区域的值。

3. Text属性

Text属性用于获取或设置对象的文本。对于Range对象，可以使用Text属性获取或设置单元格或区域的文本。文本与值的区别在于，文本保留了原始的格式和公式，而值只包含了单元格的结果。例如，可以使用`Range("A1").Text`获取或设置A1单元格的文本。

4. Font属性

Font属性用于设置对象的字体属性，如字体名称、字体大小、字体颜色等。对于Range对象，可以使用Font属性设置单元格或区域中文本的字体属性。例如，可以使用`Range("A1").Font.Name`获取或设置A1单元格文本的字体名称，使用`Range("A1").Font.Size`获取或设置A1单元格文本的字体大小。

5. Interior属性

Interior属性用于设置对象的填充属性，如背景颜色、边框样式等。对于Range对象，可以使用Interior属性设置单元格或区域的填充属性。例如，可以使用`Range("A1").Interior.Color`获取或设置A1单元格的背景颜色，使用`Range("A1:A10").Interior.Pattern`获取或设置A1到A10区域的填充样式。

以上只是介绍了VBA中的一些常用对象和属性，实际应用中还有更多的对象和属性可供使用。通过灵活运用这些对象和属性，可以在VBA编程中实现更多的功能和操作。希望本文的介绍对读者在VBA编程中有所帮助。

1.常用对象

ThisWorkbook 本工作簿，ActiveWorkbook 活动的工作簿，

2. 常用属性

Sub test()
    Debug.Print "本程序文件地址：" & ThisWorkbook.path
    Debug.Print "本程序文件名：" & ThisWorkbook.Name
    Debug.Print "活动工作簿地址：" & ActiveWorkbook.path
    Debug.Print "活动文件名：" & ActiveWorkbook.Name
End Sub

3.常用方法

2.1 删除

Sub test()
    Debug.Print "本程序文件地址：" & ThisWorkbook.path
    Debug.Print "本程序文件名：" & ThisWorkbook.Name
    Debug.Print "活动工作簿地址：" & ActiveWorkbook.path
    Debug.Print "活动文件名：" & ActiveWorkbook.Name
End Sub

4.常用技巧

3.1 遍历

Sub Mybutton()
    Dim sht As Worksheet, btn As Button, strShtName As String
    On Error Resume Next
    strShtName = "总表"
    For Each sht In Worksheets
        If sht.Name <> strShtName Then
            sht.Shapes(strShtName).Delete '删除原有的名称为shtn的按钮，避免重复创建
            Set btn = sht.Buttons.Add(0, 0, 60, 30) '新建按钮，释义见小贴士
            With btn
                .Name = strShtName '命令按钮命名
                .Characters.Text = "返回总表" '按钮的文本内容
                .OnAction = "LinkTable" '指定按钮控件所执行的宏命令
            End With
        End If
    Next
    Set btn = Nothing
End Sub
'_________________________________________
Sub LinkTable()
    Dim trShtName As String
    strShtName = "总表" '设置变量strShtName为总表的名称，可以根据实际总表的名称做修改
    Worksheets(strShtName).Activate
    [a1].Select
End Sub

Sub Mybutton()
    Dim sht As Worksheet, btn As Button, strShtName As String
    On Error Resume Next
    strShtName = "总表"
    For Each sht In Worksheets
        If sht.Name <> strShtName Then
            sht.Shapes(strShtName).Delete '删除原有的名称为shtn的按钮，避免重复创建
            Set btn = sht.Buttons.Add(0, 0, 60, 30) '新建按钮，释义见小贴士
            With btn
                .Name = strShtName '命令按钮命名
                .Characters.Text = "返回总表" '按钮的文本内容
                .OnAction = "LinkTable" '指定按钮控件所执行的宏命令
            End With
        End If
    Next
    Set btn = Nothing
End Sub
'_________________________________________
Sub LinkTable()
    Dim trShtName As String
    strShtName = "总表" '设置变量strShtName为总表的名称，可以根据实际总表的名称做修改
    Worksheets(strShtName).Activate
    [a1].Select
End Sub