Dit is geen geheim dat die meeste Excel-gebruikers, wanneer hulle tabelle op velle skep, eerstens aan hul eie gemak en gerief dink. Dit is hoe pragtige, kleurvolle en omslagtige tabelle met komplekse "opskrifte" gebore word, wat terselfdertyd glad nie gefiltreer of gesorteer kan word nie, en dit is beter om glad nie aan 'n outomatiese verslag met 'n spiltabel te dink nie.
Vroeër of later kom die gebruiker van so 'n tafel tot die gevolgtrekking dat "dit dalk nie so mooi is nie, maar dit kan werk" en begin om die ontwerp van sy tafel te vereenvoudig, wat dit in lyn bring met die klassieke aanbevelings:
- 'n eenvoudige een-reël kopskrif, waar elke kolom sy eie unieke naam (veldnaam) sal hê
- een reël – een voltooide operasie (transaksie, verkoop, plasing, projek, ens.)
- geen saamgevoegde selle nie
- sonder onderbrekings in die vorm van leë rye en kolomme
Maar as jy 'n eenlyn-opskrif uit 'n multi-vlak een maak of een kolom in verskeie verdeel, is dit redelik eenvoudig, dan kan die tabelrekonstruksie baie tyd neem (veral by groot groottes). Dit beteken die volgende situasie:
| Of |  | do |  |
Wat databasisse betref, word die regte tabel gewoonlik plat (plat) genoem – dit is volgens sulke tabelle dat dit die beste is om verslae van spilpunttabelle (spilpunttabelle) te bou en analise uit te voer.
Jy kan 'n tweedimensionele tabel na 'n plat tafel omskakel deur 'n eenvoudige makro te gebruik. Maak die Visual Basic Editor oop via die oortjie Ontwikkelaar – Visual Basic (Ontwikkelaar – Visual Basic Editor) of sleutelbordkortpad alt+F11. Voeg 'n nuwe module in (Voeg in – Module) en kopieer die teks van hierdie makro daarheen:
Sub Redesigner() Dim i As Long Dim hc As Heelgetal, hr As Heelgetal Dim ns As Werkblad hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов столбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с подписями сверху?") Onwaar i = 1 Stel inpdata = Seleksie Stel ns = Werkblaaie.Voeg By Vir r = (hr + 1) By inpdata.Rows.Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 Tot hc ns. Selle(i, j) = inpdata.Selle(r, j) Volgende j Vir k = 1 Na hr ns.Selle(i, j + k - 1) = inpdata.Selle(k, c) Volgende k ns.Selle( i, j + k - 1) = inpdata.Selle(r, c) i = i + 1 Volgende c Volgende r End Sub Jy kan dan die VBA-redigeerder toemaak en terugkeer na Excel. Nou kan ons die oorspronklike tabel kies (heeltemal, met 'n kopskrif en die eerste kolom met maande) en ons makro deurloop Ontwikkelaar - Makro's (Ontwikkelaar - Makro's) of druk kombinasie alt+F8.
Die makro sal 'n nuwe blad in die boek invoeg en 'n nuwe, gerekonstrueerde weergawe van die geselekteerde tabel daarop skep. Jy kan “ten volle” met so 'n tabel werk, deur die hele arsenaal van Excel-instrumente te gebruik om groot lyste te verwerk en te ontleed.
- Wat is makro's, waar om makro-kode in VBA in te voeg, hoe om dit te gebruik
- Skep verslae met draaitabelle
- Gereedskap om XNUMXD tafels na plat tafels te herontwerp vanaf die PLEX-byvoeging