Przejdź do głównej zawartości

Jak zresetować wszystkie pozycje komentarzy w programie Excel?

W arkuszu, który jest wypełniony wieloma komentarzami, czasami musimy dostosować lub przesunąć pozycję pola komentarza, aby wyświetlić zawartość komórki za polem komentarza, w tym przypadku pola komentarza zostaną przeniesione do różnych pozycji. Po zakończeniu operacji musisz przywrócić pola komentarzy do ich pierwotnej pozycji, jak możesz zresetować wszystkie pozycje komentarzy jednocześnie w programie Excel?

Zresetuj wszystkie pozycje pól komentarzy za pomocą kodu VBA w programie Excel
Jedno kliknięcie, aby zresetować wszystkie pozycje pól komentarzy za pomocą Kutools for Excel


Zresetuj wszystkie pozycje pól komentarzy za pomocą kodu VBA w programie Excel

Możesz zastosować następujący kod VBA, aby jednocześnie przywrócić wszystkie pola komentarzy do ich pierwotnych pozycji.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: zresetuj wszystkie pozycje komentarzy w aktywnym arkuszu

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. Następnie naciśnij F5 aby uruchomić ten kod, a wszystkie pozycje komentarzy w aktywnym arkuszu zostały zresetowane jednocześnie. Zobacz zrzuty ekranu:

doc-reset-komentarz-1
-1
doc-reset-komentarz-2

Zresetuj wszystkie pozycje pól komentarza jednym kliknięciem

Tutaj przedstawiamy Resetuj pozycję komentarza użyteczność Kutools dla programu Excel. Dzięki temu narzędziu jednym kliknięciem możesz szybko zresetować wszystkie pozycje komentarzy w aktywnym arkuszu lub we wszystkich arkuszach.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Jeśli chcesz tylko zresetować wszystkie pozycje pola komentarza w aktywnym arkuszu, kliknij Kutools > Więcej > Resetuj pozycję komentarza > Aktywny arkusz.

Aby zresetować wszystkie pozycje pola komentarza we wszystkich arkuszach bieżącego skoroszytu, kliknij Kutools > Więcej > Resetuj pozycję komentarza > Wszystkie arkusze. Zobacz zrzut ekranu:

Po kliknięciu opcji Aktywny arkusz lub Wszystkie arkusze wszystkie pozycje komentarzy w aktywnym arkuszu lub we wszystkich arkuszach zostaną natychmiast zresetowane do pierwotnych pozycji.

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Jedno kliknięcie, aby zresetować wszystkie pozycje pól komentarzy za pomocą Kutools for Excel


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It's not working with my computer. Ask to save as macro-enabled file type & after save missed out some data. 
This comment was minimized by the moderator on the site
Thank you. The code was helpful to adopt & reset many comments in my worksheet.
Earlier, I had many comment boxes with sizes so huge in height (which was caused accidentally by dragging or something). Even though these comment boxes were not visible always, this was causing one issue - The vertical scroll bar size became small as the comment boxes end position (say, it is big lying over thousands of cells) was also a factor to consider the "active range" in the worksheet.
This comment was minimized by the moderator on the site
Great article, but ... In Excel in my Office 365 (now Microsoft 365), what used to be Comments are now "Notes". Will your macros still work? Thanks.
This comment was minimized by the moderator on the site
After I press F5 and run the code, nothing happens and the comments boxes are still far away - May I ask if you know how to resolve this? Thank you very much.
This comment was minimized by the moderator on the site
Formatting is one of the boring things when it comes to data and reporting and here we have some of the time saver formatting tips for you which you can use in your daily work https://liteblue.me
This comment was minimized by the moderator on the site
Thank you so much for the script.. !!
This comment was minimized by the moderator on the site
A huge thank you, this was so easy and worked perfectly. I've never used a macro before, but I followed your instructions and it was so straight forward. Very much appreciated.
This comment was minimized by the moderator on the site
This is the best, thanks
This comment was minimized by the moderator on the site
Thank you so much for the VBA code!!! You saved me hours of work. Best, Andy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations