Note: The other languages of the website are Google-translated. Back to English

Jak kopírovat hodnotu pole se seznamem do aktivní buňky v aplikaci Excel?

V některých případech možná budete muset zkopírovat vybranou hodnotu z rozevíracího seznamu do aktivní buňky. Za normálních okolností se musíte dostat do pole se seznamem, zkopírovat a vložit jej do aktivní buňky ručně. Tento článek představuje pohodlnou metodu pro automatickou aktualizaci aktivní buňky při výběru hodnot v rozevíracím seznamu.

Zkopírujte hodnotu pole se seznamem do aktivní buňky pomocí kódu VBA

VBA 1: Zkopírujte hodnotu pole se seznamem do aktivní buňky pomocí příkazu
VBA 2: Automatické kopírování hodnoty pole se seznamem do aktivní buňky


Zkopírujte hodnotu pole se seznamem do aktivní buňky pomocí kódu VBA


Níže uvedené kódy VBA vám pomohou automaticky kopírovat hodnotu pole se seznamem do aktivní buňky. Postupujte prosím následovně.

VBA 1: Zkopírujte hodnotu pole se seznamem do aktivní buňky pomocí příkazového tlačítka

1. Nejprve musíte do pracovního listu vložit příkazové tlačítko, jak je uvedeno níže.

2. Klikněte pravým tlačítkem na příkazové tlačítko a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

3. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace nahraďte původní kód v okně Kód následujícím kódem VBA.

Kód VBA: Zkopírujte hodnotu pole se seznamem do aktivní buňky

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

Poznámka: V kódu je CommandButton1 název vloženého příkazového tlačítka a ComboBox1 je název pole se seznamem, ze kterého zkopírujete hodnotu. Změňte je prosím podle potřeby.

4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od nynějška, když potřebujete kopírovat hodnotu pole se seznamem do aktivní buňky, jednoduše vyberte buňku a poté klikněte na příkazové tlačítko.

VBA 2: Automatické kopírování hodnoty pole se seznamem do aktivní buňky

Níže uvedený kód VBA vám pomůže automaticky aktualizovat aktivní buňku při výběru hodnot v rozevíracím seznamu. Můžete postupovat následovně.

1. Ujistěte se, že Režim návrhu je zapnutý pod Vývojka Karta.

2. Klikněte pravým tlačítkem na pole se seznamem, ze kterého zkopírujete hodnotu, a poté klikněte Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

3. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace v okně, nahraďte původní kód v Kód okno s níže uvedeným kódem VBA.

Kód VBA: Zkopírujte hodnotu pole se seznamem do aktivní buňky

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

Poznámka: V kódu je ComboBox1 název pole se seznamem, ze kterého zkopírujete hodnotu.

4. zmáčkni Další + Q klávesy zavřete okno Microsoft Visual Basic pro aplikace a vypněte režim návrhu na kartě Vývojář.

Od této chvíle se při výběru hodnoty v rozevíracím seznamu tento vybraný záznam automaticky zobrazí v aktivní buňce.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (2)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
Tento komentář byl moderátorem webu minimalizován
maksud saya, kód vba berikut, unuk 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
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění