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:
- Jak zobrazit formát data ve výstupu pole se seznamem v aplikaci Excel?
- Jak skrýt nebo odkrýt příkazové tlačítko na základě zadané hodnoty buňky v aplikaci Excel?
- Jak otevřít konkrétní list podle vybrané hodnoty pole se seznamem v aplikaci Excel?
- Jak zabránit nebo zakázat psaní v poli se seznamem v aplikaci Excel?
- Jak vybrat tabulku z rozbalovacího seznamu a vybrat konkrétní buňku v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!