Ugrás a tartalomra

Hogyan lehet másolni a Combo Box értékét az Excel aktív cellájába?

Bizonyos esetekben előfordulhat, hogy át kell másolnia a kiválasztott értéket egy kombinációs mezőből az aktív cellába. Normális esetben be kell lépnie a Combo Boxba, manuálisan másolja és illessze be az aktív cellába. Ez a cikk egy kényelmes módszert mutat be az aktív cella automatikus frissítésére, miközben kiválasztja az értékeket a Combo Boxban.

Másolja a Combo Box értékét az aktív cellába, VBA kóddal

VBA 1: Másolja a kombinációs mező értékét az aktív cellába a Parancs segítségével
VBA 2: A kombinált doboz értékének automatikus másolása az aktív cellába


Másolja a Combo Box értékét az aktív cellába, VBA kóddal

Az alábbi VBA-kódok segíthetnek a kombinációs mező értékének automatikus másolásában az aktív cellába. Kérjük, tegye a következőket.

VBA 1: Másolja a kombinációs mező értékét az aktív cellába a Parancs gomb segítségével

1. Először be kell illesztenie egy parancsgombot a munkalapba, az alábbi képernyőképen.

2. Kattintson a jobb gombbal a parancs gombra, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

3. A felbukkanóban Microsoft Visual Basic for Applications ablakban cserélje ki az eredeti kódot a Kód ablakban az alábbi VBA kódra.

VBA kód: Másolja a Combo Box értéket az aktív cellába

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Megjegyzések: A kódban a CommandButton1 a beillesztett parancs gomb neve, a ComboBox1 pedig annak a Combo Boxnak a neve, amelyből az értéket átmásolja. Kérjük, változtassa meg őket szükség szerint.

4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

Mostantól, amikor át kell másolnia a kombinációs mező értékét az aktív cellába, kérjük, válassza ki a cellát, majd kattintson a Parancs gombra.

VBA 2: A kombinált doboz értékének automatikus másolása az aktív cellába

Az alábbi VBA-kód segíthet az aktív cella automatikus frissítésében, miközben kiválasztja az értékeket a Combo Boxban. A következőket teheti.

1. Győződjön meg arról, hogy a Tervezési mód alatt be van kapcsolva Fejlesztő Tab.

2. Kattintson a jobb gombbal a Kombinációs mezőre, ahonnan az értéket átmásolja, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

3. A felbukkanóban Microsoft Visual Basic for Applications ablakban cserélje ki az eredeti kódot a Kód ablak az alábbi VBA kóddal.

VBA kód: Másolja a Combo Box értéket az aktív cellába

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Megjegyzések: A kódban a ComboBox1 annak a Combo Boxnak a neve, amelyből az értéket átmásolja.

4. megnyomni a más + Q gombokkal bezárhatja a Microsoft Visual Basic for Applications ablakot, és kikapcsolhatja a Tervezési módot a Fejlesztő fül alatt.

Mostantól, amikor értéket választ a Combo Boxból, ez a kiválasztott rekord automatikusan megjelenik az aktív cellában.


Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations