Πώς να συγχρονίσετε τις αναπτυσσόμενες λίστες σε πολλά φύλλα εργασίας στο 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