Come ripristinare tutte le posizioni dei commenti in Excel?

In un foglio di lavoro che è popolato con più 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 terminato l'operazione, è necessario riportare le caselle dei commenti alla loro posizione originale, come è possibile ripristinare tutte le posizioni dei commenti contemporaneamente in Excel?

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

Ripristina tutte le posizioni della casella dei commenti con il codice VBA in Excel

È possibile applicare il seguente codice VBA per ripristinare contemporaneamente tutte le caselle di commento nelle loro posizioni originali.

1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nel file 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 premere F5 chiave per eseguire questo codice e tutte le posizioni dei commenti nel foglio di lavoro attivo sono state ripristinate contemporaneamente. Vedi screenshot:

Ripristina tutte le posizioni della casella dei commenti con un solo clic

Qui presentiamo il Reimposta posizione commento utilità di Kutools for Excel. Con questa utility, puoi ripristinare rapidamente tutte le posizioni dei commenti nel foglio attivo o tutti i fogli con un solo clic.

1. Se si desidera ripristinare tutte le posizioni della casella dei commenti nel foglio attivo, fare clic su Kutools > altro > Reimposta posizione commento > Foglio attivo.

Per ripristinare la posizione di tutta la casella dei commenti in tutti i fogli della cartella di lavoro corrente, fare clic su Kutools > altro > Reimposta 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 tutti i fogli verranno ripristinate immediatamente alle loro posizioni originali.

Demo: un clic per reimpostare tutte le posizioni della casella dei commenti con Kutools per Excel

Articoli correlati:

• Come cambiare il colore dell'indicatore di commento in Excel?
• Come evidenziare tutte le celle con commenti in Excel?
• Come aggiungere automaticamente data e ora per commentare in Excel?