Hoe een tekstvak aan meerdere cellen in Excel koppelen?
Zoals we allemaal weten, is het eenvoudig om een tekstvak aan een specifieke cel te koppelen. Maar is het mogelijk om meerdere cellen aan hetzelfde tekstvak te koppelen, zodat wanneer je op verschillende cellen klikt, het tekstvak verschillende tekst weergeeft? Dit artikel helpt je deze taak in Excel op te lossen.
Tekstvak aan meerdere cellen koppelen met VBA-code
Tekstvak aan meerdere cellen koppelen met VBA-code
Om een tekstvak aan meerdere cellen te koppelen, kan de volgende VBA-code je helpen. Doe het volgende:
1. Voeg eerst een ActiveX-tekstvak in onder het tabblad Ontwikkelaar.
2. Klik vervolgens met de rechtermuisknop op het werkbladtabblad dat het tekstvak bevat dat je wilt gebruiken, en kies Weergave Code uit het contextmenu. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege Module:
VBA-code: tekstvak aan meerdere cellen koppelen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then ActiveSheet.TextBox1.Text = Target
End Sub
Opmerking: In de bovenstaande code geeft het getal 3 het kolomnummer aan waarin je gekoppelde cellen zich bevinden, en Textbox1 is de naam van het tekstvak dat je hebt ingevoegd. Pas deze aan naar behoefte.
3. Sla daarna deze codevenster op en sluit het. Nu, wanneer je op verschillende cellen klikt, worden de verschillende waarden automatisch weergegeven in het tekstvak. Zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen