Přejít k hlavnímu obsahu

Excel: Jak rozbalit buňku, aby se po kliknutí zobrazil celý obsah

V některých případech, pokud je obsah buňky delší než šířka buňky a v buňkách dalšího sloupce jsou hodnoty, zobrazí se pouze části obsahu, jak je znázorněno na obrázku níže. Chcete-li se vyhnout změně šířky a výšky buněk, můžete na buňku kliknout a zobrazit celý obsah v řádku vzorců. Ale pokud je řádek vzorců skrytý nebo kratší než obsah, jak to udělat? Zde jsou uvedeny dvě metody, které mohou zobrazit obsah buňky v textovém poli po kliknutí na ni.
automatické dokončení z jiného seznamu

Rozbalením buňky zobrazíte veškerý obsah vložením textového pole Active X Controls

Rozbalením buňky zobrazíte veškerý obsah pomocí většího řádku vzorců Kutools pro Excel

Poznámka: Metody uvedené v tomto kurzu jsou testovány v Excelu 2021, v různých verzích Excelu se mohou lišit.


Rozbalením buňky zobrazíte veškerý obsah vložením textového pole Active X Controls

1. Aktivujte list, který chcete rozbalit, kliknutím Vývojka > Vložit > Textové pole (ovládací prvky ActiveX).
automatické dokončení z jiného seznamu

Pokud není Vývojka kartu na pásu karet, nejprve ji zobrazte, podívejte se prosím na tento návod Jak zobrazit/zobrazit kartu vývojáře na pásu karet aplikace Excel

2. Potom přetažením kurzoru nakreslete textové pole o šířce a výšce, které může zobrazovat nejdelší obsah buněk. Zapamatujte si název tohoto textového pole, zde je TextBox1.
automatické dokončení z jiného seznamu

3. Klepněte pravým tlačítkem myši na textové pole a klepněte Nemovitosti z kontextové nabídky. Pak dovnitř Nemovitosti v podokně vyberte Pravdivý z rozevíracích seznamů v MultiLine a Zalamování sekce. Poté zavřete Nemovitosti panel.
automatické dokončení z jiného seznamu  automatické dokončení z jiného seznamu

Nebo můžete vybrat True z rozevíracího seznamu v Automatická velikost části v podokně Vlastnosti bude velikost textového pole automaticky upravena podle délky obsahu buňky, na kterou kliknete.

4. Klepněte pravým tlačítkem myši na záložku názvu listu ve stavovém řádku a klepněte Zobrazit kód z kontextové nabídky.

5. V Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte pod kód do prázdného skriptu.

VBA: Rozbalením buňky zobrazíte obsah

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

automatické dokončení z jiného seznamu

Všimněte si, že TextBox1 je název textového pole, které jste nakreslili, a A1:B4 je rozsah, ve kterém tento kód funguje, změňte je podle potřeby.

6. Vraťte se na list a klikněte Vývojka > Režim návrhu existovat návrhový režim.
automatické dokončení z jiného seznamu

Nyní, když kliknete na buňku, objeví se vedle ní textové pole a zobrazí se celý obsah buňky.
automatické dokončení z jiného seznamu


Rozbalením buňky zobrazíte veškerý obsah pomocí většího řádku vzorců Kutools pro Excel

Pokud jste si nainstalovali Kutools pro Excel, větší lišta vzorců, kterou poskytuje, zobrazí veškerý obsah buňky ve vyskakovacím poli, když kliknete, pokud ji aktivujete kliknutím Kutools > Větší Formula Bar.
automatické dokončení z jiného seznamu

Tip:

1. Pomocí Větší lišty vzorců, kromě zobrazení obsahu aktivní buňky, můžete také upravovat obsah buňky ve Větší liště vzorců.

2. Velikost Větší lišty vzorců můžete změnit přetažením pravého dolního rohu lišty.

3. Pokud vyberete více než jednu buňku, ve Větším řádku vzorců se zobrazí pouze obsah první buňky výběru.

Další podrobnosti o Bigger Formula Bar naleznete na jeho stránkách konzultace.


Další operace (články)

Jak vypnout automatické dokončování
Zde je možnost v Excelu, která může zastavit automatické dokončení.

Jak zmenšit velikost souboru Excel?
Někdy může otevření nebo uložení trvat několik minut, pokud je soubor aplikace Excel příliš velký. Chcete-li tento problém vyřešit, zde v tomto tutoriálu vám řekne, jak zmenšit velikost souboru Excel odstraněním obsahu nebo formátů, které jsou nepotřebné nebo nikdy nepoužívané.

Jak automaticky doplnit buňky z jiné tabulky
V tomto tutoriálu se mluví o tom, jak automaticky doplnit další buňky sloupců z tabulky na jiném listu po zadání hodnoty jednoho sloupce.

Jak použít stínování na liché nebo sudé (alternativní) řádky / sloupce v aplikaci Excel?
Při navrhování listu má mnoho lidí tendenci používat stínování na liché nebo sudé (alternativní) řádky nebo sloupce, aby byl list vizuálnější. Tento článek vám ukáže dvě metody, jak použít stínování na liché nebo sudé řádky / sloupce v aplikaci Excel.


  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
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