Salt la conținutul principal

Excel: Cum să extindeți celula pentru a afișa tot conținutul când faceți clic

În unele cazuri, dacă conținutul celulei este mai lung decât lățimea celulei și există valori în celulele coloanei următoare, numai părți din conținut sunt afișate ca în captura de ecran de mai jos. Pentru a evita modificarea lățimii și înălțimii celulelor, puteți face clic pe celulă și puteți vizualiza întregul conținut în bara de formule. Dar dacă bara de formule este ascunsă sau mai scurtă decât conținutul, cum se face? Aici sunt prezentate două metode care pot afișa conținutul celulei într-o casetă de text atunci când faceți clic pe ea.
completare automată dintr-o altă listă

Extindeți celula pentru a afișa tot conținutul inserând o casetă de text Active X Controls

Extindeți celula pentru a afișa tot conținutul utilizând Bara de formule mai mare a Kutools pentru Excel

Notă: metodele furnizate în acest tutorial sunt testate în Excel 2021, pot exista unele diferite în diferite versiuni Excel.


Extindeți celula pentru a afișa tot conținutul inserând o casetă de text Active X Controls

1. Activați foaia de lucru pe care doriți să o extindeți celula, faceți clic Dezvoltator > Insera > Casetă de text (Controale ActiveX).
completare automată dintr-o altă listă

Dacă nu există Dezvoltator fila din panglică, vă rugăm să o afișați mai întâi, vă rugăm să vizualizați acest tutorial Cum să afișați/afișați fila Dezvoltator în panglica Excel

2. Apoi trageți cursorul pentru a desena o casetă de text cu o lățime și o înălțime care poate afișa cel mai lung conținut de celule. Amintiți-vă numele acestei casete de text, aici este TextBox1.
completare automată dintr-o altă listă

3. Faceți clic dreapta pe caseta de text și faceți clic Proprietăţi din meniul contextual. Apoi în Proprietăţi panoul, alegeți Adevărat din listele derulante din MultiLine și WordWrap secțiuni. Apoi închideți Proprietăţi panoul.
completare automată dintr-o altă listă  completare automată dintr-o altă listă

Sau puteți selecta Adevărat din lista derulantă din Dimensiune automată secțiunea din panoul Proprietăți, caseta de text va fi dimensionată automat în funcție de lungimea conținutului celulei pe care faceți clic.

4. Faceți clic dreapta pe fila cu numele foii din bara de stare și faceți clic Afișați codul din meniul contextual.

5. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul de mai jos pe scriptul gol.

VBA: extindeți celula pentru a afișa conținutul

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

completare automată dintr-o altă listă

Observați că TextBox1 este numele casetei de text pe care ați desenat-o și A1:B4 este intervalul în care funcționează acest cod, modificați-le după cum aveți nevoie.

6. Reveniți la foaie, faceți clic Dezvoltator > Mod de proiectare să existe modul de proiectare.
completare automată dintr-o altă listă

Acum, când faceți clic pe celulă, caseta de text va apărea lângă ea și va afișa întregul conținut al celulei.
completare automată dintr-o altă listă


Extindeți celula pentru a afișa tot conținutul utilizând Bara de formule mai mare a Kutools pentru Excel

Dacă ați instalat Kutools pentru Excel, Bara de formule mai mare pe care a furnizat-o va afișa tot conținutul celulei într-o casetă deschisă atunci când faceți clic atâta timp cât o activați făcând clic Kutools > Bar de formule mai mare.
completare automată dintr-o altă listă

Sfat:

1. Cu Bigger Formula Bar, cu excepția pentru a vizualiza conținutul celulei active, puteți edita și conținutul celulei în Bigger Formula Bar.

2. Puteți redimensiona bara de formule mai mare trăgând colțul din dreapta jos al barei.

3. Dacă selectați mai multe celule, numai conținutul primei celule a selecției este afișat în Bara de formule mai mare.

Mai multe detalii despre Bigger Formula Bar, vă rugăm să vizitați-l tutorial.


Alte operațiuni (articole)

Cum să dezactivezi completarea automată
Iată o opțiune în Excel care poate opri completarea automată.

Cum să reduceți dimensiunea fișierului Excel?
Uneori, va dura câteva minute pentru a deschide sau salva dacă fișierul Excel este prea mare. Pentru a rezolva această problemă, aici, în acest tutorial, vă spune cum să reduceți dimensiunea fișierului Excel eliminând conținutul sau formatele care nu sunt necesare sau nu sunt utilizate niciodată.

Cum să completezi automat celulele dintr-un alt tabel
În acest tutorial, se vorbește despre cum să completezi automat alte celule de coloană dintr-un tabel dintr-o altă foaie după ce ai introdus valoarea unei coloane.

Cum se aplică umbrire rândurilor / coloanelor impare sau pare (alternative) din Excel?
În timp ce proiectează o foaie de lucru, mulți oameni tind să aplice umbrirea pe rânduri sau coloane pare sau alternative (alternative) pentru a face foaia de lucru mai vizuală. Acest articol vă va arăta două metode pentru a aplica umbrirea rândurilor / coloanelor impare sau pare din Excel.


  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
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