Přejít k hlavnímu obsahu

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ší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

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 snižuje stovky kliknutí myší každý den!
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