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

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:

doc ändra storlek på kommentar1

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:

Du har nu möjlighet 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- dag 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:

doc-resize-comment-box3

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.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

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.

  Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


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


Relaterade artiklar:


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.
kte-flik 201905

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!
officetab botten
Sortera kommentarer efter
Kommentarer (18)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack. Enkel och snabb lösning på mitt problem.
Denna kommentar minimerades av moderatoren på webbplatsen
Använda din kod 1. Dim xComment As Comment For Every xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Nästa 2. problem med detta fel uppstår 445 objektreferens Med Range("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape Sluta med
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerade inte som den första koden du skickade den passade bara innehållet det jag vill ha är något som kommer att göra dem alla lika breda och längden kommer automatiskt att passa innehållet eftersom det är så kolumn H ser ut just nu och kolumn A varierar i breddstorlek skulle vilja att kolumn A ska vara tre kolumner bred och längd för att passa innehållet och växa efter behov när du trycker på skriv rutan längden ska växa med en linje finns det en kod för det? notera att jag provade både key cod den sidan du skickade senast.
Denna kommentar minimerades av moderatoren på webbplatsen
detta fungerade inte alls. Jag fick ett fel upprepade gånger.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag får ett felmeddelande: Run-time '1004': Metod AutoSize för objekt TextFrame misslyckades
Denna kommentar minimerades av moderatoren på webbplatsen
"VBA-kod: Automatisk storlek på kommentarsrutor i ett kalkylblad" tog hand om mina kalkylblads kommentarer. Tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
Bra! Löste mitt problem.
Denna kommentar minimerades av moderatoren på webbplatsen
Det är verkligen en trevlig och användbar information. Jag är glad att du delade denna användbara information med oss. Håll oss gärna uppdaterade så här. Tack för att du delar med dig. kdagekebeceddded
Denna kommentar minimerades av moderatoren på webbplatsen
Medan koden fungerar gör den rutan en rad hög vilket betyder att stora kommentarer försvinner utanför sidan någonstans. Kan du ge koden för att fixa bredden på varje ruta (för att låt oss säga tre standardbredder för Excel-kolumner) och automatisk justering av längden på rutan för att passa texten? Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket. Detta räddade mig verkligen från massor av krångel.
Denna kommentar minimerades av moderatoren på webbplatsen
@DENNIE "Medan koden fungerar gör den rutan en rad hög vilket betyder att stora kommentarer försvinner utanför sidan någonstans. Kan du ge koden för att fixa bredden på varje ruta (för att låt oss säga tre standardbredder för Excel-kolumner) och automatisk justering längden på lådan för att passa texten? Tack." // Gick med på
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för att du delar detta. Verkligen hjälpsam!
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att göra linjen från kommentarsfältet till cellen mörkare eller fetare?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Demondrew,
Sorry kan hjälpa dig med det.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag antar att Crystal fick oss av spåret, frågan var: Finns det något sätt att göra linjen från kommentarsfältet till cellen mörkare eller fetare? Det skulle vara linjen kring kommentarsfältet. TIA DD
Denna kommentar minimerades av moderatoren på webbplatsen
Fantastisk! tack, det första sättet fungerar! räddade mig timmar av arbete!
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerar inte, infogningsmodulen dyker inte upp
Denna kommentar minimerades av moderatoren på webbplatsen
Bom-dia,

Salvou de mais! Após abrir planilha no cellular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL