Як синхронізувати розкривні списки на кількох аркушах у 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, розкривні списки на вказаних робочих аркушах буде автоматично синхронізовано, щоб мати однаковий вибір. Перегляньте наведену нижче демонстрацію.
Демонстрація: синхронізація розкривних списків на кількох аркушах у Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!