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

Πώς να δημιουργήσετε αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel;

Πολλοί χρήστες του Excel τείνουν να δημιουργούν αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου για να επιλέγουν πολλά στοιχεία από τη λίστα ανά ώρα. Στην πραγματικότητα, δεν μπορείτε να δημιουργήσετε μια λίστα με πολλά πλαίσια ελέγχου με επικύρωση δεδομένων. Σε αυτό το σεμινάριο, θα σας δείξουμε δύο μεθόδους για να δημιουργήσετε αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου στο Excel.

Χρησιμοποιήστε το πλαίσιο λίστας για να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου
Α: Δημιουργήστε ένα πλαίσιο λίστας με δεδομένα προέλευσης
Β: Ονομάστε το κελί στο οποίο θα εντοπίσετε τα επιλεγμένα στοιχεία
C: Εισαγάγετε ένα σχήμα για να βοηθήσετε στην έξοδο των επιλεγμένων αντικειμένων
Δημιουργήστε εύκολα αναπτυσσόμενη λίστα με πλαίσια ελέγχου με ένα καταπληκτικό εργαλείο
Περισσότερα μαθήματα για την αναπτυσσόμενη λίστα ...


Χρησιμοποιήστε το πλαίσιο λίστας για να δημιουργήσετε μια αναπτυσσόμενη λίστα με πολλά πλαίσια ελέγχου

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, στο τρέχον φύλλο εργασίας, όλα τα ονόματα στην περιοχή A2: A11 θα είναι τα δεδομένα προέλευσης του πλαισίου λίστας. Κάντε κλικ στο κουμπί στο κελί C4 για έξοδο των επιλεγμένων στοιχείων και όλα τα επιλεγμένα στοιχεία στο πλαίσιο λίστας θα εμφανίζονται στο κελί E4. Για να το επιτύχετε, κάντε τα εξής.

A. Δημιουργήστε ένα πλαίσιο λίστας με δεδομένα προέλευσης

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

2. Σχεδιάστε ένα πλαίσιο λίστας στο τρέχον φύλλο εργασίας, κάντε δεξί κλικ και, στη συνέχεια, επιλέξτε Ιδιοκτησίες από το μενού με δεξί κλικ.

3. Στο Ιδιοκτησίες πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

  • 3.1 Στο ΛίσταFillRange πλαίσιο, εισαγάγετε το εύρος πηγής που θα εμφανιστεί στη λίστα (εδώ εισάγω εύρος A2: A11);
  • 3.2 Στο Στυλ λίστας , επιλέξτε 1 - Επιλογή στυλ fmList;
  • 3.3 Στο Πολυεπιλογή , επιλέξτε 1 - fmMultiSelectMulti;
  • 3.4 Κλείστε το Ιδιοκτησίες κουτί διαλόγου. Δείτε το στιγμιότυπο οθόνης:

Β: Ονομάστε το κελί στο οποίο θα εντοπίσετε τα επιλεγμένα στοιχεία

Εάν πρέπει να εξάγετε όλα τα επιλεγμένα στοιχεία σε ένα καθορισμένο κελί όπως το E4, κάντε τα εξής.

1. Επιλέξτε το κελί E4, εισάγετε ListBoxOutput μέσα στο όνομα Box και πατήστε το εισάγετε κλειδί.

Γ. Εισάγετε ένα σχήμα για να βοηθήσετε στην έξοδο των επιλεγμένων αντικειμένων

1. κλικ Κύριο θέμα > Σχήματα > Ορθογώνιο παραλληλόγραμμο. Δείτε screenshot:

2. Σχεδιάστε ένα ορθογώνιο στο φύλλο εργασίας σας (εδώ σχεδιάζω το ορθογώνιο στο κελί C4). Στη συνέχεια, κάντε δεξί κλικ στο ορθογώνιο και επιλέξτε Εκχώρηση μακροεντολής από το μενού με δεξί κλικ.

3. Στο Εκχώρηση μακροεντολής , κάντε κλικ στο Νέο κουμπί.

4. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντικαταστήστε τον αρχικό κωδικό στο Μονάδα μέτρησης παράθυρο με τον παρακάτω κώδικα VBA.

