Gå til hovedindhold

Excel: Sådan udvides celle for at vise alt indhold, når du klikker

I nogle tilfælde, hvis celleindholdet er længere end cellens bredde, og der er værdier i de næste kolonneceller, vises kun dele af indholdet som vist på nedenstående skærmbillede. For at undgå at ændre cellernes bredde og højde kan du klikke på cellen og se hele indholdet i formellinjen. Men hvis formellinjen er skjult eller kortere end indholdet, hvordan gør man det så? Her introduceres to metoder, som kan vise celleindholdet i en tekstboks, når du klikker på det.
automatisk fuldfør fra en anden liste

Udvid celle for at vise alt indhold ved at indsætte en tekstboks Active X Controls

Udvid celle for at vise alt indhold ved at bruge Bigger Formula Bar of Kutools til Excel

Bemærk: metoderne i denne vejledning er testet i Excel 2021, der kan være nogle forskellige i forskellige Excel-versioner.


Udvid celle for at vise alt indhold ved at indsætte en tekstboks Active X Controls

1. Aktiver det regneark, du vil udvide celle, klik Udvikler > indsatte > Tekstboks (ActiveX-kontroller).
automatisk fuldfør fra en anden liste

Hvis der ikke er nogen Udvikler fanen i båndet, vis den først, se venligst denne vejledning Sådan viser/viser du udviklerfane i Excel-bånd

2. Træk derefter markøren for at tegne en tekstboks med en bredde og højde, der kan vise det længste indhold af celler. Husk denne tekstboks navn, her er TextBox1.
automatisk fuldfør fra en anden liste

3. Højreklik på tekstboksen, og klik Ejendomme fra kontekstmenuen. Så ind Ejendomme vælg Sand fra drop-down lister i MultiLine , Tekstombrydning sektioner. Luk derefter Ejendomme rude.
automatisk fuldfør fra en anden liste  automatisk fuldfør fra en anden liste

Eller du kan vælge Sand fra rullelisten i Autostørrelse sektionen i Egenskaber-ruden, vil tekstboksen blive automatisk størrelse baseret på længden af ​​det celleindhold, du klikker på.

4. Højreklik på fanen arknavn i statuslinjen, og klik Vis kode fra kontekstmenuen.

5. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående kode til det tomme script.

VBA: Udvid celle for at vise indholdet

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 fuldfør fra en anden liste

Bemærk, at TextBox1 er navnet på den tekstboks, du tegnede, og A1:B4 er det område, som denne kode fungerer, skift dem efter behov.

6. Gå tilbage til arket, klik Udvikler > Design Mode at eksistere designtilstand.
automatisk fuldfør fra en anden liste

Når du nu klikker på cellen, vises tekstboksen ved siden af ​​den og viser hele indholdet af cellen.
automatisk fuldfør fra en anden liste


Udvid celle for at vise alt indhold ved at bruge Bigger Formula Bar of Kutools til Excel

Hvis du har installeret Kutools til Excel, vil den større formellinje, som den leverede, vise alt indhold af cellen i en poppet boks, når du klikker, så længe du aktiverer den ved at klikke Kutools > Større Formel Bar.
automatisk fuldfør fra en anden liste

tips:

1. Med Bigger Formula Bar, bortset fra at se indholdet af den aktive celle, kan du også redigere celleindholdet i Bigger Formula Bar.

2. Du kan ændre størrelsen på Bigger Formula Bar ved at trække i højre hjørne af linjen.

3. Hvis du markerer mere end én celle, vises kun indholdet af den første celle i markeringen i Bigger Formula Bar.

Flere detaljer om Bigger Formula Bar, besøg venligst dens tutorial.


Andre operationer (artikler)

Sådan slår du Autofuldførelse fra
Her er en mulighed i Excel, der kan stoppe den automatiske fuldførelse.

Hvordan reducerer man Excel-filstørrelsen?
Nogle gange vil det tage minutter at åbne eller gemme, hvis Excel-filen er for stor. For at løse dette problem, her i denne tutorial, fortæller den dig, hvordan du reducerer Excel-filstørrelsen ved at fjerne indholdet eller formaterne, som er unødvendige eller aldrig brugt.

Sådan udfyldes celler automatisk fra en anden tabel
I denne tutorial taler det om, hvordan man automatisk udfylder andre kolonneceller fra en tabel i et andet ark efter at have indtastet en kolonneværdi.

Hvordan anvendes skygge på ulige eller lige (alternative) rækker / kolonner i Excel?
Mens man designer et regneark, har mange mennesker tendens til at anvende skygge på ulige eller lige (alternative) rækker eller kolonner for at gøre regnearket mere visuelt. Denne artikel viser dig to metoder til at anvende skygge på ulige eller lige rækker / kolonner i Excel.


  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
kte-fane 201905
  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
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