Jak obnovit všechny pozice komentářů v aplikaci Excel?

V listu, který je naplněn několika komentáři, někdy potřebujeme upravit nebo přesunout pozici pole pro komentář, aby se zobrazil obsah buňky za polem pro komentář, v tomto případě budou pole pro komentář přesunuta na různé pozice. Po dokončení operace musíte vrátit pole komentářů na jejich původní pozici, jak byste mohli obnovit všechny pozice komentářů najednou v aplikaci Excel?

Resetujte všechny pozice polí komentářů pomocí kódu VBA v aplikaci Excel
Jedním kliknutím resetujete všechny pozice políčka komentářů pomocí Kutools pro Excel

Resetujte všechny pozice polí komentářů pomocí kódu VBA v aplikaci Excel

Následující kód VBA můžete použít k obnovení všech polí komentářů do jejich původních pozic najednou.

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Resetuje všechny pozice komentářů v aktivním listu

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechny pozice komentářů v aktivním listu byly resetovány najednou. Zobrazit snímky obrazovky:

Resetujte všechny pozice pole s komentářem pouze jedním kliknutím

Zde představujeme Obnovit pozici komentáře užitečnost Kutools pro Excel. S tímto nástrojem jediným kliknutím můžete rychle obnovit všechny pozice komentářů v aktivním listu nebo ve všech listech.

1. Pokud chcete pouze obnovit pozici všech polí poznámek v aktivním listu, klikněte prosím Kutools > Více > Obnovit pozici komentáře > Aktivní list.

Chcete-li obnovit polohu všech polí komentářů ve všech listech aktuálního sešitu, klikněte prosím Kutools > Více > Obnovit pozici komentáře > Všechny listy. Viz snímek obrazovky:

Po kliknutí na Aktivní list nebo Všechny listy budou všechny pozice komentářů na aktivním listu nebo na všech listech okamžitě obnoveny do původních pozic.

Demo: Jedním kliknutím resetujete všechny pozice pole komentářů pomocí Kutools pro Excel

Související články:

• Jak změnit barvu indikátoru komentáře v aplikaci Excel?
• Jak zvýraznit všechny buňky komentáři v aplikaci Excel?
• Jak automaticky přidat datum a čas pro komentář v aplikaci Excel?