Κωδικός VBA: Δημιουργήστε μια λίστα με πολλά πλαίσια ελέγχου

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Σημείωση: Στον κώδικα, Ορθογώνιο είναι το όνομα σχήματος. Λίστα κουτιών1 είναι το όνομα του πλαισίου λίστας · Επιλέξτε και Επιλογές παραλαβής είναι τα εμφανιζόμενα κείμενα του σχήματος. και το ListBoxOutput είναι το όνομα εύρους του κελιού εξόδου. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

5. Τύπος άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Κάντε κλικ στο ορθογώνιο κουμπί θα διπλώσει ή θα αναπτύξει το πλαίσιο λίστας. Όταν επεκτείνεται το πλαίσιο λίστας, ελέγξτε τα στοιχεία στο πλαίσιο λίστας και, στη συνέχεια, κάντε ξανά κλικ στο ορθογώνιο για έξοδο όλων των επιλεγμένων στοιχείων στο κελί E4. Δείτε παρακάτω την επίδειξη:

7. Και στη συνέχεια αποθηκεύστε το βιβλίο εργασίας ως Βιβλίο εργασίας Excel MacroEnable για επαναχρησιμοποίηση του κώδικα στο μέλλον.


Δημιουργήστε μια αναπτυσσόμενη λίστα με πλαίσια ελέγχου με ένα καταπληκτικό εργαλείο

Η παραπάνω μέθοδος είναι πολύ πολλαπλή για εύκολο χειρισμό. Εδώ συνιστούμε ανεπιφύλακτα το Αναπτυσσόμενη λίστα με πλαίσια ελέγχου χρησιμότητα του Kutools για Excel για να σας βοηθήσουμε να δημιουργήσετε εύκολα αναπτυσσόμενη λίστα με πλαίσια ελέγχου σε ένα καθορισμένο εύρος, τρέχον φύλλο εργασίας, τρέχον βιβλίο εργασίας ή όλα τα ανοιχτά βιβλία εργασίας με βάση τις ανάγκες σας. Δείτε την παρακάτω επίδειξη:
Κατεβάστε και δοκιμάστε το τώρα! (Δωρεάν μονοπάτι 30 ημερών)

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

1. Ανοίξτε το φύλλο εργασίας που έχετε ορίσει την αναπτυσσόμενη λίστα επικύρωσης δεδομένων, κάντε κλικ στο Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα με πλαίσια ελέγχου > Ρυθμίσεις. Δείτε screenshot:

2. Στο Αναπτυσσόμενη λίστα με τις ρυθμίσεις πλαισίων ελέγχου πλαίσιο διαλόγου, διαμορφώστε τα εξής.

  • 2.1) Στο Εφαρμογή σε ενότητα, καθορίστε το πεδίο εφαρμογής όπου θα δημιουργήσετε πλαίσια ελέγχου για στοιχεία στην αναπτυσσόμενη λίστα. Μπορείτε να καθορίσετε ένα συγκεκριμένο εύρος, τρέχον φύλλο εργασίας, τρέχον βιβλίο εργασίας or όλα τα ανοιχτά βιβλία εργασίας με βάση τις ανάγκες σας.
  • 2.2) Στο Τρόπος ενότητα, επιλέξτε ένα στυλ που θέλετε να εξάγετε τα επιλεγμένα στοιχεία.
  • Εδώ παίρνει το Τροποποίηση επιλογή ως παράδειγμα, αν το επιλέξετε, η τιμή του κελιού θα αλλάξει με βάση τα επιλεγμένα στοιχεία.
  • 2.3) Στο Διαχωριστής πλαίσιο, εισαγάγετε ένα οριοθέτη το οποίο θα χρησιμοποιήσετε για να διαχωρίσετε τα πολλαπλά στοιχεία?
  • 2.4) Στο Κατεύθυνση κειμένου ενότητα, επιλέξτε μια κατεύθυνση κειμένου με βάση τις ανάγκες σας.
  • 2.5) Κάντε κλικ στο OK κουμπί.

