Hvordan automatisk størrelse størrelse på kommentarfeltet, så det passer til dets indhold i Excel?

Når du indsætter kommentarer i celler, er størrelsen på kommentarfeltet standard. Hvis du indtaster en masse indhold i det, vil noget af indholdet ikke være synligt direkte. Er det muligt at tilpasse størrelsen på kommentarfeltet automatisk til dets indhold?

Kommentarfelt til automatisk størrelse til at passe indholdet i et regneark
Kommentarfelt til automatisk størrelse, så det passer til dets indhold i en række celler
Kommentarboksen til automatisk størrelse kan nemt tilpasses indholdet i det aktive ark eller hele arket med et fantastisk værktøj

Kommentarfelt til automatisk størrelse til at passe indholdet i et regneark

I Excel kan du trække kommentarfeltet til din behovstørrelse manuelt en efter en, men hvis der er flere kommentarfelter, der skal ændres, vil denne måde være kedelig og tidskrævende. I dette tilfælde kan du anvende følgende VBA-kode.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. klik indsatte > Moduler, og indsæt følgende makro i Modulvindue.

VBA-kode: Kommentarbokse til automatisk størrelse i et regneark

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

3. Tryk derefter på F5 nøgle til at køre denne kode, og alle kommentarfelterne i det aktive regneark er blevet ændret, så de passer til deres indhold som vist på følgende skærmbillede:

Tip: Denne kode fungerer kun i det aktuelle regneark, og den kan ikke automatisk ændre størrelsen på de nye kommentarfelter, du tilføjer.

Kommentarfelt til automatisk størrelse, så det passer til dets indhold i en række celler

Hvis du bare har brug for automatisk at størrelse en række cellekommentarfelter, kan du bruge følgende VBA-kode.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. klik indsatte > Moduler, og indsæt følgende makro i Modulvindue.

VBA-kode: Kommentarbokse til automatisk størrelse i en række 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. Tryk derefter på F5 nøgle til at udføre denne kode, og der vises en hurtigboks for at minde dig om at vælge en række celler, som du vil ændre størrelsen på kommentarfelterne, se skærmbillede:

4. Klik derefter på OK, er dine valgte cellekommentarfelter automatisk tilpasset kommentarindholdet.

Tip: Denne kode kan ikke automatisk ændre størrelsen på de nye kommentarfelter, du tilføjer.

Kommentarfelt til automatisk størrelse til at passe indholdet i det aktive ark eller hele arket 

Du kan prøve AutoFit-kommentar nytte af Kutools til Excel for automatisk at ændre størrelse på enLl kommentarfelter i aktivt ark eller alle ark i Excel. Gør som følger.

1. Klik på for at automatisk ændre størrelsen på kommentarfelter, så de passer til deres indhold i det aktive ark Kutools > Mere > AutoFit-kommentar > Aktivt ark.

Og hvis du vil ændre størrelsen på alle kommentarfelter automatisk i hele projektmappen, skal du klikke Kutools > Mere > AutoFit-kommentar > Alle ark. Se skærmbillede:

Derefter ændres størrelsen på alle kommentarfelter automatisk, så de passer til deres indhold. Se skærmbillede:

Noter:

• 1. Efter automatisk ændring af størrelsen på kommentarfelterne udvides eller formindskes kommentarfeltet automatisk med indholdet, når du redigerer kommentaren igen.
• 2. For de nye kommentarer, du har indsat, skal du aktivere dette AutoFit-kommentarfunktion igen for at ændre størrelsen på alle nye indsatte kommentarfelter.

Relaterede artikler:

• Hvordan ændres formen på kommentarfeltet i Excel?
• Hvordan ændres alle kommentarformater i celler i Excel?
• Hvordan viser jeg alle kommentarer til et nyt regneark eller en projektmappe i Excel?
• Hvordan indsættes billede eller billede i kommentaren i Excel?