Jak automaticky změnit velikost pole pro komentář tak, aby odpovídal jeho obsahu v aplikaci Excel?

Při vkládání komentářů do buněk je výchozí velikost pole pro komentář. Pokud do ní zadáte velké množství obsahu, část obsahu nebude přímo viditelná. Je možné automaticky přizpůsobit velikost pole pro komentář jeho obsahu?

Pole komentáře s automatickou velikostí, aby se jeho obsah vešel do listu
Pole komentáře s automatickou velikostí, aby se jeho obsah vešel do řady buněk
Snadno automaticky upravte velikost pole pro komentář, aby se jeho obsah vešel na aktivní list nebo celý list s úžasným nástrojem

Pole komentáře s automatickou velikostí, aby se jeho obsah vešel do listu

V aplikaci Excel můžete pole pro komentář přetáhnout na velikost vaší potřeby jeden po druhém, ale pokud je třeba změnit velikost polí pro komentář, bude to zdlouhavé a časově náročné. V tomto případě můžete použít následující kód VBA.

1. Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula vložte následující makro do souboru Okno modulu.

Kód VBA: Automatická velikost polí komentářů v listu

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

3. Poté stiskněte F5 klíč ke spuštění tohoto kódu a všechna pole komentářů v aktivním listu byla změněna tak, aby odpovídala jejich obsahu, jak ukazuje následující snímek obrazovky:

Tip: Tento kód funguje pouze v aktuálním listu a nemůže automaticky změnit velikost nových polí pro komentář, které přidáte.

Pole komentáře s automatickou velikostí, aby se jeho obsah vešel do řady buněk

Pokud potřebujete automaticky změnit velikost políček pro komentáře k buňkám, můžete použít následující kód VBA.

1. Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula vložte následující makro do souboru Okno modulu.

Kód VBA: Automatická velikost polí komentářů v řadě buněk

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. Poté stiskněte F5 klíč k provedení tohoto kódu a zobrazí se výzva, aby vám připomněla výběr rozsahu buněk, u kterých chcete změnit velikost polí komentářů, viz screenshot:

4. A potom klikněte OK, vaše vybraná pole pro komentář buňky byla automaticky přizpůsobena obsahu komentáře.

Tip: Tento kód nemůže automaticky změnit velikost nových polí pro komentář, které přidáte.

Pole komentáře s automatickou velikostí, aby se vešel jeho obsah na aktivní list nebo na celý list 

Můžete zkusit Automatické přizpůsobení komentáře užitečnost Kutools pro Excel automaticky změnit velikost aVšechna pole s poznámkami na aktivním listu nebo na všech listech v aplikaci Excel. Postupujte prosím následovně.

1. Chcete-li automaticky změnit velikost polí komentářů, aby se jejich obsah vešel na aktivní list, klikněte prosím Kutools > Moře > Automatické přizpůsobení komentáře > Aktivní list.

A pokud chcete automaticky změnit velikost všech polí komentářů v celém sešitu, klikněte prosím Kutools > Moře > Automatické přizpůsobení komentáře > Všechny listy. Viz snímek obrazovky:

Poté se automaticky změní velikost všech polí komentářů tak, aby odpovídala jejich obsahu. Viz screenshot:

Poznámky:

• 1. Po automatické změně velikosti polí komentářů se při opětovné úpravě pole komentář automaticky rozbalí nebo zmenší s obsahem.
• 2. U nových komentářů, které jste vložili, musíte znovu povolit tento nástroj pro komentáře AutoFit, abyste mohli změnit velikost všech nově vložených polí komentářů.

Snadno automaticky upravte velikost pole pro komentář tak, aby odpovídal jeho obsahu

Související články:

• Jak změnit tvar pole pro komentář v aplikaci Excel?
• Jak změnit všechny formáty komentářů v buňkách v aplikaci Excel?
• Jak vypsat všechny komentáře k novému listu nebo sešitu v aplikaci Excel?
• Jak vložit obrázek nebo obrázek do komentáře v aplikaci Excel?

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Stažení zdarma... Nákup...