Excelでセルを一周する方法は？

ワークシートを編集するときは、下のスクリーンショットのように、セルの周りに円を描いて明らかに表示することをお勧めします。 ここで、Excelのセルを一周するための秘訣をいくつか紹介します。

楕円形のセルの周りを一周します

VBAでセルの周りを一周します

楕円形のセルの周りを一周します

セルの周りを一周するには、楕円形を挿入する必要があります。

1。 クリック インセット > 形状、および選択 オーバル からの形 基本図形 リストのセクション。 スクリーンショットを参照してください：

2.必要なセルの周りを一周するように楕円を描きます。 スクリーンショットを参照してください：

3.形状を右クリックして、を選択します 書式の書式 コンテキストメニューから。

4。 の中に 書式の書式 ダイアログ（または 書式の書式 ペイン）、をクリックします 埋める タブをクリックし、の矢印をドラッグします 透明性 確認するために右側に 100％ テキストボックスに表示します。 スクリーンショットを参照してください：

5.ダイアログを閉じます。 これで、セルの周りに円があることがわかります。

先端: デフォルトでは、図形はセルとともに移動し、サイズが変更されます。

VBAでセルの周りを一周します

セルをすばやく一周したい場合は、VBAコードを使用できます。

1.円を描くセルを選択し、を押します Altキー+ F11 一緒に鍵を開いて アプリケーション向け Microsoft Visual Basic 窓。

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