Ինչպե՞ս թարմացնել առանցքային աղյուսակը պաշտպանված թերթիկի վրա:
Սովորաբար առանցքային աղյուսակը չի թարմացվում պաշտպանված թերթիկի վրա, այս հոդվածում ես կներկայացնեմ VBA կոդ ՝ առանցքային աղյուսակը պաշտպանված աշխատաթերթից թարմացնելու համար:
Թարմացրեք առանցքային աղյուսակը պաշտպանված թերթիկի վրա `VBA կոդով
Թարմացրեք առանցքային աղյուսակը պաշտպանված թերթիկի վրա `VBA կոդով
Լռելյայն, առանցքային աղյուսակը պաշտպանված թերթիկի վրա թարմացնելու ձեզ համար ուղղակի եղանակ չկա, բայց հետևյալ VBA կոդով դուք կարող եք արագ թարմացնել ընթացիկ աշխատանքային թերթի բոլոր առանցքային աղյուսակները, երբ տվյալները փոխվեն ձեր նախնական աղյուսակում:
1. Անջատեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Թարմացնել առանցքային աղյուսակը պաշտպանված թերթիկի վրա.
Sub RefreshAll()
'Updateby Extendoffice 20161109
Dim xpt As PivotTable
With ActiveSheet
.Protect UserInterfaceOnly:=True
For Each xpt In .PivotTables
xpt.RefreshTable
Next xpt
End With
End Sub
3, Եվ հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, եթե ձեր բնօրինակ տվյալները փոխվեն, ակտիվ թերթի բոլոր առանցքային աղյուսակները միանգամից կթարմացվեն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: