Scindendo mensam in laminas

Microsoft Praecedo multa instrumenta ad colligendas notitias ex pluribus tabulis (ex diversis chartis vel e diversis fasciculis): nexus directos, functiones INDIRECTUS (INDIRECTUS), Potestas Query et Potestas Pivot additiones, etc. Ex hac parte valli bona omnia spectant.

Sed si in problema inversum incurras - notitias ex una tabula ad diversas schedas disseminandas - tunc omnia tristiora erunt. In momento, nullae sunt civiles aedificationes in instrumentis pro tali notitia separationis in armamentario Excel, proh dolor. Sic tortor in Visual Basic uti debebis, vel commentariis macro + potentiae Query utere coniunctione cum paulo post "lima elegantiam".

Propius inspiciamus quo id perfici possit.

Formula quaestionis

Talem mensam datam initialem habemus cum amplitudine plusquam quinque milium ordinum pro venditionibus:

Scindendo mensam in laminas

Negotium: notitias ex hac tabula per urbem distribuere in chartis distinctis huius libri. Illae. ad output, in singulis scheda tantum debes obtinere illos ordines e mensa ubi venditio erat in civitate correspondente;

Scindendo mensam in laminas

para

Ut notam tortor codici non inpediat et ut quam maxime facile intelligatur, duos gradus praeparatorii peragamus.

Primum est, separatum lookup mensa creareubi una columna recenset omnes urbes quas vis singulas chartas creare. Utique, indicis iste non omnes urbes quae in fonte data sunt continere possunt, sed ea tantum quibus nuntiationibus indigemus. Facillime modus ad talem mensam condere est uti mandato Data - Aufer Effingo (Indicium - Aufer duplicates) in columna exemplum Urbem seu munus UNK (Unicus) — si novissimam versionem Praecedo 365 habes.

Cum novae schedae in Excel creantur per defaltam ante (ad sinistram) hodiernam (priorem) unam, etiam sensum praebet civitates in hoc directorio in ordine descendendo (ab Z ad A) — deinde post creationem, civitatem. schedae alphabetice dispositae erunt.

Secundum est, пconversus ad dynamica et mensas ("dolor") ut facilius cum illis operari possit. Utimur imperio Domum - Forma ut mensam (Domus - Format as Table) aut claviaturae Ctrl-+T. In tab ut videtur Constructor (Design) 'vocemus eos' tablProdaji и TableCity, Respectively:

Scindendo mensam in laminas

Modus 1. Macro pro divisione schedae

In Provectus tab elit (Developer) click in puga pyga Visual Basic aut uti claviaturae alt+F11. In fenestra tortor editor aperit, novum inanis moduli per tabulam inserta Inserere - OMNIBUS et sequenti codice ibi exscribo:

Sub Splitter() Pro Cellula In Range ("таблГорода") Range("таблПродажи").AutoFilter Field:=3, Criteria1:=cell.Value Range("таблПродажи[#All]").SpecialCells(xlCellTypeVisible). Sheets.Add ActiveSheet.Paste ActiveSheet.Name = cell.Value ActiveSheet.UsedRange.Columns.AutoFit Post cellam massae ("Данные").ShowAllData Finis Sub

Hic cum ansa Pro singulis … Next implemented iter per cellulas indicem TableCity, ubi cuique civitati colatur AutoFilter) in tabula venditionum originalium et deinde eventus in scheda recenti creata describenda. In via, linteamen creatum ad nomen civitatis renominatum est, et auto- apta columnarum latitudo in ea forma versa est.

Potes currere tortor creatus in Excel in tab elit ipsum macros (Developer - Macros) aut claviaturae alt+F8.

Modus 2. crea plures queries in potentia Query

Prior methodus, pro tota sua firmitate et simplicitate, insigne detrimentum habet - schedae a tortor creatae non renovantur cum mutationes fiunt in tabula vendita originali. Si adaequationem in musca necessariam esse, tum VBA + Power Query fasciculo uti debebis, vel potius, tortor non solum plagulis statice datae, sed updated Power Query creabis.

Macro in hoc casu partim priori similis est (etiam cyclum habet" Pro singulis … Next iterare per civitates in indicem), sed intra ansam iam non erit eliquare et exscribere, sed potentiam Query interrogationem creare et eius eventum in novam schedam plicare:

Sub Splitter2() Pro Singulis cellis In Range("City table") ActiveWorkbook.Queries.Add Name:=cell.Value, Formula:= _ "let" & Chr(13) &" & Chr(10) &" Source = Excel.CurrentWorkbook(){[Name=""TableSales""]}[Content]," & Chr(13) & "" & Chr(10) & " #"" Mutatus Type"" = Table.TransformColumnTypes(Source , {{""Categoria", type text}, {""Name", type text}, {""City"", type text}, {""Manager"", type text}, {""Deal date ", type datetime}, {""Pretium", type number }}),," & Chr(13) & "" & Chr(10) & " #"" Ordines colum applicati"" = Table.Se " & _ " lectRows(#""Mutatus type", each ([City] = """ & cell.Value & """)) & Chr (13) & "" & Chr(10) &" in " & Chr(13) & "" & Chr(10) & " #"" Ordines colum applicati""" ActiveWorkbook.Worksheets.Add Cum ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB; Providens =Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location="& cell.Value & ";Properties """" _ , Destinatio:=Range("$A$1"). QueryTable .CommandType = xlCmd Sql .CommandText = Forum ( "Select *FROM [" & cell.Value & "]") .RowNumbers = Falsae .FillAdjacentFormulas = Falsae .PreserveFormatting = Verum .RefreshOnFileOpen = Falsus .BackgroundQuery = Verum .RefreshStyle = xlInsertDeleteCells .SavePassword = Falsus . SaveData = Verum .AdjustColumnWidth = Verum .RefreshPeriod = 0 .PreserveColumnInfo = Verum .ListObject.DisplayName = cell.Value .Refresh BackgroundQuery:=Falsum finem Cum ActiveSheet.Name = cell.Value Next cell finem Sub

Post eius immissionem easdem chartas ab urbe videbimus, sed Power Query quaesita iam creata ea formabit;

Scindendo mensam in laminas

Quibusvis mutationibus in fonte data, satis erit ad mensam debitam cum mure pyga dextra renovanda - mandatum Update & Servare (Renovare) aut update omnes urbes simul in mole utens puga pyga omnes Update Tab Data (Indicium - Renovare All).

  • Quae Macrae sunt, quomodo eas creare et uti?
  • Excepto workbook pretium ut separatum files
  • Colligendis notitia ex omnibus chartis in unam tabulam

Leave a Reply