Hur automatiskt storleksanpassa kommentarrutan så att den passar innehållet i Excel?

När du sätter in kommentarer i celler är storleken på kommentarrutan standard. Om du anger mycket innehåll i det kommer en del av innehållet inte att vara synligt direkt. Är det möjligt att anpassa storleken på kommentarrutan till dess innehåll automatiskt?

Kommentera rutan för automatisk storlek så att den passar innehållet i ett kalkylblad
Kommentera rutan för automatisk storlek för att passa dess innehåll i en rad celler
Komplettera enkelt kommentarrutan automatiskt så att den passar innehållet i det aktiva arket eller hela arket med ett fantastiskt verktyg

Kommentera rutan för automatisk storlek så att den passar innehållet i ett kalkylblad

I Excel kan du dra kommentarrutan till din behovsstorlek manuellt en efter en, men om det finns många kommentarrutor behöver du ändra storlek kommer det här att bli tråkigt och tidskrävande. I det här fallet kan du tillämpa följande VBA-kod.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulernaoch klistra in följande makro i Modulfönster.

VBA-kod: Kommentera rutor i storlek automatiskt i ett kalkylblad

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

3. Tryck sedan på F5 nyckel för att köra den här koden, och alla kommentarrutor i det aktiva kalkylbladet har ändrats för att passa deras innehåll enligt följande skärmdump:

Tips: Den här koden fungerar bara i det aktuella kalkylbladet och kan inte automatiskt ändra storlek på de nya kommentarrutorna du lägger till.

Kommentera rutan för automatisk storlek för att passa dess innehåll i en rad celler

Om du bara behöver ändra storlek på ett antal cellkommentarrutor kan du använda följande VBA-kod.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulernaoch klistra in följande makro i Modulfönster.

VBA-kod: Auto-storlek kommentarrutor i en rad celler

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta visas för att påminna dig om att välja ett cellområde som du vill ändra storlek på kommentarrutorna, se skärmdump:

4. Och klicka sedan på OK, de valda cellkommentarrutorna har automatiskt anpassats till kommentarinnehållet.

Tips: Den här koden kan inte automatiskt ändra storlek på de nya kommentarrutorna du lägger till.

Kommentera rutan för automatisk storlek för att passa innehållet i det aktiva arket eller hela arket 

Du kan prova Kommentar för automatisk anpassning nytta av Kutools för Excel för att automatiskt ändra storlek på aLl kommentarrutor i aktivt ark eller alla ark i Excel. Gör så här.

1. Om du vill ändra storlek på kommentarrutor så att de passar innehållet i ett aktivt ark, klicka Kutools > Snarare > Kommentar för automatisk anpassning > Aktivt ark.

Och om du vill ändra storlek på alla kommentarrutor i hela arbetsboken, klicka Kutools > Snarare > Kommentar för automatisk anpassning > Alla lakan. Se skärmdump:

Sedan ändras alla kommentarrutor automatiskt så att de passar deras innehåll. Se skärmdump:

Anmärkningar:

• 1. Efter att automatiskt ändra storlek på kommentarrutorna kommer kommentarrutan att automatiskt expandera eller krympa med innehållet när du redigerar kommentaren igen.
• 2. För de nya kommentarerna som du har lagt in måste du aktivera detta AutoFit-kommentarverktyg igen för att ändra storlek på alla nya infogade kommentarrutor.

Anpassa enkelt kommentarrutan automatiskt så att den passar dess innehåll

Relaterade artiklar:

• Hur ändrar jag formen på kommentarrutan i Excel?
• Hur ändrar jag alla kommentarformat i celler i Excel?
• Hur listar jag alla kommentarer till ett nytt kalkylblad eller en arbetsbok i Excel?
• Hur infogar jag bild eller bild i kommentar i Excel?

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...