Ինչպե՞ս զտել առանցքի աղյուսակը ՝ հիմնված Excel- ում բջջի որոշակի արժեքի վրա:
Սովորաբար, մենք զտում ենք տվյալները առանցքային աղյուսակում՝ ընտրելով տարրեր բացվող ցանկում, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Փաստորեն, դուք կարող եք զտել առանցքային աղյուսակը՝ հիմնվելով որոշակի բջիջի արժեքի վրա: Այս հոդվածում VBA մեթոդը կօգնի ձեզ լուծել խնդիրը:
Terտեք առանցքային աղյուսակը `հիմնվելով VBA կոդով հատուկ բջջային արժեքի վրա
Terտեք առանցքային աղյուսակը `հիմնվելով VBA կոդով հատուկ բջջային արժեքի վրա
Հետևյալ VBA կոդը կարող է օգնել զտել առանցքային աղյուսակը, որը հիմնված է Excel- ում բջջի որոշակի արժեքի վրա: Խնդրում եմ, արեք հետևյալ կերպ.
1. Խնդրում ենք մուտքագրել մի արժեք, որի վրա դուք զտեք առանցքային աղյուսակը ՝ հիմնվելով վանդակի վրա (այստեղ ես ընտրում եմ H6 բջիջ):
2. Բացեք աշխատանքային թերթը պարունակում է առանցքային աղյուսակ, որը դուք կզտեք ըստ բջջային արժեքի: Դրանից հետո աջ կտտացրեք թերթիկի ներդիրին և համատեքստի ընտրացանկից ընտրեք Դիտել կոդը: Տեսեք,
3. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:
VBA կոդ. Filտել առանցքային աղյուսակը `հիմնված բջջային արժեքի վրա
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
NotesԿոդում,
4. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այնուհետև առանցքային աղյուսակը զտվում է ՝ հիմնվելով H6 բջիջի արժեքի վրա, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.
Բջջի արժեքը կարող եք փոխել ուրիշի ՝ ըստ ձեզ անհրաժեշտի:
Նշում. H6 բջիջում ձեր մուտքագրած արժեքները պետք է ճշգրտորեն համապատասխանեն առանցքային աղյուսակի Կատեգորիայի բացվող ցուցակի արժեքներին:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս համատեղել բազմաթիվ թերթեր Excel- ի առանցքային աղյուսակում:
- Ինչպե՞ս Excel- ում տեքստային ֆայլից ստեղծել առանցքային աղյուսակ:
- Ինչպե՞ս առանցքային աղյուսակի զտիչը կապել Excel- ի որոշակի բջջի հետ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: