Það er ekkert leyndarmál að flestir Excel notendur, þegar þeir búa til töflur á blöð, hugsa fyrst og fremst um eigin þægindi og þægindi. Svona fæðast fallegar, litríkar og fyrirferðarmiklar töflur með flóknum „hausum“, sem á sama tíma er ekki hægt að sía eða flokka, og það er betra að hugsa ekki um sjálfvirka skýrslu með snúningstöflu.
Fyrr eða síðar kemst notandi slíkrar töflu að þeirri niðurstöðu að „það er kannski ekki svo fallegt, en það getur virkað“ og byrjar að einfalda hönnun borðsins síns og færa það í samræmi við klassískar ráðleggingar:
- einfaldur einnarlínuhaus, þar sem hver dálkur mun hafa sitt einstaka nafn (reitarheiti)
- ein lína – ein aðgerð sem er lokið (samningur, sala, bókun, verkefni osfrv.)
- engar sameinaðar frumur
- án brota í formi tómra raða og dálka
En ef þú gerir einnar línu haus úr fjölþrepa einum eða skiptir einum dálki í nokkra, þá er það frekar einfalt, þá getur endurgerð töflunnar tekið mikinn tíma (sérstaklega í stórum stærðum). Það þýðir eftirfarandi aðstæður:
| Of |  | do |  |
Hvað varðar gagnagrunna er rétta taflan venjulega kölluð flat (flat) – það er samkvæmt slíkum töflum sem best er að búa til skýrslur um pivot-töflur (pivot-töflur) og framkvæma greiningar.
Hægt er að umbreyta tvívíðri töflu í flata töflu með því að nota einfalt fjölvi. Opnaðu Visual Basic Editor í gegnum flipann Hönnuður - Visual Basic (Hönnuður - Visual Basic ritstjóri) eða flýtilykla Alt+F11. Settu inn nýja einingu (Settu inn - Eining) og afritaðu texta þessa fjölvi þangað:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов столбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с полбцов с подписями сверху?") Rangt i = 1 Setja inpdata = Valmengi ns = Vinnublöð.Bæta við Fyrir r = (hr + 1) Til inpdata.Rows.Count Fyrir c = (hc + 1) To inpdata.Columns.Count Fyrir j = 1 Til hc ns. Cells(i, j) = inpdata.Cells(r, j) Next j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Next k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub Þú getur síðan lokað VBA ritlinum og farið aftur í Excel. Nú getum við valið upprunalegu töfluna (alveg með haus og fyrsta dálkinn með mánuðum) og keyrt makróið okkar í gegnum Hönnuður - Fjölvi (Hönnuður - Fjölvi) eða ýta á samsetningu Alt+F8.
Fjölvi mun setja nýtt blað inn í bókina og búa til nýja, endurgerða útgáfu af völdum töflu á henni. Þú getur unnið með slíka töflu „að fullu“ með því að nota allt vopnabúrið af Excel verkfærum til að vinna og greina stóra lista.
- Hvað eru fjölvi, hvar á að setja inn stórkóða í VBA, hvernig á að nota þá
- Búa til skýrslur með PivotTables
- Tól til að endurhanna XNUMXD töflur í flatar úr PLEX viðbótinni