3. Το τελευταίο βήμα, κάντε κλικ Kutools > Αναπτυσσόμενη λίστα > Αναπτυσσόμενη λίστα με πλαίσια ελέγχου > Ενεργοποίηση αναπτυσσόμενης λίστας πλαισίων ελέγχου για να ενεργοποιήσετε αυτήν τη δυνατότητα.

Από τώρα και στο εξής, όταν κάνετε κλικ στα κελιά με την αναπτυσσόμενη λίστα σε ένα καθορισμένο πεδίο, θα εμφανιστεί ένα πλαίσιο λίστας, επιλέξτε στοιχεία επιλέγοντας τα πλαίσια ελέγχου για έξοδο στο κελί, όπως φαίνεται στην παρακάτω επίδειξη (Πάρτε τη λειτουργία Τροποποίηση ως παράδειγμα ).

Για περισσότερες λεπτομέρειες αυτής της δυνατότητας, παρακαλώ επισκεφθείτε εδώ.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Σχετικά άρθρα:

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

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

Δημιουργήστε μια αναπτυσσόμενη λίστα με δυνατότητα αναζήτησης στο Excel
Για μια αναπτυσσόμενη λίστα με πολλές τιμές, η εύρεση μιας κατάλληλης δεν είναι εύκολη δουλειά. Προηγουμένως έχουμε εισαγάγει μια μέθοδο αυτόματης συμπλήρωσης της αναπτυσσόμενης λίστας κατά την εισαγωγή του πρώτου γράμματος στο αναπτυσσόμενο πλαίσιο. Εκτός από τη λειτουργία αυτόματης συμπλήρωσης, μπορείτε επίσης να κάνετε αναζήτηση στην αναπτυσσόμενη λίστα για ενίσχυση της αποτελεσματικότητας λειτουργίας στην εύρεση κατάλληλων τιμών στην αναπτυσσόμενη λίστα. Για να κάνετε αναζήτηση στην αναπτυσσόμενη λίστα, δοκιμάστε τη μέθοδο σε αυτό το σεμινάριο.

Αυτόματη συμπλήρωση άλλων κελιών κατά την επιλογή τιμών στην αναπτυσσόμενη λίστα του Excel
Ας υποθέσουμε ότι έχετε δημιουργήσει μια αναπτυσσόμενη λίστα με βάση τις τιμές στην περιοχή κελιών B8: B14. Όταν επιλέγετε οποιαδήποτε τιμή στην αναπτυσσόμενη λίστα, θέλετε οι αντίστοιχες τιμές στην περιοχή κελιών C8: C14 να συμπληρώνονται αυτόματα σε ένα επιλεγμένο κελί. Για την επίλυση του προβλήματος, οι μέθοδοι σε αυτό το σεμινάριο θα σας βοηθήσουν.

