Jak synchronizovat rozevírací seznamy ve více listech v aplikaci Excel?
Předpokládejme, že máte rozevírací seznamy na několika listech v sešitu, které obsahují přesně stejné rozevírací položky. Nyní chcete synchronizovat rozevírací seznamy napříč listy tak, že jakmile vyberete položku z rozevíracího seznamu v jednom listu, rozevírací seznamy v ostatních listech se automaticky synchronizují se stejným výběrem. Tento článek poskytuje kód VBA, který vám pomůže tento problém vyřešit.
Synchronizujte rozevírací seznamy ve více listech s kódem VBA
Synchronizujte rozevírací seznamy ve více listech s kódem VBA
Například rozevírací seznamy jsou v pěti pojmenovaných listech List1, List2, ..., List5, Chcete-li synchronizovat rozevírací seznamy v jiných listech podle rozevíracího výběru v Listu1, použijte k tomu následující kód VBA.
1. Otevřete List1, klepněte pravým tlačítkem na záložku listu a vyberte Zobrazit kód z nabídky pravým tlačítkem myši.
2. V Microsoft Visual Basic pro aplikace okno, vložte následující kód VBA do List1 (kód) okno.
Kód VBA: Synchronizujte rozevírací seznam ve více listech
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
Poznámky:
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když vyberete položku z rozevíracího seznamu v List1, rozevírací seznamy v určených listech budou automaticky synchronizovány, aby měly stejný výběr. Podívejte se na níže uvedené demo.
Demo: Synchronizace rozevíracích seznamů ve více listech v aplikaci Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!