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

Sut i restru holl eiddo ffeil Excel mewn dalen?

Yn yr erthygl hon, rwy'n cyflwyno cod VBA i restru holl briodweddau'r llyfr gwaith gweithredol mewn dalen.

1. Gwasgwch Alt + F11 allweddi i alluogi ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan y cod i'r modiwl gwag.

VBA: Rhestrwch yr holl eiddo

Sub WBProperties()
'UpdatebyKutools20191031
    Dim xWB As Workbook
    Dim xF As Long
    Dim xStr As String
    Dim xWSh As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    xStr = "Workbook Properties"
    Set xWB = Application.ActiveWorkbook
    Set xWSh = xWB.Worksheets.Item(xStr)
    If Not xWSh Is Nothing Then
        xWSh.Delete
    End If
    Set xWSh = xWB.Worksheets.Add
    xWSh.Name = xStr
    xWSh.Range("A1").Value = "Property"
    xWSh.Range("B1").Value = "Value"
    With xWB
        For xF = 1 To .BuiltinDocumentProperties.Count
            xWSh.Range("A65536").End(xlUp).Offset(1, 0).Value = _
            .BuiltinDocumentProperties.Item(xF).Name
            xWSh.Range("A65536").End(xlUp).Offset(0, 1).Value = _
            .BuiltinDocumentProperties.Item(xF).Value
        Next xF
    End With
    Application.DisplayAlerts = True
End Sub

rhestr doc i gyd yn ychwanegu 1

3. Gwasgwch F5 yn allweddol i redeg y cod, crëwyd taflen newydd o'r enw Workbook Properties ym mlaen y ddalen weithredol, sy'n rhestru holl briodweddau'r llyfr gwaith gweithredol.
rhestr doc i gyd yn ychwanegu 1


Gweithrediadau Eraill (Erthyglau)

Analluoga ychwanegion wrth gychwyn Excel
Efallai eich bod wedi gosod rhywfaint o ychwanegion yn eich Microsoft Excel, ond nawr mae angen i chi analluogi ychwanegiad penodol wrth gychwyn Excel. Sut i ddatrys y broblem hon? Gall dull yn yr erthygl hon eich helpu chi.

Allforio ac arbed pob taflen waith fel llyfr gwaith newydd ar wahân yn Excel
Gadewch i ni ddweud eich bod chi am allforio ac arbed un neu sawl taflen waith fel llyfr gwaith newydd, sut fyddwch chi'n delio ag ef? Fel rheol, gallwch gopïo pob taflen waith a'i gludo i lyfr gwaith newydd. Ond yma rydyn ni'n dod â rhai triciau defnyddiol atoch chi i ddelio â nhw:

