Hoppa till huvudinnehåll

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.
automatisk komplett från en annan lista

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 som tillhandahålls i denna handledning testas i Excel 2021, det kan finnas några olika i olika Excel-versioner.


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

1. Aktivera kalkylbladet som du vill expandera cell, klicka Utvecklare > Insert > Textruta (ActiveX-kontroller).
automatisk komplett från en annan lista

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.
automatisk komplett från en annan lista

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.
automatisk komplett från en annan lista  automatisk komplett från en annan lista

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

automatisk komplett från en annan lista

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.
automatisk komplett från en annan lista

När du nu klickar på cellen visas textrutan bredvid den och visar hela innehållet i cellen.
automatisk komplett från en annan lista


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

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.
automatisk komplett från en annan lista

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, besök dess handledning.


Annan verksamhet (artiklar)

Hur man stänger av automatisk komplettering
Här är ett alternativ i Excel som kan stoppa automatisk komplettering.

Hur man minskar Excel-filstorleken?
Ibland tar det några minuter att öppna eller spara om Excel-filen är för stor. För att lösa detta problem, här i denna handledning, berättar den hur du minskar Excel-filstorleken genom att ta bort innehållet eller formaten som är onödiga eller aldrig används.

Hur man fyller i celler automatiskt från en annan tabell
I den här handledningen talar det om hur man automatiskt kompletterar andra kolumnceller från en tabell i ett annat ark efter att ha angett ett kolumnvärde.

Hur applicerar jag skuggning på udda eller jämna (alternativa) rader / kolumner i Excel?
När man utformar ett kalkylblad tenderar många att använda skuggning på udda eller jämna (alternativa) rader eller kolumner för att göra kalkylbladet mer visuellt. Den här artikeln visar två metoder för att tillämpa skuggning på udda eller jämna rader / kolumner i Excel.


  • 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 och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... 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 ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • 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...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • 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
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" '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
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations