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

Jak rychle přesouvat položky mezi dvěma seznamy v aplikaci Excel?

Zkoušeli jste někdy přesouvat položky z jednoho seznamu do jiného seznamu, jak potřebujete, jak je ukázáno níže? Zde budu hovořit o této operaci v aplikaci Excel.

doc přesouvat položky mezi seznamem 1 doc šipka vpravo doc přesouvat položky mezi seznamem 2

Přesouvat položky mezi seznamy


Přesouvat položky mezi seznamy

Neexistuje žádná vestavěná funkce, která vám pomůže dokončit práci, ale mám kód VBA, který vám může poskytnout laskavost.

1. Nejprve musíte vytvořit seznam dat, která se zobrazí jako položky v seznamech na novém listu, který volá Seznamy_správců.
doc přesouvat položky mezi seznamem 3

2. Poté vyberte tato data a přejděte na Název produktu pole pro jejich pojmenování Seznam položek. Viz snímek obrazovky:
doc přesouvat položky mezi seznamem 4

3. Potom v listu, který bude obsahovat dvě seznamová pole, klikněte na Vývojka > Vložit > Seznam (ovládací prvek Active X)a nakreslete dvě seznamová pole. Viz screenshot:

doc přesouvat položky mezi seznamem 5 doc šipka vpravo doc přesouvat položky mezi seznamem 6

V případě, že Vývojka karta skrývá vaši stuhu, Jak zobrazit / zobrazit kartu vývojáře na pásu karet aplikace Excel 2007/2010/2013? tento článek vám řekne, jak to ukázat.

4. Pak klikněte na tlačítko Vývojka > Vložit > Příkazové tlačítko (ovládání Active X)a nakreslete čtyři tlačítka mezi dvěma seznamy. Viz screenshot:

doc přesouvat položky mezi seznamem 7 doc šipka vpravo doc přesouvat položky mezi seznamem 8

Nyní přejmenujte čtyři příkazová tlačítka s novými názvy.

5. Vyberte první příkazové tlačítko, klepněte na Nemovitosti, a v Nemovitosti v podokně uveďte název BTN_moveAllRight k tomu a zadejte >> do textového pole vedle Titulek. Viz snímek obrazovky:
doc přesouvat položky mezi seznamem 9

6. Opakováním kroku 5 přejmenujte poslední tři příkazové tlačítko s níže uvedenými názvy a také zadejte jinou šipku do titulků. Viz screenshot:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

doc přesouvat položky mezi seznamem 10 doc přesouvat položky mezi seznamem 11 doc přesouvat položky mezi seznamem 12

7. Klikněte pravým tlačítkem na název listu, který obsahuje seznamová pole a příkazová tlačítka, a vyberte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
doc přesouvat položky mezi seznamem 13

8. Zkopírujte a vložte pod kód makra do Modul skript poté uložte kód a zavřete Microsoft Visual Basic pro aplikace okno. Viz snímek obrazovky

VBA: Přesunutí položek mezi dvěma seznamy

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Sheets("Admin_Lists").Range("ItemList")
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    With Me.ListBox1
        .LinkedCell = ""
        .ListFillRange = ""
        For Each xCell In xRg
            If xCell <> "" Then
                .AddItem xCell.Value
            End If
        Next xCell
    End With
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub BTN_MoveSelectedLeft_Click()
    Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_MoveSelectedRight_Click()
    Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub

Private Sub BTN_moveAllLeft_Click()
    Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_moveAllRight_Click()
    Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub

Sub moveAll(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        xListBox2.AddItem xListBox1.List(I)
    Next I
    xListBox1.Clear
End Sub

Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        If I = xListBox1.ListCount Then Exit Sub
        If xListBox1.Selected(I) = True Then
            xListBox2.AddItem xListBox1.List(I)
            xListBox1.RemoveItem I
            I = I - 1
        End If
    Next
End Sub

 doc přesouvat položky mezi seznamem 14

9. Poté přejděte na jiný list a poté se vraťte na list, který obsahuje seznamová pole, nyní můžete vidět, že seznam byl v seznamu v prvním seznamu. Kliknutím na příkazová tlačítka můžete přesouvat položky mezi dvěma seznamy.
doc přesouvat položky mezi seznamem 15

Přesunout výběr

doc přesouvat položky mezi seznamem 16 doc šipka vpravo doc přesouvat položky mezi seznamem 17

Přesunout vše

doc přesouvat položky mezi seznamem 18 doc šipka vpravo doc přesouvat položky mezi seznamem 19

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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné 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 snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Můj Excel po spuštění tohoto kódu přestane reagovat. v čem by mohl být problém?
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL