Sut i drosi'r holl dablau yn ystodau yn y Daflen Waith weithredol?
Yn Excel, efallai y byddwch chi'n defnyddio rhai tablau i recordio data, ond, mewn rhai adegau, rydych chi am drosi'r tabl yn ystod ar gyfer gwneud rhywfaint o argraffiad. Yn gyffredinol, dim ond unwaith y gallwch chi drosi un tabl, bydd yn drafferthus os oes angen trosi dwsinau o dablau mewn dalen yn ystodau. Yma mae gen i god VBA sy'n gallu trosi tablau o ddalen weithredol yn amrediad ar unwaith.
Trosi pob tabl i ystodau o ddalen weithredol gyda VBA
Trosi pob tabl i ystodau o ddalen weithredol gyda VBA
1. Gweithredwch y ddalen rydych chi am drosi ei thablau, yna pwyswch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau i greu sgript modiwl newydd, copïo a gludo islaw'r cod i'r modiwl gwag.
VBA: Trosi pob tabl o ddalen weithredol yn ystodau
Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
End Sub
3. Gwasgwch F5 allwedd i redeg y cod, nawr mae holl dablau'r ddalen gyfredol wedi'u trosi'n ystodau.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...
Mae 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!