Conas ilréimsí a chur le tábla pivot?
Nuair a chruthaímid tábla pivot, caithfimid na réimsí a tharraingt isteach sna Lipéid Rae nó Luachanna de láimh ceann ar cheann. Má tá liosta fada réimsí againn, is féidir linn cúpla lipéad as a chéile a chur go tapa, ach ba cheart na réimsí eile a chur leis an réimse Luach. An bhfuil aon mhodhanna gasta ann chun na réimsí eile go léir a chur leis an réimse luacha le cliceáil amháin sa tábla pivot?
Cuir iliomad réimsí i réimse luacha an tábla pivot le cód VBA
Cuir iliomad réimsí i réimse luacha an tábla pivot le cód VBA
Ar an drochuair, níl aon bhosca seiceála ann chun na réimsí uile ar Liosta Réimse Tábla Pivot a sheiceáil go tapa le cliceáil amháin, ach, leis an gcód VBA seo a leanas, féadfaidh sé cabhrú leat na réimsí atá fágtha a chur leis an limistéar Luachanna ag an am céanna. Déan mar a leanas le do thoil:
1. Tar éis duit an tábla pivot a chruthú, ar dtús, ba cheart duit na réimsí lipéad ró a chur leis mar do riachtanas, agus na réimsí luacha a fhágáil sa Roghnaigh réimsí le cur leis an tuairisc liosta, féach an scáileán: </ p>
2. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Cuir iliomad réimsí i réimse luacha na dtáblaí pivot sa bhileog oibre ghníomhach
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Ansin brúigh F5 eochair chun an cód seo a rith, cuireadh na réimsí go léir atá fágtha leis an réimse Luachanna ag an am céanna, féach an scáileán:
nótaí: Cuirtear an cód VBA seo i bhfeidhm ar gach tábla pivot de bhileog oibre gníomhach.
Earraí gaolmhara:
Conas gach tábla pivot a liostáil mar leabhar oibre?
Conas a sheiceáil an bhfuil tábla pivot ann i leabhar oibre?
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á!