Πώς να συγχρονίσετε τις αναπτυσσόμενες λίστες σε πολλά φύλλα εργασίας στο Excel;
Ας υποθέσουμε ότι έχετε αναπτυσσόμενες λίστες σε πολλά φύλλα εργασίας σε ένα βιβλίο εργασίας που περιέχουν ακριβώς τα ίδια αναπτυσσόμενα στοιχεία. Τώρα θέλετε να συγχρονίσετε τις αναπτυσσόμενες λίστες μεταξύ των φύλλων εργασίας, έτσι ώστε μόλις επιλέξετε ένα στοιχείο από μια αναπτυσσόμενη λίστα σε ένα φύλλο εργασίας, οι αναπτυσσόμενες λίστες σε άλλα φύλλα εργασίας να συγχρονίζονται αυτόματα με την ίδια επιλογή. Αυτό το άρθρο παρέχει έναν κώδικα VBA για να σας βοηθήσει να λύσετε αυτό το πρόβλημα.
Συγχρονίστε αναπτυσσόμενες λίστες σε πολλά φύλλα εργασίας με κώδικα VBA
Συγχρονίστε αναπτυσσόμενες λίστες σε πολλά φύλλα εργασίας με κώδικα VBA
Για παράδειγμα, οι αναπτυσσόμενες λίστες είναι σε πέντε φύλλα εργασίας με όνομα Φύλλο1, Φύλλο2, ..., Φύλλο 5, για να συγχρονίσετε τις αναπτυσσόμενες λίστες σε άλλα φύλλα εργασίας σύμφωνα με την αναπτυσσόμενη επιλογή στο Φύλλο1, εφαρμόστε τον ακόλουθο κώδικα VBA για να το ολοκληρώσετε.
1. Ανοίξτε το Φύλλο1, κάντε δεξί κλικ στην καρτέλα του φύλλου και επιλέξτε Προβολή κωδικού από το δεξί κλικ στο μενού.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, επικολλήστε τον ακόλουθο κώδικα VBA στο Φύλλο 1 (Κωδικός) παράθυρο.
Κωδικός VBA: Συγχρονισμός αναπτυσσόμενης λίστας σε πολλά φύλλα εργασίας
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub:
3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Από εδώ και στο εξής, όταν επιλέγετε ένα στοιχείο από την αναπτυσσόμενη λίστα στο Φύλλο 1, οι αναπτυσσόμενες λίστες στα καθορισμένα φύλλα εργασίας θα συγχρονιστούν αυτόματα για να έχουν την ίδια επιλογή. Δείτε το παρακάτω demo.
Επίδειξη: Συγχρονισμός αναπτυσσόμενων λιστών σε πολλά φύλλα εργασίας στο Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
