如何在 Excel 中围绕单元格画圈？

在编辑工作表时，您可能希望围绕某个单元格画一个圈，以使其更加显眼，如下方截图所示。现在我将为您介绍一些在 Excel 中围绕单元格画圈的小技巧。

使用椭圆形围绕单元格

使用 VBA 围绕单元格

使用椭圆形围绕单元格

要围绕单元格画圈，您需要插入一个椭圆形。

1. 单击 插入 > 形状，并从列表中的 基本形状 部分选择 椭圆 形状。参见截图：

2. 绘制椭圆以围绕所需的单元格。参见截图：

3. 右键单击该形状，并从上下文菜单中选择 设置形状格式。

4. 在 设置形状格式 对话框（或 设置形状格式 窗格）中，单击 填充 选项卡，并将 透明度 的箭头向右拖动，确保文本框中显示为 100%。参见截图：

5. 关闭对话框。现在您可以看到单元格周围有一个圆圈。

提示：默认情况下，形状会随单元格移动和调整大小。

使用 VBA 围绕单元格

如果您想快速围绕单元格画圈，可以使用 VBA 代码。

1. 选择要围绕画圈的单元格并按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块 并将以下 VBA 代码复制到弹出的窗口中。

VBA：围绕单元格画圈。

Sub DrawCircle()
	'Updateby20141105
	Dim Arng As Range
	Dim WorkRng As Range
	Set WorkRng = Application.Selection
	For Each Arng In WorkRng.Areas
		With Arng
			x = Arng.Height * 0.1
			y = Arng.Width * 0.1
			Application.ActiveSheet.Ovals.Add Top: = .Top - x, Left: = .Left - y, _
			Height: = .Height + 2 * x, Width: = .Width + 1.5 * y
			With Application.ActiveSheet.Ovals(ActiveSheet.Ovals.Count)
				.Interior.ColorIndex = xlNone
				.ShapeRange.Line.Weight = 1.25
			End With
		End With
	Next
	WorkRng.Select
End Sub

3. 按 F5 键或单击 运行 按钮运行 VBA 代码，现在所选单元格已被圈住。

提示：

(1) 如果在第一步中选择了多个相邻单元格，此 VBA 宏将一起围绕这些单元格画圈。

(2) 如果在第一步中选择了多个不相邻的单元格，此 VBA 宏将分别围绕每个单元格画圈。