Cod VBA i restru pob ychwanegiad yn Excel
Yn Excel, gallwch ychwanegu neu fewnosod rhai ychwanegiadau er mwyn delio'n well â data. Fel y gwyddom, gallwn fynd i'r ffenestr Opsiynau i weld pob ychwanegiad, ond a oes unrhyw ffordd i restru'r holl ychwanegu mewn taflen?



  • 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 a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... 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 ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • 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...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • 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 (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Yn gyntaf, nid wyf yn gwybod VBA, ond rwyf wedi penderfynu ar ôl oriau o chwilio, dyma'r unig ateb i'm problem.

Cefndir:
Mae gen i lyfr gwaith gyda nifer fawr o Ymholiadau ac Ymholiadau math "Merge" wedi'u creu gan Power Query sy'n tynnu data o ffeiliau fflat; mae rhai, ond nid pob un, yn cael eu hychwanegu at y Model Data/Power Pivot.

Gall cyfansoddiad ymholiadau newid dros amser.

O fewn is-set o'r ymholiadau, rwyf wedi analluogi adnewyddu gyda "Adnewyddu Pawb" i leihau'r amser hir sydd eisoes yn ei gymryd i adnewyddu pob ymholiad.

Mae yna nifer fawr o daflenni gwaith sy'n cynnwys Pivots oddi ar y Model Data, tra bod y lleill yn cynnwys is-set o dablau sydd wedi'u llenwi o'r ymholiadau trwy "Llwyth I"

Rwy'n defnyddio O365 Excel

Mae'r cod enghreifftiol isod yn seiliedig ar oriau ymchwil. Nid wyf yn gwybod a yw o werth mewn cyflawni fy amcanion isod, ond rwy'n ei gynnwys rhag ofn y bydd yn sbarduno datrysiad.

Amcanion:
Hoffwn gael taflen waith "mynegai" wedi'i chreu sy'n cynnwys tabl deinamig (neu sydd newydd ei restru mewn celloedd y gallaf eu trosi i dabl â llaw) sy'n cadw rhestr gyfredol o ymholiadau "Ymholiad-" llyfr gwaith a'u priodweddau isod .

Dylai’r tabl deinamig (e.e., adlewyrchu ymholiadau wedi’u hychwanegu/newid/dileu) gynnwys y colofnau canlynol gyda’r priodweddau ymholiad/cysylltiad canlynol fel meysydd:
-------------------------------------------------- ---
"Enw", "Disgrifiad", "RefreshWithRefreshAll", "InModel", "Math"

Yr enghraifft ganlynol yw'r hyn yr oeddwn yn gallu coblo gyda'i gilydd o'r rhyngweoedd a wnaeth fy nghael rywfaint o'r ffordd yno, ond nid yw ond yn caniatáu i mi ei weld yn ffenestr VBA Immediate, ac nid wyf yn gwybod sut i'w gael i mewn i fwrdd ar y daflen waith:

Cysylltiadau Is-restr()

Dim cn Fel WorkbookConnection

Debug.Print "Enw", "|", "Disgrifiad", "|", "|", "RefreshWithRefreshAll", "|", "InModel", "|", "Math"


Am Bob Cn Yn Y Gweithlyfr Hwn.Cysylltiadau
Debug.Print cn.Name, "|", cn.Description, "|", cn.RefreshWithRefreshAll, "|", cn.InModel, "|", cn.Type

Digwyddiadau
Diwedd Is-------------------------------------------- -----

Ar hyn o bryd, dim ond yn y Ffenest Ar Unwaith y gallaf ei gael i allbwn:
-------------------------------------------------- ---
Enw|Disgrifiad||AdnewydduGydaAdnewydduPawb|MewnModel|Math
Cysylltiad Model_Data Allanol_1|Model Data|Gwir|Gwir|7
Cysylltiad Model_Data Allanol_11|Model Data|Gwir|Gwir|7
Ymholiad-AllADMembers(CX)|Cysylltiad i'r ymholiad 'AllADMembers(CX)' yn y llyfr gwaith.|Gwir|Gwir|1
Ymholiad-AllAzureADUsers-Anable|Cysylltiad i'r ymholiad 'AllAzureADUsers-Anable' yn y llyfr gwaith.|Gwir|Anghywir|1
Ymholiad-AllAzureADUsers-Enable|Cysylltiad i'r ymholiad 'AllAzureADUsers-Enabled'yny llyfr gwaith.|Gwir|Anwir|1
Ymholiad-AllAzureADUsersYn Unig|Cysylltiad i'r ymholiad 'AllAzureADUsers Only'yny llyfr gwaith.|Gwir|Anghywir|1
...

Ymholiad-DefnyddwyrDA,NotinApp-BulkDEL*|Cysylltiad i'r ymholiad 'UsersinDA,NotinApp-BulkDEL*' yn y llyfr gwaith.|Anghywir|Gwir|1
ModelData'r Gweithlyfr Hwn|Model Data|Gwir|Gwir|7
-------------------------------------------------- ---
Nodyn 1: Defnyddiais y confensiwn o ychwanegu seren at enw'r ymholiad i weld yn weledol pa ymholiadau y gwnes i analluogi eu hadnewyddu gyda Refresh All.
Nodyn 2: Mae enwau ymholiad gyda (CNX) yn cyfeirio at yr ymholiadau sylfaenol i'r ffeiliau fflat y mae'r ymholiadau uno eraill yn seiliedig arnynt.
Nodyn 3: Y maes "Diweddariad Diwethaf" yn y tabl fyddai Dyddiad/Amser Diweddariad Diwethaf yr ymholiad. Roeddwn yn gobeithio y gellid ei gael fel eiddo i'r ymholiad, gan fod y stamp amser hwn yn cael ei ddangos wrth hofran dros yr ymholiad yn y cwarel ymholiad, e.e.


Yn seiliedig ar fy chwiliadau, nid yw'n ymddangos bod hyn ar gael am ryw reswm, ond os na, canfyddais gyfeiriadau eraill at ei ychwanegu fel gwerth cyfrifedig gan ddefnyddio stampiau amser o adnewyddiadau macro a weithredwyd.

Enghraifft: Cefais lawer o gyfeiriadau at ychwanegu botwm i gael un adnewyddu macro neu adnewyddu pob ymholiad. Fy meddwl i yw y gallai rhywun greu cod i rifo'n ddeinamig yr enwau o'r cod uchod Ymholiad-[Enw Ymholiad], yna cael y cod i weithredu adnewyddiad o bob ymholiad (CNX) uchod yn gyntaf, yna gweithredu'r gweddill yn unigol i ddal y gweithrediad a /neu stamp amser gorffen. Gan fod yna ddilyniant naturiol y mae Excel yn ei ddefnyddio wrth adnewyddu popeth, gall gweithredu ymholiadau â llaw sbarduno'r dilyniant naturiol sawl gwaith gan wneud yr amseroedd adnewyddu cyffredinol yn annioddefol. Chwilio am yr ateb mwyaf effeithlon yma.

Dyma rywfaint o god yr oeddwn i'n meddwl y byddai'n ddefnyddiol i fynd i'r afael â hyn, ond eto, dim ond pan gaiff ei weithredu y mae'n dangos allbwn yn y Ffenest Ar Unwaith.
-------------------------------------------------- ---
Dim TStart Fel Dyddiad
Dim Tuedd Fel Dyddiad
Dim cn Fel WorkbookConnection

Am Bob Cn Yn Y Gweithlyfr Hwn.Cysylltiadau

If Left(cn, 13) = "Ymholiad Pŵer -" Yna
Dadfygio.Print cn
TTart = Nawr
cn.Adnewyddu
Tueddu = Nawr
Debug.Print CStr(DateDiff("s", TSart, TENd)) + "Eiliadau"
Dadfygio.Argraffu" "

Gorffennwch Os
cn nesaf
Is-End
-------------------------------------------------- ---
Ddiolch i mewn ddyrchaf!

M
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir