Preskoči na glavno vsebino

Excel: Kako razširiti celico, da ob kliku prikaže vso vsebino

V nekaterih primerih, če je vsebina celice daljša od širine celice in so v celicah naslednjega stolpca vrednosti, so prikazani samo deli vsebine, kot je prikazano na spodnjem posnetku zaslona. Da se izognete spreminjanju širine in višine celic, lahko kliknete celico in si ogledate celotno vsebino v vrstici s formulami. Če pa je vrstica s formulami skrita ali krajša od vsebine, kako to storiti? Tukaj predstavljamo dve metodi, ki lahko prikažeta vsebino celice v besedilnem polju, ko nanj kliknete.
samodejno dokončanje z drugega seznama

Razširite celico, da prikažete vso vsebino, tako da vstavite besedilno polje Active X Controls

Razširite celico, da prikažete vso vsebino z uporabo večje vrstice s formulami Kutools za Excel

Opomba: metode, navedene v tej vadnici, so preizkušene v Excelu 2021, v različnih različicah Excela se lahko razlikujejo.


Razširite celico, da prikažete vso vsebino, tako da vstavite besedilno polje Active X Controls

1. Aktivirajte delovni list, za katerega želite razširiti celico, kliknite Razvojni > Vstavi > Besedilno polje (kontrolniki ActiveX).
samodejno dokončanje z drugega seznama

Če ni Razvojni zavihek na traku, najprej ga prikažite, prosimo, oglejte si to vadnico Kako prikazati/prikazati zavihek razvijalca v Excelovem traku

2. Nato povlecite kazalec, da narišete besedilno polje s širino in višino, ki lahko prikazuje najdaljšo vsebino celic. Zapomnite si ime tega besedilnega polja, tukaj je TextBox1.
samodejno dokončanje z drugega seznama

3. Z desno miškino tipko kliknite besedilno polje in kliknite Nepremičnine iz kontekstnega menija. Nato noter Nepremičnine podokno, izberite True s spustnih seznamov v MultiLine in WordWrap razdelki. Nato zaprite Nepremičnine okno.
samodejno dokončanje z drugega seznama  samodejno dokončanje z drugega seznama

Lahko pa izberete True na spustnem seznamu v Samodejna velikost razdelek v podoknu Lastnosti, bo besedilno polje samodejno prilagojeno glede na dolžino vsebine celice, ki jo kliknete.

4. Z desno miškino tipko kliknite zavihek z imenom lista v statusni vrstici in kliknite Ogled kode iz kontekstnega menija.

5. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo v prazen skript.

VBA: razširite celico za prikaz vsebine

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

samodejno dokončanje z drugega seznama

Upoštevajte, da je TextBox1 ime polja z besedilom, ki ste ga narisali, in A1:B4 je obseg dela te kode, spremenite jih, kot želite.

6. Vrnite se na list, kliknite Razvojni > Način oblikovanja obstaja način oblikovanja.
samodejno dokončanje z drugega seznama

Zdaj, ko kliknete na celico, se bo besedilno polje pojavilo poleg nje in prikazalo celotno vsebino celice.
samodejno dokončanje z drugega seznama


Razširite celico, da prikažete vso vsebino z uporabo večje vrstice s formulami Kutools za Excel

Če ste namestili Kutools za Excel, bo večja vrstica s formulami, ki jo je zagotovila, prikazala vso vsebino celice v pojavnem polju, ko kliknete, dokler jo aktivirate s klikom Kutools > Večja vrstica formule.
samodejno dokončanje z drugega seznama

Nasvet:

1. Z večjo vrstico s formulo, razen za ogled vsebine aktivne celice, lahko tudi urejate vsebino celice v večji vrstici s formulo.

2. Večjo vrstico formule lahko spremenite tako, da povlečete desni rob vrstice navzdol.

3. Če izberete več kot eno celico, je v večji vrstici s formulami prikazana samo vsebina prve celice izbora.

Za več podrobnosti o vrstici Bigger Formula Bar obiščite Navodila.


Druge operacije (članki)

Kako izklopiti samodejno dokončanje
Tukaj je možnost v Excelu, ki lahko ustavi samodejno dokončanje.

Kako zmanjšati velikost datoteke Excel?
Včasih bo odpiranje ali shranjevanje trajalo nekaj minut, če je Excelova datoteka prevelika. Za rešitev te težave vam v tej vadnici pove, kako zmanjšati velikost datoteke Excel tako, da odstranite vsebino ali formate, ki so nepotrebni ali nikoli uporabljeni.

Kako samodejno izpolniti celice iz druge tabele
V tej vadnici je govora o tem, kako samodejno dokončati druge celice stolpcev iz tabele na drugem listu po vnosu ene vrednosti stolpca.

Kako uporabiti senčenje na neparne ali sodo (alternativne) vrstice / stolpce v Excelu?
Med oblikovanjem delovnega lista mnogi navadno uporabljajo senčenje za neparne ali celo (alternativne) vrstice ali stolpce, da bi bil delovni list bolj vizualen. Ta članek vam bo pokazal dva načina za uporabo senčenja za neparne ali sodo vrstice / stolpce v Excelu.


  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
zavihek kte 201905
  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
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