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:

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

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:

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.

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

Jeśli chcesz automatycznie zmienić rozmiar wszystkich pól komentarzy w całym skoroszycie, kliknij Kutools > Dowiedz się 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.

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

Podobne artykuły:

• Jak zmienić kształt pola komentarza w programie Excel?
• Jak zmienić wszystkie formaty komentarzy w komórkach w programie Excel?
• Jak wyświetlić wszystkie komentarze do nowego arkusza lub skoroszytu w programie Excel?
• Jak wstawić zdjęcie lub obraz w komentarzu w programie Excel?

---

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.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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!

Czytaj więcej... Darmowe pobieranie... Zakup...