Jak kroužit kolem buňky v aplikaci Excel?

Když upravujete list, možná budete chtít nakreslit kruh kolem buňky, aby se zjevně zobrazil, jak je ukázáno níže. Nyní vám představím několik triků, jak kroužit kolem buňky v aplikaci Excel.

Kruh kolem buňky oválného tvaru

Kruhujte kolem buňky pomocí VBA

Kruh kolem buňky oválného tvaru

Chcete-li kroužit kolem buňky, musíte vložit oválný tvar.

1. cvaknutí Vložit > Tvarya vyberte Ovál tvar z Základní tvary v seznamu. Viz screenshot:

2. Nakreslete ovál, aby kroužil kolem buňky, kterou potřebujete. Viz snímek obrazovky:

3. Klikněte pravým tlačítkem na tvar a vyberte Formátovat tvar z kontextového menu.

4. V Formátovat tvar dialogové okno (nebo Formátovat tvar podokně), klikněte na Vyplnit kartu a přetáhněte šipku Průhlednost doprava se ujistit 100% zobrazování v textovém poli. Viz snímek obrazovky:

5. Zavřete dialogové okno. Nyní můžete vidět, že kolem buňky je kruh.

Tip: Ve výchozím nastavení se tvar bude pohybovat a měnit velikost s buňkou.

Kruhujte kolem buňky pomocí VBA

Chcete-li rychle kroužit kolem buňky, můžete použít kód VBA.

1. Vyberte buňku, kterou chcete kroužit, a stiskněte Alt + F11 klíče otevřete Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul a zkopírujte následující kód VBA do vyskakovacího okna.

VBA: Kruh kolem buňky.

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. lis F5 klíč nebo klik Běh tlačítko pro spuštění kódu VBA, nyní je vybraná buňka zakroužkována.

Tip:

(1) Pokud v prvním kroku vyberete více sousedních buněk, bude toto makro VBA kroužit kolem těchto buněk dohromady.

(2) Pokud v prvním kroku vyberete více nesousedících buněk, bude toto makro VBA kroužit kolem každé buňky zvlášť.