Przejdź do głównej zawartości

Jak automatycznie dopasować rozmiar pola komentarza, aby pasował do jego zawartości w programie Excel?

Podczas wstawiania komentarzy do komórek rozmiar pola komentarza jest domyślny. Jeśli wprowadzisz do niego dużo treści, część treści nie będzie bezpośrednio widoczna. Czy możliwe jest automatyczne dopasowanie rozmiaru pola komentarza do jego zawartości?

Pole komentarza o automatycznym rozmiarze, aby dopasować jego zawartość do arkusza
Pole komentarza o automatycznym rozmiarze, aby dopasować jego zawartość do zakresu komórek
Łatwo automatycznie dopasuj rozmiar pola komentarza, aby dopasować jego zawartość do aktywnego arkusza lub całego arkusza za pomocą niesamowitego narzędzia


Pole komentarza o automatycznym rozmiarze, aby dopasować jego zawartość do arkusza

W programie Excel możesz ręcznie przeciągnąć pole komentarza do wymaganego rozmiaru ręcznie, jeden po drugim, ale jeśli istnieje wiele pól komentarzy, które wymagają zmiany rozmiaru, będzie to żmudne i czasochłonne. W takim przypadku możesz zastosować następujący kod VBA.

1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Modułi wklej następujące makro w Okno modułu.

Kod VBA: pola komentarzy o automatycznym rozmiarze w arkuszu

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a rozmiar wszystkich pól komentarzy w aktywnym arkuszu został zmieniony w celu dopasowania ich zawartości, jak pokazano na poniższym zrzucie ekranu:

komentarz do rozmiaru dokumentu 1

Wskazówka: Ten kod działa tylko w bieżącym arkuszu i nie może automatycznie zmieniać rozmiaru nowych dodawanych pól komentarzy.


Jedno kliknięcie, aby szybko dopasować rozmiar pola komentarza do jego zawartości w programie Excel:

Połączenia Komentarz autodopasowania użyteczność Kutools dla programu Excel może pomóc w szybkim automatycznym dopasowaniu rozmiaru pola komentarza do jego zawartości w arkuszu, jak pokazano poniżej. Pobierz i wypróbuj teraz! (30-dniowy bezpłatny szlak)


Pole komentarza o automatycznym rozmiarze, aby dopasować jego zawartość do zakresu komórek

Jeśli potrzebujesz tylko automatycznie zmienić rozmiar zakresu pól komentarzy do komórek, możesz użyć następującego kodu VBA.

1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Modułi wklej następujące makro w Okno modułu.

Kod VBA: pola komentarzy o automatycznym rozmiarze w zakresie komórek

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Następnie naciśnij F5 klawisz, aby wykonać ten kod, a pojawi się okno zachęty przypominające o wybraniu zakresu komórek, które chcesz zmienić rozmiar pól komentarza, patrz zrzut ekranu:

pole-komentarze-doc-resize3

4. A następnie kliknij OK, wybrane pola komentarzy do komórek zostały automatycznie dopasowane do treści komentarza.

Wskazówka: Ten kod nie może automatycznie zmieniać rozmiaru nowych pól komentarzy, które dodajesz.


Pole komentarza o automatycznym rozmiarze, aby dopasować jego zawartość do aktywnego arkusza lub całego arkusza 

Możesz spróbować Komentarz autodopasowania użyteczność Kutools dla programu Excel aby automatycznie zmienić rozmiarwszystkie pola komentarzy w aktywnym arkuszu lub wszystkie arkusze w programie Excel. Wykonaj następujące czynności.

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

1. Aby automatycznie zmienić rozmiar pól komentarzy w celu dopasowania ich zawartości do aktywnego arkusza, kliknij Kutools > Więcej > Komentarz autodopasowania > Aktywny arkusz.

Jeśli chcesz automatycznie zmienić rozmiar wszystkich pól komentarzy w całym skoroszycie, kliknij Kutools > Więcej > Komentarz autodopasowania > Wszystkie arkusze. Zobacz zrzut ekranu:

Następnie rozmiar wszystkich pól komentarzy jest automatycznie dopasowywany do ich zawartości. Zobacz zrzut ekranu:

Uwagi:

  • 1. Po automatycznej zmianie rozmiaru pól komentarza, podczas ponownej edycji komentarza, pole komentarza zostanie automatycznie rozszerzone lub zmniejszone wraz z zawartością.
  • 2. W przypadku nowych wstawionych komentarzy należy ponownie włączyć to narzędzie do komentowania AutoFit, aby zmienić rozmiar wszystkich nowych wstawianych pól komentarzy.

  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.


Łatwo automatycznie dopasuj rozmiar pola komentarza do jego zawartości


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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations