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

Hvordan flytter man hurtigt emner mellem to lister i Excel?

Har du nogensinde prøvet at flytte elementerne fra en liste til en anden listebokse, som du har brug for som vist nedenstående skærmbillede? Her vil jeg tale om denne operation i Excel.

doc flytte emner mellem listefelt 1 doc pil til højre doc flytte emner mellem listefelt 2

Flyt emner mellem lister


Flyt emner mellem lister

Der er ingen indbygget funktion, der kan hjælpe dig med at afslutte jobbet, men jeg har en VBA-kode, der kan gøre en tjeneste.

1. For det første skal du oprette en liste med data, der vises som emnerne i listebokse i et nyt ark, der kaldes Admin_Lister.
doc flytte emner mellem listefelt 3

2. Vælg derefter disse data, og gå til Navn for at give dem et navn Vareliste. Se skærmbillede:
doc flytte emner mellem listefelt 4

3. Klik derefter på et ark, der indeholder de to lister Udvikler > indsatte > Listeboks (Aktiv X-kontrol), og tegn to lister. Se skærmbillede:

doc flytte emner mellem listefelt 5 doc pil til højre doc flytte emner mellem listefelt 6

Hvis Udvikler fanen er skjult dit bånd, Hvordan vises / viser fanen udvikler i Excel 2007/2010/2013 Ribbon? denne artikel fortæller dig, hvordan du viser det.

4. Klik derefter på Udvikler > indsatte > Kommando-knap (Aktiv X-kontrol), og tegn fire knapper mellem to listefelter. Se skærmbillede:

doc flytte emner mellem listefelt 7 doc pil til højre doc flytte emner mellem listefelt 8

Nu for at omdøbe de fire kommandoknapper med nye navne.

5. Vælg den første kommandoknap, klik på Ejendomme, og i Ejendomme rude, giv et navn BTN_moveAllRight til det, og skriv >> ind i tekstboksen ved siden af Caption. Se skærmbillede:
doc flytte emner mellem listefelt 9

6. Gentag trin 5 for at omdøbe de sidste tre kommandoknapper med nedenstående navne, og skriv også den forskellige pil i billedteksterne. Se skærmbillede:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

doc flytte emner mellem listefelt 10 doc flytte emner mellem listefelt 11 doc flytte emner mellem listefelt 12

7. Højreklik på det arknavn, der indeholder lister og kommandoknapper, og vælg Vis kode fra genvejsmenuen. Se skærmbillede:
doc flytte emner mellem listefelt 13

8. Kopier og indsæt nedenunder makrokoden til Moduler gem derefter koden og luk Microsoft Visual Basic til applikationer vindue. Se skærmbillede

VBA: Flyt emner mellem to listefelter

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 flytte emner mellem listefelt 14

9. Gå derefter til et andet ark, og gå derefter tilbage til arket, der indeholder lister, nu kan du se, at listerne er blevet vist i den første liste. Og klik på kommandoknapperne for at flytte elementerne mellem to listefelter.
doc flytte emner mellem listefelt 15

Flyt markeringen

doc flytte emner mellem listefelt 16 doc pil til højre doc flytte emner mellem listefelt 17

Flyt alle

doc flytte emner mellem listefelt 18 doc pil til højre doc flytte emner mellem listefelt 19

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (1)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Min excel reagerer ikke efter at have kørt denne kode. hvad kan problemet være?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL