Come ripristinare tutte le posizioni dei commenti in Excel?

In un foglio di lavoro popolato con diversi commenti, a volte è necessario regolare o spostare la posizione della casella dei commenti per visualizzare il contenuto della cella dietro la casella dei commenti. In questo caso, le caselle dei commenti verranno spostate in posizioni diverse. Dopo aver completato l'operazione, è necessario riportare le caselle dei commenti alla loro posizione originale. Come si possono ripristinare tutte le posizioni dei commenti contemporaneamente in Excel?

Ripristina tutte le posizioni delle caselle dei commenti con il codice VBA in Excel
Un clic per ripristinare tutte le posizioni delle caselle dei commenti con Kutools per Excel

Ripristina tutte le posizioni delle caselle dei commenti con il codice VBA in Excel

È possibile applicare il seguente codice VBA per ripristinare tutte le caselle dei commenti alle loro posizioni originali in una volta sola.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del modulo.

Codice VBA: Ripristina tutte le posizioni dei commenti nel foglio di lavoro attivo

Sub ResetComments()
'Update 20141110
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub

3. Quindi premi il tasto F5 per eseguire questo codice, e tutte le posizioni dei commenti nel foglio di lavoro attivo verranno ripristinate in una volta sola. Vedi gli screenshot:

Ripristina tutte le posizioni delle caselle dei commenti con un solo clic

Qui introduciamo l'utilità Ripristina posizione commento di Kutools per Excel. Con questa utilità, puoi rapidamente ripristinare tutte le posizioni dei commenti nel foglio attivo o in tutti i fogli con un solo clic.

1. Se vuoi solo ripristinare tutte le posizioni delle caselle dei commenti nel foglio attivo, fai clic su Kutools > Altro > Ripristina posizione commento > Foglio attivo.

Per ripristinare tutte le posizioni delle caselle dei commenti in tutti i fogli della cartella di lavoro corrente, fai clic su Kutools > Altro > Ripristina posizione commento > Tutti i fogli. Vedi screenshot:

Dopo aver fatto clic su Foglio attivo o Tutti i fogli, tutte le posizioni dei commenti nel foglio attivo o in tutti i fogli verranno ripristinate immediatamente alle loro posizioni originali.

Demo: Un clic per ripristinare tutte le posizioni delle caselle dei commenti con Kutools per Excel

Articoli correlati:

• Come cambiare il colore dell'indicatore dei commenti in Excel?
• Come evidenziare tutte le celle con commenti in Excel?
• Come aggiungere automaticamente data e ora ai commenti in Excel?