Πώς να μετακινήσετε γρήγορα στοιχεία μεταξύ δύο κουτιών λίστας στο Excel;

Έχετε προσπαθήσει ποτέ να μετακινήσετε τα στοιχεία από ένα πλαίσιο λίστας σε ένα άλλο πλαίσιο λίστας όπως χρειάζεστε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Εδώ θα μιλήσω για αυτήν τη λειτουργία στο Excel.

Μετακίνηση στοιχείων μεταξύ των πλαισίων λίστας

Μετακίνηση στοιχείων μεταξύ των πλαισίων λίστας

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως το Chrome, το Firefox και το Safari!

Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

---

Δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να σας βοηθήσει να ολοκληρώσετε την εργασία, αλλά έχω έναν κωδικό 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. Στη συνέχεια, μεταβείτε σε άλλο φύλλο και μετά επιστρέψτε στο φύλλο περιέχει τα πλαίσια λίστας, τώρα μπορείτε να δείτε τα δεδομένα της λίστας ήταν στη λίστα στο πρώτο πλαίσιο λίστας. Και κάντε κλικ στα κουμπιά εντολών για να μετακινήσετε τα στοιχεία μεταξύ δύο πλαισίων λίστας.

Μετακίνηση επιλογής

Μετακινήστε όλα

---

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

• Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
• Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
• Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
• Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
• Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
• Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
• Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
• Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
• Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά... 

---

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...