Περισσότερα μαθήματα για την αναπτυσσόμενη λίστα ...


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (67)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι φανταστικό. Αλλά θα είναι καλύτερο εάν η πολλαπλή επιλογή μπορεί να τοποθετηθεί εκεί όπου είναι ενεργός ο κέρσορας. Όχι απαραίτητα αυτό που ορίζει ο κώδικας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ακριβώς έψαχνα, μπορεί να τροποποιηθεί ο κώδικας ώστε να επιτρέπεται στα επιλεγμένα δεδομένα να εμφανίζονται σε ξεχωριστά κελιά κάτω από τη στήλη; οπότε αντί για: Δευτέρα, Τρίτη, Τετάρτη, εμφάνιση ως. Δευτέρα Τρίτη Τετάρτη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ακριβώς έψαχνα, υπάρχει κάποια τροποποίηση στον κώδικα που θα βάλει την επόμενη επιλογή από το πλαίσιο λίστας στην επόμενη γραμμή. για π.χ. ένα δύο τρία Αντί για: ένα, δύο, τρία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπορείτε να εξηγήσετε πώς προσθέσατε το ListBoxOutput στο κελί E4
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Πώς μπορώ να αντιγράψω αυτό το πλαίσιο λίστας για πολλά κελιά. Η απλή αντιγραφή και επικόλληση δεν λειτουργεί. Θα μπορούσατε να εξηγήσετε, για παράδειγμα, σε κάθε κελί (E5, E6, E7, E8,...) πώς μπορώ να βάλω αυτό το πλαίσιο επιλογής;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
θα μπορούσατε να εξηγήσετε πώς μπορώ να αντιγράψω εύκολα αυτό το πλαίσιο λίστας για 100 σειρές; (ξεχωριστά πλαίσια λίστας για καθεμία από τις 100 σειρές)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μόλις ολοκληρωθεί η έξοδος και πατήσετε ξανά το κουμπί, τα προηγούμενα επιλεγμένα στοιχεία στο πλαίσιο λίστας δεν μπορούν να αλλάξουν. Πώς να επιλύσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ! Είναι υπέροχο και λειτουργεί!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι αρχάριος σε αυτό, αλλά μπορεί κάποιος να μου πει πώς να δημιουργήσω ένα ListBox πολλαπλών επιλογών που θα ανοίγει, π.χ., όταν επιλέγω ένα όνομα. Θέλω το πλαίσιο λίστας να χωράει σε ένα single.
ΠΑΡΑΔΕΙΓΜΑ: Έχω μια λίστα ονομάτων με στοιχεία επικοινωνίας κ.λπ. Θέλω να δημιουργήσω ένα διπλό πλαίσιο λίστας για κάθε όνομα στη λίστα μου. Θα ήθελα να ανοίγει αυτόματα όταν επιλέγω ένα όνομα και να συμπτύσσεται ξανά στο κελί όταν πηγαίνω σε μια άλλη σειρά πληροφοριών. Παρακαλώ συμβουλέψτε. Ευχαριστώ εκ των προτέρων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Randy,
Δυστυχώς δεν μπορώ να λύσω αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί τέλεια σύμφωνα με τις οδηγίες, ωστόσο αν προστατέψω το φύλλο δίνει και σφάλμα. Κάποια λύση για αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργήστε τέλεια σύμφωνα με τις οδηγίες. Αλλά, πώς μπορώ να το χρησιμοποιήσω σε προστατευμένο φύλλο. Επί του παρόντος, εάν το χρησιμοποιήσω μετά την προστασία του φύλλου, μου δίνει το σφάλμα "Σφάλμα χρόνου εκτέλεσης '-2147024809 (80070057)': Η καθορισμένη τιμή είναι εκτός εύρους"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Amit Sood,
Προτού προστατέψετε το φύλλο εργασίας, μορφοποιήστε το κελί εξόδου ως ξεκλείδωτο και, στη συνέχεια, εφαρμόστε τον παρακάτω κώδικα VBA. Σας ευχαριστούμε για το σχόλιό σας.

Sub Rectangle2_Click()
Dim xSelShp ως σχήμα, xSelLst ως παραλλαγή, εγώ ως ακέραιος
On Error Συνέχιση Επόμενη
Ορισμός xSelShp = ActiveSheet.Shapes(Application.Caller)
Ορίστε xLstBox = ActiveSheet.ListBox1
Αν xLstBox.Visible = False Τότε
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογές παραλαβής"
Αλλού
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογή Επιλογών"
Για I = xLstBox.ListCount - 1 έως 0 Βήμα -1
Αν xLstBox.Selected(I) = True Τότε
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Έπειτα εγώ
Αν xSelLst <> "" Τότε
Εύρος ("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Αλλού
Εύρος ("ListBoxOutput") = ""
End If
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
"Έχω δημιουργήσει ένα αρχείο χρησιμοποιώντας το πλαίσιο λίστας ActiveX, όπως σας εξηγείται, εκεί έχω εισαγάγει ορισμένα δεδομένα και έχω προσθέσει και ορισμένες ιδιότητες. Έχω τσεκάρει ορισμένα δεδομένα χρησιμοποιώντας το πλαίσιο ελέγχου στη λίστα και αποθηκεύω και βγαίνω από το αρχείο. Ανοίγοντας ξανά το αρχείο, δεν εμφανίζονται ελεγμένα δεδομένα. μπορεί κάποιος να μου προτείνει να αποθηκεύσω αυτές τις ενημερώσεις."
Μπορεί κάποιος να με βοηθήσει παρακαλώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Τοποθετήστε τον παρακάτω κώδικα VBA στο παράθυρο κώδικα ThisWorkbook.
Στον κώδικα, το Φύλλο6 είναι το προεπιλεγμένο όνομα του φύλλου εργασίας που περιέχει το πλαίσιο λίστας που θέλετε να διατηρήσετε τις επιλογές όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Και ListBox1 είναι το όνομα του πλαισίου λίστας. Αλλάξτε τα όπως χρειάζεστε.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Καλέστε το SaveSelections
Sub End

Ιδιωτικό Sub Workbook_Open ()
Καλέστε το RestoreSelections
Sub End

Private Sub SaveSelections()

Dim arr() As Variant, i As Long, j As Long

Με Sheet6.OLEObjects("ListBox1").Αντικείμενο
Εάν .ListIndex > 0 Τότε
Για i = 0 Προς .ListCount - 1
Αν .Επιλεγμένο(i) Τότε
j = j + 1
ReDim Preserve arr(1 έως j)
arr(j) = i
End If
επόμενος
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
End If
Τέλος με

Sub End

Private Sub RestoreSelections()

Dim arr As Variant, i As Integer

arr = [Επιλογές]

Με Sheet6.OLEObjects("ListBox1").Αντικείμενο
Για i = 1 To UBound(arr)
.Selected(arr(i)) = True
επόμενος
Τέλος με

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για την απάντηση, κύριε, αλλά δεν λειτουργεί στην περίπτωση του αρχείου μου, μπορείτε να στείλετε το αναγνωριστικό της αλληλογραφίας σας, ώστε να σας ταχυδρομήσω το αρχείο μου.
Ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Manjusha Isac,
Στείλτε το αρχείο σας στη διεύθυνση zxm@addin99.com. Ελπίζω να μπορώ να βοηθήσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Επιπλέον, πρέπει να αποθηκεύσετε το βιβλίο εργασίας ως Βιβλίο εργασίας με δυνατότητα μακροεντολής Excel και να ενεργοποιείτε τον κώδικα κάθε φορά που αλλάζετε τις επιλογές του πλαισίου λίστας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να ενημερώνω αυτόματα τα ονόματα σε διαφορετικές στήλες. είναι δυνατόν αν είναι δυνατόν κοινοποιήστε μου τον κωδικό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΚΑΤΑΠΛΗΚΤΙΚΟ λειτουργεί, αλλά αφού κλείσω το excel και το ανοίξω ξανά, ο έλεγχος από το πλαίσιο ελέγχου έχει φύγει, οπότε αν κάνω κλικ στο κουμπί, θα φύγει η λίστα όλων των λύσεων για αυτό
παρακαλώ κάποιος να με βοηθήσει
Ευχαριστώ πολύ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Άγγελε,
Έχουμε δημοσιεύσει ένα άρθρο "Πώς να αποθηκεύσετε ή να διατηρήσετε επιλογές πλαισίων λίστας ActiveX στο Excel;" η οποία εισάγει τη μέθοδο αποθήκευσης των επιλογών των πλαισίων λίστας μετά το κλείσιμο και το ξανά άνοιγμα του βιβλίου εργασίας.
Μπορείτε να ακολουθήσετε αυτόν τον σύνδεσμο για περισσότερες πληροφορίες: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καταπληκτικό λειτουργεί, αλλά έχω ένα πρόβλημα αφού αποθηκεύσω το αρχείο και το ανοίξω ξανά, ο έλεγχος όλων από τη λίστα πλαισίου ελέγχου έχει φύγει
μπορείς να με βοηθήσεις σε αυτό ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
επίσης, αλλάζει το μέγεθος του πλαισίου λίστας και το σχήμα πάντα μετά την αποθήκευση και ανοίξτε ξανά το αρχείο εάν κάποιος έχει μια λύση για αυτό το ζήτημα παρακαλώ να με βοηθήσει

Σας ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ σήμα,
Έχουμε δημοσιεύσει ένα άρθρο "Πώς να αποθηκεύσετε ή να διατηρήσετε επιλογές πλαισίων λίστας ActiveX στο Excel;" η οποία εισάγει τη μέθοδο αποθήκευσης των επιλογών των πλαισίων λίστας μετά το κλείσιμο και το ξανά άνοιγμα του βιβλίου εργασίας.
Μπορείτε να ακολουθήσετε αυτόν τον σύνδεσμο για περισσότερες πληροφορίες: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Αναρωτιέμαι αν υπάρχει τρόπος να κατευθύνω τις επιλογές παραλαβής σε περισσότερα από ένα κελιά (όχι μόνο στο E4) ή να κάνω τις επιλογές μια αναπτυσσόμενη λίστα ελέγχου, ώστε να μπορώ να επιλέξω πολλές επιλογές από μια λίστα ελέγχου, αλλά να το κάνω επανειλημμένα και ανεξάρτητα από άλλες επιλογές που έχω κάνει. Για παράδειγμα, πώς θα χρησιμοποιούσα την ίδια λίστα επιλογών παραλαβής για να εισάγω μια διαφορετική επιλογή αντικειμένων στα E5, E6, E7 κ.λπ. από την ίδια λίστα παραλαβής.

Ευχαριστούμε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου LizKats,
Δοκιμάστε τον παρακάτω κώδικα. Ελπίζω να μπορώ να βοηθήσω. Σας ευχαριστώ.

Sub Rectangle2_Click()

«Ενημερώθηκε από Extendoffice 20200529

Dim xSelShp ως σχήμα, xSelLst ως παραλλαγή, i ως ακέραιος

Ορισμός xSelShp = ActiveSheet.Shapes(Application.Caller)

Ορίστε xLstBox = ActiveSheet.ListBox1

Dim xRg ως εύρος

Dim xCount, xFNum, xR, xC ως ακέραιος αριθμός

Dim xStr ως συμβολοσειρά

Αν xLstBox.Visible = False Τότε

xLstBox.Visible = True

xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογές παραλαβής"

Αλλού

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογή Επιλογών"

Ορισμός xRg = Εύρος ("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Για i = xLstBox.ListCount - 1 έως 0 Βήμα -1

Αν xLstBox.Selected(i) = True Τότε

xStr = xLstBox.List(i) & ";" & xStr

End If

Επόμενο i



Αν xRg.Value = "" Τότε

xRg.Value = xStr

Αλλού

Ορισμός xRg = xRg.Offset(1, 0)

Do while xRg.Value <> ""

Ορισμός xRg = xRg.Offset(1, 0)

Βρόχος

xRg.Value = xStr

End If

End If

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί μια χαρά, ευχαριστώ πολύ για τη βοήθειά σας. Έχω ένα θέμα εδώ είναι ότι, όλη η έξοδος έρχεται στο ίδιο κελί E4, πώς μπορούμε να πάρουμε την έξοδο σε διαφορετικά κελιά Π.χ.: έξοδος για C4 στο E4, C5 στο E5, C6 στο E6 κ.λπ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Το πρόβλημα που αναφέρατε δεν μπορεί να λυθεί ακόμα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке; чтобы по выходило по вертикали;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΒΟΗΘΕΙΑ!!! πώς βγαίνει σε διαφορετικές περιοχές (κάθετα);
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub Rectangle2_Click()
«Ενημερώθηκε από Extendoffice 20190924
Dim xSelShp ως σχήμα, xSelLst ως παραλλαγή, εγώ ως ακέραιος
Dim xRg ως εύρος
Ορισμός xSelShp = ActiveSheet.Shapes(Application.Caller)
Ορίστε xLstBox = ActiveSheet.ListBox1
Αν xLstBox.Visible = False Τότε
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογές παραλαβής"
Αλλού
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Επιλογή Επιλογών"
Ορισμός xRg = Εύρος ("ListBoxOutput")
Για I = 0 To xLstBox.ListCount - 1
Αν xLstBox.Selected(I) = True Τότε
xSelLst = xLstBox.List(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Ορισμός xRg = xRg.Offset(1, 0)
End If
Έπειτα εγώ
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Como puedo replicar éste ejercicio en las filas inferiores ;
Πώς μπορώ να επαναλάβω αυτήν την άσκηση στις παρακάτω σειρές;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες