Ga naar hoofdinhoud

Excel: hoe een cel uit te vouwen om alle inhoud weer te geven wanneer u op klikt

In sommige gevallen, als de celinhoud langer is dan de breedte van de cel en er waarden in de volgende kolomcellen staan, worden alleen delen van de inhoud weergegeven zoals in de onderstaande schermafbeelding. Om te voorkomen dat u de breedte en hoogte van de cellen wijzigt, kunt u op de cel klikken en de volledige inhoud in de formulebalk bekijken. Maar als de formulebalk verborgen is of korter is dan de inhoud, hoe doe je dat dan? Hier worden twee methoden geïntroduceerd die de celinhoud in een tekstvak kunnen tonen wanneer erop wordt geklikt.
automatisch aanvullen van een andere lijst

Vouw de cel uit om alle inhoud weer te geven door een tekstvak in te voegen Active X-besturingselementen

Vouw de cel uit om alle inhoud weer te geven met behulp van de grotere formulebalk van Kutools voor Excel

Opmerking: de methoden in deze tutorial zijn getest in Excel 2021, er kunnen verschillen zijn in verschillende Excel-versies.


Vouw de cel uit om alle inhoud weer te geven door een tekstvak in te voegen Active X-besturingselementen

1. Activeer het werkblad waarvan u de cel wilt uitvouwen, klik op Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselementen).
automatisch aanvullen van een andere lijst

Als er geen Ontwikkelaar tabblad in het lint, geef het eerst weer, bekijk deze tutorial Hoe u het ontwikkelaarstabblad in Excel-lint kunt tonen/weergeven

2. Sleep vervolgens de cursor om een ​​tekstvak te tekenen met een breedte en hoogte die de langste inhoud van cellen kan weergeven. Onthoud de naam van dit tekstvak, hier is TextBox1.
automatisch aanvullen van een andere lijst

3. Klik met de rechtermuisknop op het tekstvak en klik op Properties vanuit het contextmenu. Dan in Properties kies het venster Waar uit vervolgkeuzelijsten in de MultiLijn en WoordWrap secties. Sluit vervolgens de Properties brood.
automatisch aanvullen van een andere lijst  automatisch aanvullen van een andere lijst

Of u kunt True selecteren in de vervolgkeuzelijst in Automatische grootte sectie in het deelvenster Eigenschappen, wordt het tekstvak automatisch aangepast op basis van de lengte van de celinhoud waarop u klikt.

4. Klik met de rechtermuisknop op het tabblad met de bladnaam in de statusbalk en klik op Bekijk code vanuit het contextmenu.

5. In de Microsoft Visual Basic voor toepassingen venster, kopieer en plak onderstaande code in het lege script.

VBA: cel uitvouwen om inhoud weer te geven

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

automatisch aanvullen van een andere lijst

Merk op dat TextBox1 de naam is van het tekstvak dat je hebt getekend, en A1:B4 is het bereik waarin deze code werkt, verander ze naar behoefte.

6. Ga terug naar het blad, klik op Ontwikkelaar > Ontwerpmodus ontwerpmodus te bestaan.
automatisch aanvullen van een andere lijst

Wanneer u nu op de cel klikt, verschijnt het tekstvak ernaast en toont de volledige inhoud van de cel.
automatisch aanvullen van een andere lijst


Vouw de cel uit om alle inhoud weer te geven met behulp van de grotere formulebalk van Kutools voor Excel

Als je Kutools voor Excel hebt geïnstalleerd, zal de grotere formulebalk die het biedt alle inhoud van de cel in een pop-upvenster tonen wanneer je klikt, zolang je het activeert door te klikken Kutools > Grotere formulebalk.
automatisch aanvullen van een andere lijst

Tips:

1. Met de grotere formulebalk kunt u, behalve om de inhoud van de actieve cel te bekijken, ook de celinhoud in de grotere formulebalk bewerken.

2. U kunt het formaat van de grotere formulebalk wijzigen door de rechterbenedenhoek van de balk te slepen.

3. Als u meer dan één cel selecteert, wordt alleen de inhoud van de eerste cel van de selectie weergegeven in de grotere formulebalk.

Ga voor meer informatie over Bigger Formula Bar naar de: zelfstudie.


Andere bewerkingen (artikelen)

Automatisch aanvullen uitschakelen
Hier is een optie in Excel die het automatisch aanvullen kan stoppen.

Hoe de Excel-bestandsgrootte te verkleinen?
Soms duurt het enkele minuten om te openen of op te slaan als het Excel-bestand te groot is. Om dit probleem op te lossen, wordt hier in deze zelfstudie uitgelegd hoe u de Excel-bestandsgrootte kunt verkleinen door de inhoud of indelingen te verwijderen die niet nodig zijn of nooit worden gebruikt.

Cellen uit een andere tabel automatisch aanvullen
In deze zelfstudie gaat het over het automatisch aanvullen van andere kolomcellen uit een tabel in een ander blad na het invoeren van een kolomwaarde.

Hoe past u arcering toe op oneven of even (alternatieve) rijen / kolommen in Excel?
Bij het ontwerpen van een werkblad hebben veel mensen de neiging arcering toe te passen op oneven of even (alternatieve) rijen of kolommen om het werkblad visueler te maken. Dit artikel laat u twee methoden zien om arcering toe te passen op oneven of even rijen / kolommen in Excel.


  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
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