Hogyan lehet szinkronizálni a legördülő listákat több munkalapon az Excelben?
Tegyük fel, hogy egy munkafüzet több munkalapján is vannak legördülő listák, amelyek pontosan ugyanazokat a legördülő elemeket tartalmazzák. Most szinkronizálni szeretné a legördülő listákat a munkalapok között, így ha egyszer kiválasztott egy elemet az egyik munkalap legördülő listájából, a többi munkalap legördülő listái is automatikusan szinkronizálódnak ugyanazzal a kijelöléssel. Ez a cikk egy VBA-kódot tartalmaz a probléma megoldásához.
Szinkronizálja a legördülő listákat több munkalapon VBA-kóddal
Szinkronizálja a legördülő listákat több munkalapon VBA-kóddal
Például a legördülő listák öt elnevezésű munkalapon találhatók Lap1, Lap2, ..., A lemorzsolódási Window 5. lap, a többi munkalap legördülő listáinak szinkronizálásához az 1. munkalap legördülő menüjében, kérjük, alkalmazza a következő VBA-kódot a végrehajtáshoz.
1. Nyissa meg a Sheet1 alkalmazást, kattintson a jobb gombbal a lapfülre, és válassza ki Kód megtekintése a jobb egérgombbal.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban illessze be a következő VBA-kódot a 1. munkalap (kód) ablak.
VBA-kód: Szinkronizálja a legördülő listát több munkalapon
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
Megjegyzések:
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Mostantól, amikor kiválaszt egy elemet a legördülő listából 1. lap, a megadott munkalapokon lévő legördülő listák automatikusan szinkronizálva lesznek, hogy ugyanazt a kijelölést tartalmazza. Lásd az alábbi bemutatót.
Demo: Legördülő listák szinkronizálása több munkalapon az Excelben
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!