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

Cum să mutați rapid elementele între două casete de listă din Excel?

Ați încercat vreodată să mutați articolele dintr-o casetă de listă în alta în casetele de listă, așa cum aveți nevoie, așa cum este prezentat mai jos? Aici voi vorbi despre această operațiune în Excel.

doc mutați elementele între caseta de listă 1 doc săgeată dreapta doc mutați elementele între caseta de listă 2

Mutați elementele între casetele de listă


Mutați elementele între casetele de listă

Nu există nicio funcție încorporată care vă poate ajuta să terminați treaba, dar am un cod VBA care poate face o favoare.

1. În primul rând, trebuie să creați o listă de date care vor fi afișate ca elemente în casetele de listă într-o nouă foaie care a fost numită Admin_Lists.
doc mutați elementele între caseta de listă 3

2. Apoi selectați aceste date și mergeți la Nume si Prenume casetă pentru a le da un nume Lista de obiecte. Vedeți captura de ecran:
doc mutați elementele între caseta de listă 4

3. Apoi, într-o foaie care va conține cele două casete de listă, faceți clic pe Dezvoltator > Insera > Casetă listă (Active X Control), și desenați două casete de listă. Vedeți captura de ecran:

doc mutați elementele între caseta de listă 5 doc săgeată dreapta doc mutați elementele între caseta de listă 6

În cazul în care Dezvoltator fila este ascunsă panglica dvs., Cum se afișează / se afișează fila dezvoltator în panglica Excel 2007/2010/2013? acest articol vă va spune cum să îl arătați.

4. Apoi apasa Dezvoltator > Insera > Buton de comandă (Active X Control)și desenați patru butoane între două casete de listă. Vedeți captura de ecran:

doc mutați elementele între caseta de listă 7 doc săgeată dreapta doc mutați elementele între caseta de listă 8

Acum, pentru a redenumi cele patru butoane de comandă cu nume noi.

5. Selectați primul buton de comandă, faceți clic pe Proprietăţi, și în Proprietăţi , dați un nume BTN_moveAllRight la ea și tastați >> în caseta de text de lângă Legendă. Vedeți captura de ecran:
doc mutați elementele între caseta de listă 9

6. Repetați pasul 5 pentru a redenumi ultimul buton de comandă cu numele de mai jos și, de asemenea, tastați săgeata diferită în subtitrări. Vedeți captura de ecran:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

doc mutați elementele între caseta de listă 10 doc mutați elementele între caseta de listă 11 doc mutați elementele între caseta de listă 12

7. Faceți clic dreapta pe numele foii care conține casetele de listă și butoanele de comandă și selectați Afișați codul din meniul contextual. Vedeți captura de ecran:
doc mutați elementele între caseta de listă 13

8. Copiați și lipiți codul macro de mai jos în Module apoi salvați codul și închideți fișierul Microsoft Visual Basic pentru aplicații fereastră. Vezi captura de ecran

VBA: Mutați elementele între două casete de listă

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 mutați elementele între caseta de listă 14

9. Apoi mergeți la o altă foaie, apoi reveniți la foaia conține casetele de listă, acum puteți vedea datele listei au fost listate în prima casetă de listă. Și faceți clic pe butoanele de comandă pentru a muta articolele între două casete de listă.
doc mutați elementele între caseta de listă 15

Mutați selecția

doc mutați elementele între caseta de listă 16 doc săgeată dreapta doc mutați elementele între caseta de listă 17

Mutați toate

doc mutați elementele între caseta de listă 18 doc săgeată dreapta doc mutați elementele între caseta de listă 19

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (1)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Excel-ul meu nu mai răspunde după rularea acestui cod. care ar putea fi problema?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL