Πώς να δημιουργήσετε εξαρτημένες αναπτυσσόμενες λίστες στο έγγραφο του Word;
Όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης, πρέπει να περιορίσετε τις επιλογές στη δεύτερη αναπτυσσόμενη λίστα με βάση την επιλογή στο πρώτο αναπτυσσόμενο μενού, πώς μπορείτε να κάνετε; Αυτό το άρθρο θα σας δείξει μια μέθοδο για τη δημιουργία εξαρτημένων αναπτυσσόμενων λιστών σε ένα έγγραφο του Word.
Δημιουργήστε εξαρτημένες αναπτυσσόμενες λίστες στο Word με κώδικα VBA
Δημιουργήστε εξαρτημένες αναπτυσσόμενες λίστες στο Word με κώδικα VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να δημιουργήσετε μια εξαρτημένη αναπτυσσόμενη λίστα σε ένα έγγραφο του Word. Ακολουθήστε τις οδηγίες βήμα προς βήμα.
1. Πρώτον, πρέπει να εισαγάγετε δύο αναπτυσσόμενες λίστες στο έγγραφο του Word. Κάντε κλικ Εργολάβος > Έντυπα παλαιού τύπου > Πεδίο αναπτυσσόμενης φόρμας. Δείτε το στιγμιότυπο οθόνης:
2. Κάντε δεξί κλικ στην πρώτη αναπτυσσόμενη λίστα (αυτή η αναπτυσσόμενη λίστα πρέπει να είναι η γονική) και κάντε κλικ στο Ιδιότητες. Δείτε screenshot:
3. Στο άνοιγμα Επιλογές πεδίου αναπτυσσόμενης φόρμας πλαίσιο διαλόγου, πρέπει:
3.1 Εισαγάγετε την κατηγορία στο Αναδυόμενο στοιχείο και στη συνέχεια κάντε κλικ στο Προσθέτω κουμπί, επαναλάβετε τη λειτουργία μέχρι να προστεθούν όλες οι κατηγορίες στα στοιχεία της αναπτυσσόμενης λίστας.
3.2 Εισαγάγετε ddfood μέσα στο Αποθήκευση κουτί.
3.3 Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
4. Κάντε δεξί κλικ στη δεύτερη αναπτυσσόμενη λίστα, κάντε κλικ στο Ιδιοκτησίες για να ανοίξει Επιλογές πεδίου αναπτυσσόμενης φόρμας πλαίσιο διαλόγου και στο παράθυρο διαλόγου, πληκτρολογήστε ddΚατηγορία μέσα στο Αποθήκευση πλαίσιο και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
5. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
6. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Δημιουργήστε εξαρτώμενη αναπτυσσόμενη λίστα στο Word
Sub Populateddfood()
'Update by Extendoffice 2018/10/25
Dim xDirection As FormField
Dim xState As FormField
On Error Resume Next
Set xDirection = ActiveDocument.FormFields("ddfood")
Set xState = ActiveDocument.FormFields("ddCategory")
If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
With xState.DropDown.ListEntries
.Clear
Select Case xDirection.Result
Case "Fruit"
.Add "Apple"
.Add "Banana"
.Add "Peach"
.Add "Lychee"
.Add "Watermelon"
Case "Vegetable"
.Add "Cabbage"
.Add "Onion"
Case "Meat"
.Add "Pork"
.Add "Beef"
.Add "Mutton"
End Select
End With
End Sub:
1. Στον κωδικό, αλλάξτε αντικείμενα σε κάθε περίπτωση όπως χρειάζεστε.
2. ddfood και ddΚατηγορία πρέπει να ταιριάζει με τις επιλογές σελιδοδεικτών που εισαγάγατε στα παραπάνω δύο Επιλογές πεδίου αναπτυσσόμενης φόρμας πλαίσια διαλόγου.
7. Αποθηκεύστε τον κωδικό και επιστρέψτε στο έγγραφο.
8. Κάντε δεξί κλικ στην πρώτη αναπτυσσόμενη λίστα και κάντε κλικ στο Ιδιοκτησίες για να ανοίξετε το Επιλογές πεδίου αναπτυσσόμενης φόρμας κουτί διαλόγου. Στο πλαίσιο διαλόγου, επιλέξτε το παραπάνω όνομα μακροεντολής (εδώ είναι το Popolateddfood) από το έξοδος αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
9. Τώρα κάντε κλικ Εργολάβος > Περιορισμός επεξεργασίας όπως φαίνεται παρακάτω.
10. Στο Περιορισμός επεξεργασίας παράθυρο, πρέπει να:
10.1) Ελέγξτε το Να επιτρέπεται μόνο αυτός ο τύπος επεξεργασίας στο έγγραφο κουτί;
10.2) Επιλέξτε Συμπλήρωση των εντύπων επιλογή από την αναπτυσσόμενη λίστα.
10.3) Κάντε κλικ στο Ναι, ξεκινήστε την εφαρμογή της προστασίας κουμπί;
10.4) Στο Ξεκινήστε την επιβολή προστασίας διαλόγου, εισαγάγετε τον κωδικό πρόσβασης και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Τώρα δημιουργείται μια εξαρτημένη αναπτυσσόμενη λίστα. Όταν επιλέγετε Φρούτα στην πρώτη αναπτυσσόμενη λίστα, μόνο οι κατηγορίες φρούτων μπορούν να επιλεγούν στη δεύτερη.
Συνιστώμενα εργαλεία παραγωγικότητας του Word
Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο
- Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
- Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
- Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
- Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
- Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
