Ինչպե՞ս առանցքային աղյուսակի զտիչը կապել Excel- ի որոշակի բջջի հետ:
Եթե ցանկանում եք առանցքային աղյուսակի զտիչը կապել որոշակի բջիջի հետ և առանցքային աղյուսակը զտել բջջային արժեքի հիման վրա, ապա այս հոդվածի մեթոդը կարող է օգնել ձեզ:
Կապեք առանցքային աղյուսակի զտիչը VBA կոդով որոշակի բջիջի հետ
Կապեք առանցքային աղյուսակի զտիչը VBA կոդով որոշակի բջիջի հետ
Առանցք աղյուսակը, որը դուք կապելու եք դրա զտիչի գործառույթը բջջային արժեքի հետ, պետք է ներառի զտիչի դաշտ (ֆիլտրի դաշտի անվանումը կարևոր դեր է խաղում հետևյալ VBA կոդում):
Վերցրեք ստորև նշված առանցքային աղյուսակը որպես օրինակ, առանցքային աղյուսակում զտիչի դաշտը կոչվում է կատեգորիա, և այն իր մեջ ներառում է երկու արժեք «Ծախսեր"Եւ"Sales» Առանց աղյուսակի զտիչը բջիջին կապելուց հետո բջջային արժեքները, որոնք դուք կկիրառեք առանցքային աղյուսակը զտելու համար, պետք է լինեն «ensesախսեր» և «Վաճառք»:
1. Խնդրում ենք ընտրել այն բջիջը (այստեղ ես ընտրում եմ H6 բջիջը), որը դուք կուղեկցեք առանցքային աղյուսակի ֆիլտրի գործառույթին և ֆիլտրի արժեքներից մեկը նախապես մուտքագրեք բջիջ:
2. Բացեք աշխատաթերթը պարունակում է առանցքային աղյուսակ, որը դուք կցեք բջիջին: Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
3. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:
VBA կոդ. Կապել առանցքի աղյուսակի զտիչը որոշակի բջիջի հետ
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")) 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 բջիջը, այնուհետև առանցքային աղյուսակում համապատասխան տվյալները զտվում են ՝ ելնելով առկա արժեքից: Տեսեք,
Բջջի արժեքը փոխելիս առանցքային աղյուսակում զտված տվյալները ավտոմատ կերպով կփոխվեն: Տեսեք,
Հեշտությամբ ընտրեք ամբողջ տողերը `հիմնվելով վավերացված սյունակում բջիջների արժեքի վրա.
The Ընտրեք հատուկ բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ արագ ընտրել ամբողջ տողերը ՝ հիմնված բջջային արժեքի վրա Excel- ի հավաստագրային սյունակում, ինչպես ցույց է տրված նկարում: Բջջային արժեքի հիման վրա բոլոր տողերն ընտրելուց հետո կարող եք ձեռքով տեղափոխել կամ պատճենել դրանք նոր վայրում, ինչպես ձեզ հարկավոր է Excel- ում:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս համատեղել բազմաթիվ թերթեր Excel- ի առանցքային աղյուսակում:
- Ինչպե՞ս Excel- ում տեքստային ֆայլից ստեղծել առանցքային աղյուսակ:
- Ինչպե՞ս զտել առանցքի աղյուսակը ՝ հիմնված Excel- ում բջջի որոշակի արժեքի վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: