Как да синхронизирам падащи списъци в множество работни листове в Excel?
Да предположим, че имате падащи списъци на няколко работни листа в работна книга, които съдържат точно същите падащи елементи. Сега искате да синхронизирате падащите списъци между работните листове, така че след като изберете елемент от падащ списък в един работен лист, падащите списъци в други работни листове автоматично да се синхронизират със същия избор. Тази статия предоставя VBA код, който да ви помогне да разрешите този проблем.
Синхронизирайте падащи списъци в множество работни листове с VBA код
Синхронизирайте падащи списъци в множество работни листове с VBA код
Например, падащите списъци са в пет работни листа с имена Лист1, Лист2, ..., лист5, за да синхронизирате падащите списъци в други работни листове според избора на падащо меню в Sheet1, моля, приложете следния VBA код, за да го направите.
1. Отворете Sheet1, щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от менюто с десния бутон.
2. В Microsoft Visual Basic за приложения прозорец, поставете следния VBA код в Sheet1 (Код) прозорец.
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% и намалява стотици кликвания на мишката за вас всеки ден!