Ne paslaptis, kad dauguma Excel vartotojų, kurdami lenteles ant lapų, pirmiausia galvoja apie savo patogumą ir patogumą. Taip gimsta gražios, spalvingos ir gremėzdiškos lentelės su sudėtingomis „antraštėmis“, kurių tuo pačiu metu išvis negalima filtruoti ar rūšiuoti, o apie automatinę ataskaitą su pivot lentele geriau išvis negalvoti.
Anksčiau ar vėliau tokios lentelės vartotojas daro išvadą, kad „gali būti ne toks gražus, bet gali veikti“ ir pradeda supaprastinti savo stalo dizainą, suderindamas jį su klasikinėmis rekomendacijomis:
- paprasta vienos eilutės antraštė, kurioje kiekvienas stulpelis turės savo unikalų pavadinimą (lauko pavadinimą)
- viena eilutė – viena atlikta operacija (sandoris, pardavimas, paskelbimas, projektas ir kt.)
- nėra sujungtų langelių
- be pertraukų tuščių eilučių ir stulpelių pavidalu
Bet jei padarysite vienos eilutės antraštę iš kelių lygių arba padalinsite vieną stulpelį į keletą, tai gana paprasta, tada lentelės atkūrimas gali užtrukti daug laiko (ypač esant dideliems dydžiams). Tai reiškia tokią situaciją:
| Of |  | do |  |
Kalbant apie duomenų bazes, tinkama lentelė dažniausiai vadinama plokščia (flat) – būtent pagal tokias lenteles geriausia kurti suvestines lenteles (pivot lenteles) ir atlikti analizę.
Galite konvertuoti dvimatį stalą į plokščią stalą naudodami paprastą makrokomandą. Atidarykite „Visual Basic“ rengyklę naudodami skirtuką Kūrėjas – „Visual Basic“. (Kūrėjas – „Visual Basic“ redaktorius) arba spartusis klavišas Kitas+F11. Įdėkite naują modulį (Įterpimas – modulis) ir ten nukopijuokite šios makrokomandos tekstą:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = Screen полдпо) Klaidinga i = 1 Nustatyti inpdata = Pasirinkimas Rinkinys ns = Darbalapiai. Pridėti, jei r = (hr + 1) prie įvesties duomenų.Eilutės.Skaičius c = (hc + 1) Į inpdata.Columns.Count For j = 1 Prie hc ns. Ląstelės(i, j) = įvesti duomenys.Ląstelės(r, j) Kitas j Kai k = 1 iki val ns.Cells(i, j + k - 1) = inpdata.Cells(k,c) Kitas k ns.Cells( i, j + k - 1) = įvesties duomenys.Ląstelės(r, c) i = i + 1 Kitas c Kitas r Pabaiga Sub Tada galite uždaryti VBA redaktorių ir grįžti į „Excel“. Dabar galime pasirinkti pradinę lentelę (visą, su antrašte ir pirmą stulpelį su mėnesiais) ir paleisti makrokomandą Kūrėjas – makrokomandos (Kūrėjas – makrokomandos) arba presavimo derinys Kitas+F8.
Makrokomandas įterps į knygą naują lapą ir jame sukurs naują, atkurtą pasirinktos lentelės versiją. Galite dirbti su tokia lentele „visa“, naudodami visą „Excel“ įrankių arsenalą dideliems sąrašams apdoroti ir analizuoti.
- Kas yra makrokomandos, kur įterpti makrokomandos kodą VBA, kaip jas naudoti
- Ataskaitų kūrimas naudojant „PivotTable“.
- Įrankis XNUMXD lentelėms perdaryti į plokščias iš PLEX priedo