Πώς να μετακινήσετε γρήγορα στοιχεία μεταξύ δύο κουτιών λίστας στο Excel;
Έχετε προσπαθήσει ποτέ να μετακινήσετε τα στοιχεία από ένα πλαίσιο λίστας σε ένα άλλο πλαίσιο λίστας όπως χρειάζεστε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Εδώ θα μιλήσω για αυτήν τη λειτουργία στο Excel.
 |
 |
 |
Μετακίνηση στοιχείων μεταξύ των πλαισίων λίστας
Μετακίνηση στοιχείων μεταξύ των πλαισίων λίστας
Δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να σας βοηθήσει να ολοκληρώσετε την εργασία, αλλά έχω έναν κωδικό VBA μπορεί να κάνει μια χάρη.
1. Πρώτον, πρέπει να δημιουργήσετε μια λίστα δεδομένων που θα εμφανίζονται ως στοιχεία σε πλαίσια λίστας σε ένα νέο φύλλο που κάλεσε Λίστες Διαχειριστή.
2. Στη συνέχεια, επιλέξτε αυτά τα δεδομένα και μεταβείτε στο Όνομα κουτί για να τους δώσετε ένα όνομα Λίστα προϊόντων. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, σε ένα φύλλο που θα περιέχει τα δύο πλαίσια λίστας, κάντε κλικ στο Εργολάβος > Κύριο θέμα > Πλαίσιο λίστας (Active X Control)και σχεδιάστε δύο κουτιά λίστας. Δείτε το στιγμιότυπο οθόνης:
 |
|
 |
Εάν η Εργολάβος η καρτέλα κρύβει την κορδέλα σας, Πώς να εμφανίσετε / εμφανίσετε την καρτέλα προγραμματιστή στο Ribbon Excel 2007/2010/2013; αυτό το άρθρο θα σας πει πώς να το δείξετε.
4. Στη συνέχεια κάντε κλικ στο κουμπί Εργολάβος > Κύριο θέμα > Κουμπί εντολών (Active X Control)και σχεδιάστε τέσσερα κουμπιά μεταξύ δύο κουτιών λίστας. Δείτε το στιγμιότυπο οθόνης:
 |
|
 |
Τώρα για να μετονομάσετε τα τέσσερα κουμπιά εντολών με νέα ονόματα.
5. Επιλέξτε το κουμπί πρώτης εντολής, κάντε κλικ στο Ιδιοκτησίες, και στο Ιδιοκτησίες παράθυρο, δώστε ένα όνομα BTN_moveAllRight σε αυτό και πληκτρολογήστε >> στο πλαίσιο κειμένου δίπλα Λεζάντα. Δείτε το στιγμιότυπο οθόνης:
6. Επαναλάβετε το βήμα 5 για να μετονομάσετε το τελευταίο κουμπί εντολών με τα παρακάτω ονόματα και επίσης πληκτρολογήστε το διαφορετικό βέλος στους υπότιτλους. Δείτε το στιγμιότυπο οθόνης:
BTN_MoveSelectedRight
BTN_moveAllLeft
BTN_MoveSelectedLeft
 |
 |
 |
7. Κάντε δεξί κλικ στο όνομα του φύλλου που περιέχει τα πλαίσια λίστας και τα κουμπιά εντολών και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
8. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μακροεντολών στο Μονάδα μέτρησης Στη συνέχεια, αποθηκεύστε τον κωδικό και κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο. Δείτε το στιγμιότυπο οθόνης
VBA: Μετακίνηση στοιχείων μεταξύ δύο πλαισίων λίστας
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 
9. Στη συνέχεια, μεταβείτε σε άλλο φύλλο και μετά επιστρέψτε στο φύλλο περιέχει τα πλαίσια λίστας, τώρα μπορείτε να δείτε τα δεδομένα της λίστας ήταν στη λίστα στο πρώτο πλαίσιο λίστας. Και κάντε κλικ στα κουμπιά εντολών για να μετακινήσετε τα στοιχεία μεταξύ δύο πλαισίων λίστας.
Μετακίνηση επιλογής
 |
|
 |
Μετακινήστε όλα
 |
|
 |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
