Note: The other languages of the website are Google-translated. Back to English

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

doc trosi tablau i ystodau 1

3. Gwasgwch F5 allwedd i redeg y cod, nawr mae holl dablau'r ddalen gyfredol wedi'u trosi'n ystodau.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (2)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio eich cod yn fy macro er mwyn trosi fy nhablau i ystodau fel y gallaf drawsosod y data i'w wneud yn fwy darllenadwy;
Dim xTaflen Fel Taflen Waith
Dim xList Fel ListObject
Gosod xSheet = ActiveWorkbook.ActiveSheet
Ar gyfer Pob xList Yn xSheet.ListObjects
xList.Unlist
Digwyddiadau

Roedd yn gweithio'n iawn pan ysgrifennais ef i'r macro. Am ryw reswm pan fyddaf yn rhedeg y macro nawr mae'n rhoi gwall amser rhedeg 1004 i mi ar xList.Unlist

A oes gennych unrhyw awgrymiadau ynghylch pam y gallai hynny fod, neu sut i'w drwsio?

Byddem yn gwerthfawrogi'n fawr unrhyw help.

Diolch!
Sam
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio eich cod yn fy macro er mwyn trosi fy nhablau i ystodau fel y gallaf drawsosod y data i'w wneud yn fwy darllenadwy;
-
Dim xTaflen Fel Taflen Waith
Dim xList Fel ListObject
Gosod xSheet = ActiveWorkbook.ActiveSheet
Ar gyfer Pob xList Yn xSheet.ListObjects
xList.Unlist
Digwyddiadau
-
Roedd yn gweithio'n iawn pan ysgrifennais ef i'r macro. Am ryw reswm pan fyddaf yn rhedeg y macro nawr mae'n rhoi gwall amser rhedeg 1004 i mi ar xList.Unlist
-
A oes gennych unrhyw awgrymiadau ynghylch pam y gallai hynny fod, neu sut i'w drwsio? Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr.
-
Diolch!
Sam
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir