如何在 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 鍵或點擊 執行 按鈕來運行程式碼，現在所選的儲存格已被圈出。

提示：

(1) 如果您在第一步選擇了多個相鄰的儲存格，這個 VBA 宏將一起圈出這些儲存格。

(2) 如果您在第一步選擇了多個不相鄰的儲存格，這個 VBA 宏將分別圈出每個儲存格。