Ինչպե՞ս համաժամացնել բացվող ցուցակները Excel-ում բազմաթիվ աշխատաթերթերում:
Ենթադրենք, որ աշխատանքային գրքում մի քանի աշխատաթերթերի վրա բացվող ցուցակներ ունեք, որոնք պարունակում են նույն բացվող տարրերը: Այժմ դուք ցանկանում եք համաժամացնել բացվող ցուցակները աշխատանքային թերթերում, որպեսզի մեկ աշխատաթերթի բացվող ցուցակից որևէ տարր ընտրելուց հետո, այլ աշխատաթերթերի բացվող ցուցակները ավտոմատ կերպով համաժամեցվեն նույն ընտրությամբ: Այս հոդվածը տրամադրում է VBA կոդ, որը կօգնի ձեզ լուծել այս խնդիրը:
Համաժամացրեք բացվող ցուցակները բազմաթիվ աշխատաթերթերում VBA կոդով
Համաժամացրեք բացվող ցուցակները բազմաթիվ աշխատաթերթերում VBA կոդով
Օրինակ, բացվող ցուցակները նշված են հինգ աշխատանքային թերթերում Թերթ 1, Թերթ 2, ..., Թերթ 5, այլ աշխատաթերթերում բացվող ցուցակները համաժամեցնելու համար՝ ըստ Sheet1-ի բացվող ընտրության, խնդրում ենք կիրառել հետևյալ VBA կոդը՝ այն ավարտելու համար:
1. Բացեք Sheet1, աջ սեղմեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը աջ սեղմեք մենյուից:
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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: