Hoppa till huvudinnehåll

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

Författare: Xiaoyang Senast ändrad: 2024-09-04

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:

vba-kod för att automatiskt anpassa kommentarsrutan för att passa innehåll i ett kalkylblad

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.


Ett klick för att snabbt anpassa kommentarrutans storlek till dess innehåll automatiskt i Excel:

Smakämnen Autofit-kommentar nytta av Kutools för Excel kan hjälpa dig att snabbt anpassa storleken på kommentarrutan till dess innehåll automatiskt i ett kalkylblad som nedanstående demo visas. Ladda ner och prova nu! (30 dagars gratis spår)


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:

vba-kod för att välja intervall för automatisk storlek på kommentarsrutan för att passa innehåll

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.

Kutools för Excel erbjuder över 300 avancerade funktioner för att effektivisera komplexa uppgifter, vilket ökar kreativiteten och effektiviteten. Förbättrad med AI-funktioner, Kutools automatiserar uppgifter med precision, vilket gör datahantering enkel. Detaljerad information om Kutools för Excel...         Gratis provperiod...

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:

klicka på Kutools > Mer > AutoFit Comment

Sedan ändras storleken på alla kommentarsrutor automatiskt för att passa deras innehåll. Se skärmdump:

alla kommentarsrutor ändras automatiskt så att de passar deras innehåll

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.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...


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!