Excel 中的工作表

Excel 中的工作表是一种用于存储数据的基本形式。每个工作簿包含多个工作表，每个工作表由行和列组成的单元格网格构成。在程序员的视角下，我们可以通过编写代码来操作 Excel 中的工作表。

操作工作表的对象

在 Excel 中，一个工作簿可以包含多个工作表。我们使用 Workbook 对象来表示工作簿，其中 Worksheets 属性可用于访问工作簿中的所有工作表。而每个工作表都是一个 Worksheet 对象，我们可以使用它来对工作表进行操作，如读写单元格数据、调整格式、添加图表等等。

' 获取工作簿对象
Dim wb As Workbook: Set wb = ThisWorkbook

' 获取第一个工作表对象
Dim ws As Worksheet: Set ws = wb.Worksheets(1)

读写单元格数据

在工作表中，每个单元格由其所在行和列的编号确定。我们可以使用 Cells 属性来表示某个单元格，也可以使用 Range 对象来表示多个单元格。下面是一个示例，展示如何读取单元格数据以及如何将数据写入单元格。

' 读取 A1 单元格数据
Dim val As String: val = ws.Cells(1, 1).Value

' 将 "Hello World!" 写入 A2 单元格
ws.Cells(2, 1).Value = "Hello World!"

调整工作表格式

Excel 中有很多种格式可以用来装饰工作表，例如字体、颜色、边框等等。我们可以使用 Font、Interior、Borders 等属性来设置这些格式。下面是一个示例，展示如何设置单元格格式。

' 将 A1 单元格字体设为红色
ws.Cells(1, 1).Font.Color = RGB(255, 0, 0)

' 将 A2 单元格背景设为蓝色
ws.Cells(2, 1).Interior.Color = RGB(0, 0, 255)

' 将 A3 单元格加上红色的边框
With ws.Cells(3, 1).Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThick
    .Color = RGB(255, 0, 0)
End With

添加图表

Excel 中的图表是一种非常常用的数据可视化方式。我们可以使用 ChartObjects、Chart 等类来在工作表中添加图表。下面是一个示例，展示如何添加一个柱状图。

' 添加一个柱状图到工作表
Dim co As ChartObject: Set co = ws.ChartObjects.Add(100, 100, 400, 300)

' 获取图表对象
Dim chart As Chart: Set chart = co.Chart

' 设置 X 轴和 Y 轴数据范围
Dim xRange As Range: Set xRange = ws.Range("A1:A5")
Dim yRange As Range: Set yRange = ws.Range("B1:B5")
chart.SetSourceData Source:=Union(xRange, yRange)

' 设置图表类型为柱状图
chart.ChartType = xlColumnClustered

总结

Excel 中的工作表是我们在日常开发中经常需要操作的对象，我们可以通过编写代码来读写单元格数据、调整工作表格式以及添加图表等操作。熟悉这些操作可以帮助我们更好地管理和分析数据。