Hoe kopieer ik de keuzelijst met invoervak naar de actieve cel in Excel?
In sommige gevallen moet u de geselecteerde waarde van een keuzelijst met invoervak naar de actieve cel kopiëren. Normaal gesproken moet u in de keuzelijst met invoervak gaan, deze handmatig kopiëren en in de actieve cel plakken. Dit artikel introduceert een handige methode om de actieve cel automatisch bij te werken tijdens het selecteren van waarden in een keuzelijst met invoervak.
Kopieer de keuzelijst met invoervak naar de actieve cel met VBA-code
VBA 1: kopieer de combobox-waarde naar de actieve cel via Command
VBA 2: waarde met invoervak automatisch kopiëren naar actieve cel
Kopieer de keuzelijst met invoervak naar de actieve cel met VBA-code
De onderstaande VBA-codes kunnen u helpen de keuzelijst met invoervak automatisch naar de actieve cel te kopiëren. Ga als volgt te werk.
VBA 1: kopieer de waarde van de keuzelijst naar de actieve cel via de Command-knop
1. Ten eerste moet u een Command-knop in het werkblad invoegen zoals hieronder afgebeeld.
2. Klik met de rechtermuisknop op de opdrachtknop en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:
3. In het opduiken Microsoft Visual Basic voor toepassingen -venster, vervangt u de originele code in het codevenster door de onderstaande VBA-code.
VBA-code: kopieer de waarde van de keuzelijst naar de actieve cel
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End Sub
Note: In de code is CommandButton1 de naam van de ingevoegde opdrachtknop en ComboBox1 is de naam van de keuzelijst met invoervak waarvan u de waarde wilt kopiëren. Wijzig ze indien nodig.
4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
Vanaf nu, wanneer u de keuzelijst met invoervak naar de actieve cel moet kopiëren, selecteert u gewoon de cel en klikt u vervolgens op de opdrachtknop om het voor elkaar te krijgen.
VBA 2: waarde met invoervak automatisch kopiëren naar actieve cel
De onderstaande VBA-code kan u helpen de actieve cel automatisch bij te werken terwijl u waarden in een keuzelijst met invoervak selecteert. U kunt het volgende doen.
1. Zorg ervoor dat de Ontwerpmodus is ingeschakeld onder de Ontwikkelaar Tab.
2. Klik met de rechtermuisknop op de keuzelijst met invoervak waarvan u de waarde wilt kopiëren en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:
3. In het opduiken Microsoft Visual Basic voor toepassingen vervangt u de originele code in het Code venster met de onderstaande VBA-code.
VBA-code: kopieer de waarde van de keuzelijst naar de actieve cel
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Note: In de code is ComboBox1 de naam van de Combo Box waarvan u de waarde wilt kopiëren.
4. druk de anders + Q -toetsen om het Microsoft Visual Basic for Applications-venster te sluiten en de ontwerpmodus uit te schakelen op het tabblad Developer.
Vanaf nu, wanneer u een waarde selecteert in de keuzelijst met invoervak, wordt dit geselecteerde record automatisch in de actieve cel weergegeven.
Gerelateerde artikelen:
- Hoe de datumnotatie weergeven in de uitvoer met invoervak in Excel?
- Hoe een opdrachtknop te verbergen of zichtbaar te maken op basis van de opgegeven celwaarde in Excel?
- Hoe open ik een specifiek werkblad met de geselecteerde waarde van een keuzelijst met invoervak in Excel?
- Hoe kan ik typen in een keuzelijst met invoervak in Excel voorkomen of uitschakelen?
- Hoe tab uit de keuzelijst met invoervak om een specifieke cel in Excel te selecteren?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- 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!