Nuk është sekret që shumica e përdoruesve të Excel, kur krijojnë tabela në fletë, mendojnë para së gjithash për komoditetin dhe komoditetin e tyre. Kështu lindin tabelat e bukura, shumëngjyrëshe dhe të rënda me "tituj" komplekse, të cilat në të njëjtën kohë nuk mund të filtrohen apo renditen fare dhe është më mirë të mos mendoni fare për një raport automatik me një tabelë strumbullare.
Herët a vonë, përdoruesi i një tabele të tillë vjen në përfundimin se "mund të mos jetë aq e bukur, por mund të funksionojë" dhe fillon të thjeshtojë dizajnin e tryezës së tij, duke e sjellë atë në përputhje me rekomandimet klasike:
- një kokë e thjeshtë me një rresht, ku secila kolonë do të ketë emrin e saj unik (emri i fushës)
- një linjë - një operacion i përfunduar (marrëveshje, shitje, postim, projekt, etj.)
- nuk ka qeliza të bashkuara
- pa ndërprerje në formën e rreshtave dhe kolonave boshe
Por nëse bëni një kokë me një rresht nga një shumë nivele ose ndani një kolonë në disa, është mjaft e thjeshtë, atëherë rindërtimi i tabelës mund të marrë shumë kohë (veçanërisht në madhësi të mëdha). Do të thotë situatën e mëposhtme:
| Of |  | do |  |
Për sa i përket bazave të të dhënave, tabela e duhur zakonisht quhet e sheshtë (e sheshtë) - sipas tabelave të tilla është më mirë të ndërtoni raporte të tabelave kryesore (tabelat kryesore) dhe të bëni analitikë.
Ju mund të konvertoni një tabelë dy-dimensionale në një tabelë të sheshtë duke përdorur një makro të thjeshtë. Hapni Redaktorin Visual Basic përmes skedës Zhvilluesi - Visual Basic (Zhvilluesi - Redaktori i Visual Basic) ose shkurtore të tastierës Ndalet+F11. Fut një modul të ri (Insert – Moduli) dhe kopjoni tekstin e kësaj makro atje:
Sub Redesigner() Dim i Sa Long Dim hc Si Integer, hr Si Integer Dim ns As Worksheet hr = InputBox("Сколько строк со подписями сверху?") hc = InputBox("Сколько столбцов со подписями слева?") Application.Scre = False i = 1 Set inpdata = Përzgjedhja Set ns = Fletët e punës.Shto Për r = (hr + 1) Tek inpdata.Rreshtat.Numërimi Për c = (hc + 1) Tek inpdata.Kollonat.Numërimi Për j = 1 Tek hc ns. Qelizat(i, j) = inpdata. Qelizat(r, j) Tjetra j Për k = 1 Deri në hr ns. Qelizat(i, j + k - 1) = inpdata. Qelizat(k, c) K ns.Qelizat( i, j + k - 1) = inpdata. Qelizat(r, c) i = i + 1 Tjetra c Tjetra r Fundi Nën Më pas mund të mbyllni redaktorin VBA dhe të ktheheni në Excel. Tani mund të zgjedhim tabelën origjinale (plotësisht, me një kokë dhe kolonën e parë me muaj) dhe të kalojmë makronë tonë përmes Zhvilluesi - Makro (Zhvilluesi - Makro) ose kombinim i shtypjes Ndalet+F8.
Makroja do të fusë një fletë të re në libër dhe do të krijojë një version të ri, të rindërtuar të tabelës së zgjedhur në të. Ju mund të punoni me një tabelë të tillë "plotësisht", duke përdorur të gjithë arsenalin e mjeteve Excel për përpunimin dhe analizimin e listave të mëdha.
- Çfarë janë makro, ku të futni kodin makro në VBA, si t'i përdorni ato
- Krijimi i raporteve me PivotTables
- Mjet për të ridizajnuar XNUMXD tabela në ato të sheshta nga shtesa PLEX