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

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 Fastigheter från snabbmenyn. Sedan i Fastigheter välj Sant från rullgardinslistor i MultiLine och WordWrap avsnitt. Stäng sedan Fastigheter 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
Sortera kommentarer efter
Kommentarer (5)
Klassad 4.5 av 5 · 1 betyg
Denna kommentar minimerades av moderatoren på webbplatsen
Goddag, den här koden är bra - jag har två kolumner inkluderade i min kod och den expanderande textrutan dyker inte upp när en cell klickas - men om jag markerar flera celler inklusive en av cellerna vill jag ha textrutan pop up - Jag får körtidsfel '94' - Ogiltig användning av Null. Felsökning markerar den andra raden 'Text = Target.Text'.

Uppskattar all feedback.
Klassad 4.5 av 5
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, vill du visa allt innehåll i de markerade cellerna i textrutan? Eller stöder bara att markera celler men visa innehållet i den första cellen i markeringen?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har samma problem som Neil. Koden fungerar bra, förutom när jag väljer en hel rad eller kolumn som inkluderar cellintervallet i koden, får jag körtidsfelet '94'. Ogiltig användning av Null, markering till .Text = Target.Text. Den här koden var till stor hjälp förutom att felsökningen dyker upp varje gång. Vänligen ge en lösning
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag har ändrat koden, den kommer inte att dyka upp en buggdialog när du väljer en kolumn med celler eller flera celler, och textrutan kommer också att döljas. Snälla försök:

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
Denna kommentar minimerades av moderatoren på webbplatsen
Sunny, det här är helt perfekt - tack så mycket för din tid och expertis.
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