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:

• Hogyan jelenítheti meg a dátumformátumot az Excel kombinált mező kimenetében?
• Hogyan lehet elrejteni vagy elrejteni a Parancsgombot az Excel megadott cellája alapján?
• Hogyan nyitható meg egy adott munkalap az Combo Box kiválasztott értékével az Excelben?
• Hogyan lehet megakadályozni vagy letiltani az Excel kombinációs mezőbe történő beírást?
• Hogyan válthat ki a kombinációs mezőből az Excel egyes celláinak kiválasztásához?