Hvordan kopieres Combo Box-værdi til aktiv celle i Excel?
I nogle tilfælde skal du muligvis kopiere den valgte værdi fra en kombinationsboks til den aktive celle. Normalt skal du komme ind i kombinationsboksen, kopiere og indsætte den i den aktive celle manuelt. Denne artikel introducerer en praktisk metode til automatisk opdatering af den aktive celle, mens du vælger værdier i en kombinationsboks.
Kopier kombinationsboksværdi til aktiv celle med VBA-kode
VBA 1: Kopier værdien til kombinationsboksen til den aktive celle via Command
VBA 2: Automatisk kopi af kombinationsboksværdi til aktiv celle
Kopier kombinationsboksværdi til aktiv celle med VBA-kode
Nedenstående VBA-koder kan hjælpe dig med automatisk at kopiere kombinationsfeltets værdi til den aktive celle. Gør som følger.
VBA 1: Kopier værdien til kombinationsboksen til den aktive celle via kommandoknappen
1. For det første skal du indsætte en kommandoknap i regnearket som vist nedenstående skærmbillede.
2. Højreklik på kommandoknappen, og klik derefter på Vis kode fra højreklikmenuen. Se skærmbillede:
3. I popping up Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i vinduet Kode med nedenstående VBA-kode.
VBA-kode: Kopiér kombinationsboksværdi til aktiv celle
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End Sub
Bemærk: I koden er CommandButton1 navnet på den indsatte kommandoknap, og ComboBox1 er navnet på den kombinationsboks, du vil kopiere værdi fra. Skift dem, som du har brug for.
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du har brug for at kopiere værdien til kombinationsboksen til den aktive celle, skal du bare vælge cellen og derefter klikke på kommandoknappen for at få det gjort.
VBA 2: Automatisk kopi af kombinationsboksværdi til aktiv celle
Nedenstående VBA-kode kan hjælpe dig med automatisk at opdatere den aktive celle, mens du vælger værdier i en kombinationsboks. Du kan gøre som følger.
1. Sørg for, at Design Mode er tændt under Udvikler fane.
2. Højreklik på kombinationsboksen, som du vil kopiere værdi fra, og klik derefter på Vis kode fra højreklikmenuen. Se skærmbillede:
3. I popping up Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i Kode vindue med nedenstående VBA-kode.
VBA-kode: Kopiér kombinationsboksværdi til aktiv celle
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub
Bemærk: I koden er ComboBox1 navnet på den kombinationsboks, du vil kopiere værdi fra.
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic for Applications-vinduet og slukke for Design Mode under fanen Developer.
Fra nu af, når du vælger værdi fra kombinationsboksen, vises denne valgte post automatisk i den aktive celle.
Relaterede artikler:
- Hvordan vises datoformat i kombinationsboksoutput i Excel?
- Hvordan skjuler eller viser jeg en kommandoknap baseret på den angivne celleværdi i Excel?
- Hvordan åbner jeg et specifikt regneark efter den valgte værdi af en kombinationsboks i Excel?
- Hvordan forhindrer eller deaktiverer man at skrive i en kombinationsboks i Excel?
- Hvordan faneblad ud af kombinationsboksen for at vælge specifik celle i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!