Excel: Hur man expanderar cell för att visa allt innehåll när man klickar

I vissa fall, om cellinnehållet är längre än cellens bredd och det finns värden i nästa kolumnceller, visas endast delar av innehållet som skärmbilden nedan. För att undvika att ändra bredden och höjden på cellerna kan du klicka på cellen och se hela innehållet i formelfältet. Men om formelfältet är dold eller kortare än innehållet, hur gör man det? Här introduceras två metoder som kan visa cellinnehållet i en textruta när du klickar på den.

Expandera cellen för att visa allt innehåll genom att infoga en textruta Active X Controls

Expandera cellen för att visa allt innehåll genom att använda Bigger Formula Bar of Kutools for Excel

Obs: metoderna i denna handledning testas i Excel 2021, det kan finnas vissa skillnader i olika Excel-versioner.

1. Aktivera kalkylbladet som du vill expandera cell, klicka Utvecklare > Insert > Textruta (ActiveX-kontroller).

Om det inte finns något Utvecklare fliken i menyfliksområdet, vänligen visa den först, vänligen se denna handledning Hur man visar/visar utvecklarfliken i Excel Ribbon

2. Dra sedan markören för att rita en textruta med en bredd och höjd som kan visa det längsta innehållet i celler. Kom ihåg den här textrutans namn, här är TextBox1.

3. Högerklicka på textrutan och klicka Våra Bostäder från snabbmenyn. Sedan i Våra Bostäder välj Sant från rullgardinslistor i MultiLine och WordWrap avsnitt. Stäng sedan Våra Bostäder rutan.
  >>>  

Eller så kan du välja True från rullgardinsmenyn i AutoSize avsnittet i rutan Egenskaper kommer textrutan att anpassas automatiskt baserat på längden på cellinnehållet du klickar på.

4. Högerklicka på arknamnsfliken i statusfältet och klicka Visa kod från snabbmenyn.

5. I Microsoft Visual Basic för applikationer fönster, kopiera och klistra in under koden i det tomma skriptet.

VBA: Expandera cellen för att visa innehållet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

Lägg märke till att TextBox1 är namnet på textrutan du ritade, och A1:B4 är intervallet som denna kod fungerar, ändra dem efter behov.

6. Gå tillbaka till arket, klicka Utvecklare > Designläge att existera designläge.

När du nu klickar på cellen visas textrutan bredvid den och visar hela innehållet i cellen.

Om du har installerat Kutools för Excel, kommer den större formelfältet att visa allt innehåll i cellen i en poppad ruta när du klickar så länge du aktiverar den genom att klicka Kutools > Större formelbar.

Tips:

1. Med Bigger Formula Bar, förutom för att visa innehållet i den aktiva cellen, kan du också redigera cellinnehållet i Bigger Formula Bar.

2. Du kan ändra storleken på Bigger Formula Bar genom att dra det högra nedåt hörnet av stapeln.

3. Om du markerar mer än en cell visas bara innehållet i den första cellen i markeringen i Större formelfält.

Mer information om Bigger Formula Bar, vänligen besök dess handledning.