实例：使用VBA为选定单元格添加边框
背景：
在日常的Excel使用中，为单元格添加边框是一项常见的任务。通过VBA宏，您可以快速为一系列选定的单元格添加边框，而无需手动设置。
步骤：
1.打开VBA编辑器：
在Excel中，按下 `Alt + F11` 打开VBA编辑器。
2. 插入新模块：
在VBA编辑器中，右击VBA项目（您的工作簿），选择“插入” > “模块”。
3. 编写VBA代码：
在新模块中，输入以下代码：vba
Sub AddBordersToSelection()
' 声明变量
Dim selectedRange As Range
' 设置选定区域为当前选定的单元格区域
Set selectedRange = Selection
' 为选定区域添加边框
With selectedRange.Borders
.LineStyle = xlContinuous
.Color = RGB(0, 0, 0) ' 黑色边框
.Weight = xlMedium ' 中等粗细
End With
' 提示边框已添加
MsgBox "边框已添加到选定的单元格。", vbInformation, "边框添加完成"
End Sub
4.保存并关闭VBA编辑器：
保存您的工作簿，并关闭VBA编辑器。
5.运行宏：
在Excel中，按下 `Alt + F8`，选择 ` ThisWorkbook.tjbk ` 宏，然后点击“执行”。
预期结果：
当您运行此宏时，它将为当前选定的单元格区域添加黑色中等粗细的边框，并显示一个消息框告知边框已添加。
这个简单的实例不仅展示了VBA如何与Excel交互，还演示了如何快速完成一项通常需要手动重复点击的任务。通过这种方式，我们可以快速理解VBA的实际应用，并激发我们进一步学习VBA的兴趣。
