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マクロは各セルを個別に囲みます。