Sut i analluogi dewiswch nifer o eitemau yn y tabl colyn?
Pan fyddwn yn creu tabl colyn ac yn gosod yr opsiwn o eitemau wedi'u hidlo, ond, nid ydych am i eraill gymhwyso'r nodwedd Dewis Eitemau Lluosog yn y tabl colyn i gynhyrfu y data gwreiddiol yn eich tabl colyn. Yn yr erthygl hon, byddaf yn siarad am sut i analluogi'r opsiwn hwn yn nhabl colyn.
Analluoga dewiswch nifer o eitemau yn y tabl colyn gyda chod VBA
Analluoga dewiswch nifer o eitemau yn y tabl colyn gyda chod VBA
Er mwyn amddiffyn y dewis tabl colyn rhag newid, gall y cod VBA canlynol eich helpu i analluogi'r nodwedd Dewiswch Eitemau Lluosog. Gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Analluoga dewiswch nifer o eitemau yn y tabl colyn
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = False
Next xPF
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r botymau saeth hidlo yn y tabl colyn wedi'u tynnu ar unwaith, gweler sgrinluniau:
 |
 |
 |
Nodiadau:
1. Os ydych chi am alluogi'r Dewiswch Eitemau Lluosog eto, defnyddiwch y cod canlynol:
Cod VBA: Galluogi dewis nifer o eitemau yn y tabl colyn:
Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
xPF.EnableItemSelection = True
Next xPF
End Sub
2. Dim ond ar un tabl colyn yn y daflen waith weithredol y mae'r cod hwn yn cael ei gymhwyso.
Erthyglau cysylltiedig:
Sut i guddio ehangu botymau cwympo yn y tabl colyn?
Sut i guddio subtotals yn y tabl colyn?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
