Conas tábla Pivot a scagadh bunaithe ar luach sonrach cille in Excel?
De ghnáth, táimid ag scagadh sonraí i dTábla Pivot trí mhíreanna a roghnú sa liosta anuas mar a thaispeántar sa screenshot thíos. I ndáiríre, is féidir leat tábla pivot a scagadh bunaithe ar an luach i gcill ar leith. Cabhróidh an modh VBA san Airteagal seo leat an fhadhb a réiteach.
Scagaire Pivot Tábla bunaithe ar luach sonrach cille le cód VBA
Scagaire Pivot Tábla bunaithe ar luach sonrach cille le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat Tábla Pivot a scagadh bunaithe ar luach sonrach cille in Excel. Déan mar a leanas le do thoil.
1. Iontráil luach le do thoil scagfaidh tú Tábla Pivot bunaithe ar chill roimh ré (roghnaigh mé cill H6 anseo).
2. Oscail an bhileog oibre tá an Tábla Pivot a scagfaidh tú de réir luach cille. Ansin cliceáil ar dheis ar an táb bileog agus roghnaigh View Code ón roghchlár comhthéacs. Féach an pictiúr:
3. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil faoi bhun an chóid VBA isteach i bhfuinneog an Chóid.
Cód VBA: Scagaire Tábla Pivot bunaithe ar luach cille
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
nótaí: Sa chód,
4. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
Ansin tá an Tábla Pivot ag scagadh bunaithe ar an luach i gcill H6 mar atá thíos an pictiúr a thaispeántar:
Féadfaidh tú luach na cille a athrú go daoine eile de réir mar is gá duit.
nótaí: Ba cheart go mbeadh na luachanna a chlóscríobhann tú i gcill H6 comhoiriúnach go díreach leis na luachanna sa liosta anuas Catagóir de Tábla Pivot.
Earraí gaolmhara:
- Conas ilbhileoga a chur le chéile i dtábla pivot in Excel?
- Conas Tábla Pivot a chruthú ón gcomhad Téacs in Excel?
- Conas scagaire Tábla Pivot a nascadh le cill áirithe in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!