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

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

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

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 1 doc βέλος δεξιά doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 2

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


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

Δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να σας βοηθήσει να ολοκληρώσετε την εργασία, αλλά έχω έναν κωδικό VBA μπορεί να κάνει μια χάρη.

1. Πρώτον, πρέπει να δημιουργήσετε μια λίστα δεδομένων που θα εμφανίζονται ως στοιχεία σε πλαίσια λίστας σε ένα νέο φύλλο που κάλεσε Λίστες Διαχειριστή.
doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 3

2. Στη συνέχεια, επιλέξτε αυτά τα δεδομένα και μεταβείτε στο Όνοματεπώνυμο κουτί για να τους δώσετε ένα όνομα Λίστα προϊόντων. Δείτε το στιγμιότυπο οθόνης:
doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 4

3. Στη συνέχεια, σε ένα φύλλο που θα περιέχει τα δύο πλαίσια λίστας, κάντε κλικ στο Εργολάβος > Κύριο θέμα > Πλαίσιο λίστας (Active X Control)και σχεδιάστε δύο κουτιά λίστας. Δείτε το στιγμιότυπο οθόνης:

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 5 doc βέλος δεξιά doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 6

Εάν η Εργολάβος η καρτέλα κρύβει την κορδέλα σας, Πώς να εμφανίσετε / εμφανίσετε την καρτέλα προγραμματιστή στο Ribbon Excel 2007/2010/2013; αυτό το άρθρο θα σας πει πώς να το δείξετε.

4. Στη συνέχεια κάντε κλικ στο κουμπί Εργολάβος > Κύριο θέμα > Κουμπί εντολών (Active X Control)και σχεδιάστε τέσσερα κουμπιά μεταξύ δύο κουτιών λίστας. Δείτε το στιγμιότυπο οθόνης:

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 7 doc βέλος δεξιά doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 8

Τώρα για να μετονομάσετε τα τέσσερα κουμπιά εντολών με νέα ονόματα.

5. Επιλέξτε το κουμπί πρώτης εντολής, κάντε κλικ στο Ιδιοκτησίες, και στο Ιδιοκτησίες παράθυρο, δώστε ένα όνομα BTN_moveAllRight σε αυτό και πληκτρολογήστε >> στο πλαίσιο κειμένου δίπλα Λεζάντα. Δείτε το στιγμιότυπο οθόνης:
doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 9

6. Επαναλάβετε το βήμα 5 για να μετονομάσετε το τελευταίο κουμπί εντολών με τα παρακάτω ονόματα και επίσης πληκτρολογήστε το διαφορετικό βέλος στους υπότιτλους. Δείτε το στιγμιότυπο οθόνης:

BTN_MoveSelectedRight

BTN_moveAllLeft

BTN_MoveSelectedLeft

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 10 doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 11 doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 12

7. Κάντε δεξί κλικ στο όνομα του φύλλου που περιέχει τα πλαίσια λίστας και τα κουμπιά εντολών και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 13

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

 doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 14

9. Στη συνέχεια, μεταβείτε σε άλλο φύλλο και μετά επιστρέψτε στο φύλλο περιέχει τα πλαίσια λίστας, τώρα μπορείτε να δείτε τα δεδομένα της λίστας ήταν στη λίστα στο πρώτο πλαίσιο λίστας. Και κάντε κλικ στα κουμπιά εντολών για να μετακινήσετε τα στοιχεία μεταξύ δύο πλαισίων λίστας.
doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 15

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

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 16 doc βέλος δεξιά doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 17

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

doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 18 doc βέλος δεξιά doc μετακίνηση αντικειμένων μεταξύ του πλαισίου λίστας 19

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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (1)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το excel μου δεν ανταποκρίνεται μετά την εκτέλεση αυτού του κωδικού. Τι θα μπορούσε να είναι το πρόβλημα?
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL