Come tracciare un cerchio intorno a una cella in Excel?
Quando modifichi un foglio di lavoro, potresti voler disegnare un cerchio intorno a una cella per evidenziarla in modo chiaro e immediato, come mostrato nell’immagine seguente. Di seguito ti svelerò alcuni trucchi efficaci per tracciare un cerchio intorno a una cella in Excel.
Tracciare un cerchio intorno a una cella con la forma ovale
Tracciare un cerchio intorno a una cella con VBA
Tracciare un cerchio intorno a una cella con la forma ovale
Per tracciare un cerchio intorno a una cella, inserisci una forma ovale.
1. Fai clic su Inserisci > Forme e seleziona la forma Ovale dalla sezione Forme di base nell’elenco. Vedi immagine:
2. Disegna un ovale in modo da racchiudere la cella desiderata. Vedi immagine:
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), fai clic sulla scheda Riempimento e trascina la freccia di Trasparenza verso destra fino a visualizzare 100 % nella casella di testo. Vedi immagine:
5. Chiudi la finestra di dialogo e vedrai subito un cerchio intorno alla cella.
Suggerimento: per impostazione predefinita, la forma si sposta e ridimensiona insieme alla cella.
Tracciare un cerchio intorno a una cella con VBA
Se desideri tracciare rapidamente un cerchio intorno a una cella, puoi ricorrere al codice VBA.
1. Seleziona la cella che vuoi circondare e premi contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo e copia il seguente codice VBA nella finestra visualizzata.
VBA: traccia un cerchio intorno a 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 oppure fai clic sul pulsante Esegui per eseguire il codice VBA: la cella selezionata è ora circondata da un cerchio.
Suggerimenti:
(1) Se nel primo passaggio selezioni più celle adiacenti, questa macro VBA traccerà un unico cerchio intorno a tutte le celle selezionate.
(2) Se nel primo passaggio selezioni più celle non adiacenti, questa macro VBA traccerà un cerchio intorno a ognuna di esse singolarmente.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi