Cum se sincronizează listele derulante în mai multe foi de lucru în Excel?
Să presupunem că aveți liste derulante pe mai multe foi de lucru dintr-un registru de lucru care conțin exact aceleași elemente derulante. Acum doriți să sincronizați listele derulante între foile de lucru, astfel încât, odată ce selectați un element dintr-o listă derulantă dintr-o foaie de lucru, listele derulante din alte foi de lucru să fie sincronizate automat cu aceeași selecție. Acest articol oferă un cod VBA pentru a vă ajuta să rezolvați această problemă.
Sincronizați listele derulante în mai multe foi de lucru cu cod VBA
Sincronizați listele derulante în mai multe foi de lucru cu cod VBA
De exemplu, listele derulante sunt în cinci foi de lucru numite Sheet1, Sheet2, ..., Foaia 5, pentru a sincroniza listele drop-down din alte foi de lucru în funcție de selecția drop-down din Sheet1, vă rugăm să aplicați următorul cod VBA pentru a finaliza.
1. Deschideți Sheet1, faceți clic dreapta pe fila foii și selectați Afișați codul din meniul cu clic dreapta.
2. În Microsoft Visual Basic pentru aplicații fereastră, inserați următorul cod VBA în Sheet1 (Cod) fereastră.
Cod VBA: Sincronizați lista derulantă în mai multe foi de lucru
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
note:
3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
De acum înainte, când selectați un articol din lista derulantă în Foaia 1, listele derulante din foile de lucru specificate vor fi sincronizate automat pentru a avea aceeași selecție. Vezi demonstrația de mai jos.
Demo: Sincronizați listele drop-down în mai multe foi de lucru în Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!