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

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:

Podróż Ruta de la Plata w liczbach 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-dzień wolny 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 > 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.

  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.


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


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 (18)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki Ci. Proste i szybkie rozwiązanie mojego problemu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Korzystanie z kodu 1. Dim xComment As Comment For Every xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. Problem z tym błędem występuje 445 odwołanie do obiektu With Range("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape Koniec na
Ten komentarz został zminimalizowany przez moderatora na stronie
To nie działało tak, jak pierwszy wysłany przez Ciebie kod, pasuje tylko do treści, czego chcę, jest czymś, co sprawi, że będą miały tę samą szerokość, a długość automatycznie dopasuje się do zawartości, ponieważ tak wygląda teraz kolumna H, a kolumna A różni się w szerokość size chciałby, aby kolumna A miała szerokość trzech kolumn i długość, aby zmieścić zawartość i rosła w miarę potrzeb po naciśnięciu klawisza Enter długość pola powinna rosnąć o linię, czy jest na to kod? zauważ, że próbowałem obu kluczowych kodów tej strony, którą wysłałeś jako ostatni.
Ten komentarz został zminimalizowany przez moderatora na stronie
to w ogóle nie działało. Wielokrotnie pojawiał się błąd.
Ten komentarz został zminimalizowany przez moderatora na stronie
Otrzymuję błąd: Run-time '1004': Metoda AutoSize obiektu TextFrame nie powiodła się
Ten komentarz został zminimalizowany przez moderatora na stronie
„Kod VBA: pola komentarzy o automatycznym rozmiarze w arkuszu” zadbał o komentarze w moim arkuszu kalkulacyjnym. Dzięki wielkie!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobry! Rozwiązał mój problem.
Ten komentarz został zminimalizowany przez moderatora na stronie
To naprawdę miła i pomocna informacja. Cieszę się, że udostępniłeś nam te przydatne informacje. Prosimy o informowanie nas w ten sposób. Dzięki za udostępnienie. kdagekebeceddded
Ten komentarz został zminimalizowany przez moderatora na stronie
Podczas gdy kod działa, zwiększa pole o jeden wiersz, co oznacza, że ​​duże komentarze znikają gdzieś poza stroną. Czy mógłbyś podać kod do ustalania szerokości każdego pola (powiedzmy trzy standardowe szerokości kolumn Excela) i automatycznego dopasowywania długości pola do tekstu? Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo. To naprawdę uratowało mnie od wielu kłopotów.
Ten komentarz został zminimalizowany przez moderatora na stronie
@DENNIE „Podczas gdy kod działa, pole jest wysokie o jeden wiersz, co oznacza, że ​​duże komentarze znikają gdzieś poza stroną. Czy możesz podać kod do ustalania szerokości każdego pola (powiedzmy trzy standardowe szerokości kolumn Excela) i automatycznego dopasowywania długość pudełka, aby zmieścił się tekst? Dzięki." // Zgoda
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo za udostępnienie tego. Naprawdę pomocny!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób, aby linia od pola komentarza do komórki była ciemniejsza lub grubsza?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Demondrew,
Przepraszam, może ci w tym pomóc.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wydaje mi się, że Crystal zbiło nas z właściwej drogi, pytanie brzmiało: czy istnieje sposób, aby linia od pola komentarza do komórki była ciemniejsza lub grubsza? To byłaby linia otaczająca pole komentarza. TIA DD
Ten komentarz został zminimalizowany przez moderatora na stronie
zdumiewający! dziękuję, pierwszy sposób działa! zaoszczędziło mi godzin pracy!
Ten komentarz został zminimalizowany przez moderatora na stronie
To nie działa, moduł insert się nie wyświetla
Ten komentarz został zminimalizowany przez moderatora na stronie
Bomdia,

Salvou de mais! Após abrir planilha nie celular todos os komentarze ficaram desajustados nie pc.
Tinha mais od 10 milionów komentarzy za arrumar lub tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
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