Ugrás a tartalomra

Excel: Hogyan lehet kibontani a cellát, hogy kattintáskor az összes tartalom megjelenjen

Bizonyos esetekben, ha a cellatartalom hosszabb, mint a cella szélessége, és vannak értékek a következő oszlop celláiban, csak a tartalom egy része jelenik meg, ahogy az alábbi képernyőképen látható. A cellák szélességének és magasságának megváltoztatásának elkerülése érdekében kattintson a cellára, és megtekintheti a teljes tartalmat a képletsorban. De ha a képletsor rejtett vagy rövidebb, mint a tartalom, hogyan kell csinálni? Itt bemutatunk két módszert, amelyek a cella tartalmát megjeleníthetik egy szövegmezőben, amikor rákattintunk.
automatikus kiegészítés egy másik listából

Bontsa ki a cellát az összes tartalom megjelenítéséhez az Active X-vezérlők szövegdoboz beszúrásával

Bontsa ki a cellát az összes tartalom megjelenítéséhez a Kutools for Excel nagyobb képletsorával

Megjegyzés: az oktatóanyagban ismertetett módszereket az Excel 2021-ben tesztelték, de a különböző Excel-verziókban eltérhetnek.


Bontsa ki a cellát az összes tartalom megjelenítéséhez az Active X-vezérlők szövegdoboz beszúrásával

1. Aktiválja azt a munkalapot, amelynek celláját ki szeretné bontani, kattintson a gombra Fejlesztő > betétlap > Szövegmező (ActiveX-vezérlők).
automatikus kiegészítés egy másik listából

Ha nincs Fejlesztő lapon a szalagon, kérjük, először jelenítse meg, kérjük, tekintse meg ezt az oktatóanyagot A Fejlesztői lap megjelenítése/megjelenítése az Excel szalagon

2. Ezután húzza a kurzort egy olyan szélességű és magasságú szövegdoboz rajzolásához, amely a cellák leghosszabb tartalmát tudja megjeleníteni. Ne felejtse el ennek a szövegdoboznak a nevét, itt a TextBox1.
automatikus kiegészítés egy másik listából

3. Kattintson a jobb gombbal a szövegmezőre, majd kattintson a gombra Ingatlanok a helyi menüből. Aztán be Ingatlanok panelen válassza a lehetőséget Igaz a legördülő listákból MultiLine és a Sortörés szakaszok. Ezután zárja be a Ingatlanok ablaktábla.
automatikus kiegészítés egy másik listából  automatikus kiegészítés egy másik listából

Vagy kiválaszthatja az Igaz lehetőséget a legördülő listából Automatikus méret szakaszában a Tulajdonságok panelen, a szövegdoboz mérete automatikusan megtörténik a rákattintott cellatartalom hossza alapján.

4. Kattintson a jobb gombbal a lapnév fülre az állapotsorban, majd kattintson a gombra Kód megtekintése a helyi menüből.

5. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be a kódot az üres parancsfájlba.

VBA: Bontsa ki a cellát a tartalom megjelenítéséhez

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

automatikus kiegészítés egy másik listából

Figyelje meg, hogy a TextBox1 a megrajzolt szövegdoboz neve, az A1:B4 pedig az a tartomány, amelyen ez a kód működik, módosítsa őket szükség szerint.

6. Menjen vissza a lapra, kattintson a gombra Fejlesztő > Tervezési mód hogy létezzen tervezési mód.
automatikus kiegészítés egy másik listából

Most, amikor rákattint a cellára, megjelenik mellette a szövegdoboz, és a cella teljes tartalmát mutatja.
automatikus kiegészítés egy másik listából


Bontsa ki a cellát az összes tartalom megjelenítéséhez a Kutools for Excel nagyobb képletsorával

Ha telepítette a Kutools for Excel alkalmazást, az általa biztosított Nagyobb képletsor a cella teljes tartalmát egy felugró mezőben fogja megjeleníteni, ha rákattint mindaddig, amíg aktívvá teszi. Kutools > Nagyobb Formula bár.
automatikus kiegészítés egy másik listából

Tipp:

1. A Nagyobb képletsorral, az aktív cella tartalmának megtekintése kivételével, a nagyobb képletsor cella tartalmát is szerkesztheti.

2. Átméretezheti a nagyobb képletsort a sáv jobb lefelé húzásával.

3. Ha egynél több cellát jelöl ki, csak a kijelölés első cellájának tartalma jelenik meg a nagyobb képletsávban.

További részletek a Bigger Formula Barról, kérjük, látogass el hozzá oktatói.


Egyéb műveletek (cikkek)

Az automatikus kiegészítés kikapcsolása
Itt van egy lehetőség az Excelben, amely leállíthatja az automatikus befejezést.

Hogyan lehet csökkenteni az Excel fájl méretét?
Néha percekig tart a megnyitás vagy mentés, ha az Excel-fájl túl nagy. A probléma megoldásához ebben az oktatóanyagban bemutatja, hogyan csökkentheti az Excel fájl méretét a szükségtelen vagy soha nem használt tartalom vagy formátum eltávolításával.

Hogyan lehet automatikusan kitölteni cellákat egy másik táblázatból
Ebben az oktatóanyagban arról beszélünk, hogyan lehet automatikusan kitölteni más oszlopcellákat egy másik munkalapon lévő táblázatból, miután megadta az egyik oszlopértéket.

Hogyan alkalmazzuk az árnyékolást a páratlan vagy páros (alternatív) sorokra / oszlopokra az Excelben?
Munkalap tervezése közben sokan hajlamosak árnyékolást alkalmazni a páratlan vagy páros (alternatív) sorokra vagy oszlopokra annak érdekében, hogy a munkalap jobban látható legyen. Ez a cikk két módszert mutat be az árnyékolás alkalmazására az Excel páratlan vagy páros sorain / oszlopain.


  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
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