Come circondare una cella in Excel?

Durante la modifica di un foglio di lavoro, potresti voler disegnare un cerchio intorno a una cella per evidenziarla chiaramente, come mostrato nello screenshot sottostante. Ora ti presenterò alcuni trucchi per circondare una cella in Excel.

Circondare una cella con una forma ovale

Circondare una cella con VBA

Circondare una cella con una forma ovale

Per circondare una cella, devi inserire una forma ovale.

1. Clicca su Inserisci > Forme e seleziona la forma Oval dalla sezione Forme Base nell'elenco. Vedi screenshot:

2. Disegna l'ovale intorno alla cella che desideri circondare. Vedi screenshot:

3. Fai clic con il tasto destro sulla forma e seleziona Formato forma dal menu contestuale.

4. Nella finestra di dialogo Formato forma (o nel riquadro Formato forma), clicca sulla scheda Riempimento e trascina la freccia di Trasparenza verso destra per assicurarti che venga visualizzato al 100% nella casella di testo. Vedi screenshot:

5. Chiudi la finestra di dialogo. Ora puoi vedere che c'è un cerchio intorno alla cella.

Suggerimento: Per impostazione predefinita, la forma si sposterà e ridimensionerà insieme alla cella.

Circondare una cella con VBA

Se vuoi circondare rapidamente una cella, puoi utilizzare il codice VBA.

1. Seleziona la cella che desideri circondare e premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e copia il seguente codice VBA nella finestra appena aperta.

VBA: Circondare una cella.

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. Premi il tasto F5 o clicca sul pulsante Esegui per eseguire il codice VBA; ora la cella selezionata è circondata.

Suggerimenti:

(1) Se selezioni più celle adiacenti nel primo passaggio, questa macro VBA circonderà tutte queste celle insieme.

(2) Se selezioni più celle non adiacenti nel primo passaggio, questa macro VBA circonderà ogni cella individualmente.