Note: The other languages of the website are Google-translated. Back to English

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 > Dowiedz się więcej > Resetuj pozycję komentarza > Aktywny arkusz.

Aby zresetować wszystkie pozycje pola komentarza we wszystkich arkuszach bieżącego skoroszytu, kliknij Kutools > Dowiedz się 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 skorzystać z bezpłatnego okresu próbnego (30-dzień) 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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (9)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo za kod VBA!!! Zaoszczędziłeś mi godziny pracy. Najlepiej, Andy
Ten komentarz został zminimalizowany przez moderatora na stronie
To jest najlepsze, dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Ogromne podziękowania, to było takie proste i działało idealnie. Nigdy wcześniej nie używałem makra, ale postępowałem zgodnie z twoimi instrukcjami i było to takie proste. Bardzo doceniam.
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo dziękuję za scenariusz.. !!
Ten komentarz został zminimalizowany przez moderatora na stronie
Formatowanie to jedna z nudnych rzeczy, jeśli chodzi o dane i raportowanie, a tutaj mamy dla Ciebie kilka porad dotyczących formatowania, które pozwalają zaoszczędzić czas, które możesz wykorzystać w codziennej pracy https://liteblue.me
Ten komentarz został zminimalizowany przez moderatora na stronie
Po naciśnięciu klawisza F5 i uruchomieniu kodu nic się nie dzieje, a pola komentarzy są nadal daleko - czy mogę zapytać, czy wiesz, jak rozwiązać ten problem? Dziękuję bardzo.
Ten komentarz został zminimalizowany przez moderatora na stronie
Świetny artykuł, ale… W Excelu w moim Office 365 (teraz Microsoft 365) to, co kiedyś było Komentarzami, to teraz „Notatki”. Czy Twoje makra nadal będą działać? Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci. Kod był pomocny przy przyjmowaniu i resetowaniu wielu komentarzy w moim arkuszu.
Wcześniej miałem wiele okienek komentarzy o tak ogromnych rozmiarach (co było spowodowane przypadkowym przeciągnięciem lub czymś takim). Mimo że te pola komentarzy nie były zawsze widoczne, powodowało to jeden problem — rozmiar pionowego paska przewijania stał się mały, ponieważ pozycja końcowa pól komentarzy (powiedzmy, że jest duża na tysiącach komórek) była również czynnikiem, który należy wziąć pod uwagę „aktywny zakres” w arkuszu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie działa z moim komputerem. Poproś o zapisanie jako typ pliku z obsługą makr i po zapisaniu brakuje niektórych danych. 
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL