Redesigner latabatra

Hevitra ato Anatiny

Tsy tsiambaratelo fa ny ankamaroan'ny mpampiasa Excel, rehefa mamorona latabatra amin'ny takelaka, dia mieritreritra aloha ny fampiononana sy ny fahafahany manokana. Toy izany no nahaterahan'ny latabatra tsara tarehy, maro loko ary saro-takarina miaraka amin'ny "lohahevitra" sarotra, izay, miaraka amin'izay koa, dia tsy azo sivana na nalahatra mihitsy, ary tsara kokoa ny tsy mieritreritra tatitra mandeha ho azy miaraka amin'ny latabatra pivot.

Na ho ela na ho haingana, ny mpampiasa latabatra toy izany dia tonga amin'ny fanatsoahan-kevitra fa "mety tsy ho tsara tarehy izy io, fa afaka miasa" ary manomboka manatsotra ny famolavolana ny latabany, mampifanaraka izany amin'ny tolo-kevitra mahazatra:

  • lohatenin-dahatsoratra tsotra iray, izay hananana anarana manokana (anaran'ny saha) ny tsanganana tsirairay
  • andalana iray - asa iray vita (fifanarahana, fivarotana, fandefasana, tetikasa, sns.)
  • tsy misy sela mitambatra
  • tsy misy fiatoana amin'ny endrika andalana sy tsanganana foana

Fa raha manao lohatenin'ny andalana iray avy amin'ny ambaratonga maromaro ianao na mizara tsanganana iray ho maromaro, dia tsotra izany, dia mety haka fotoana be ny fanamboarana latabatra (indrindra amin'ny habeny lehibe). Midika izany toe-javatra manaraka izany:

Of     Redesigner latabatra   do     Redesigner latabatra  

Raha ny momba ny angon-drakitra, ny latabatra havanana dia matetika antsoina hoe fisaka (flat) - araka ny tabilao toy izany no tsara indrindra ny manangana tatitra momba ny tabilao pivot (tabilao pivot) ary manao fanadihadiana.

Azonao atao ny mamadika latabatra misy lafiny roa ho latabatra fisaka amin'ny fampiasana macro tsotra. Sokafy ny Visual Basic Editor amin'ny alàlan'ny tabilao Developer - Visual Basic (Developer — Tonian-dahatsoratra Visual Basic) na hitsin-dàlana fitendry Alt+F11. Asio module vaovao (Ampidiro - Module) ary kopia ny lahatsoratr'ity macro ity:

Sub Redesigner() Dim i Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Sколько строк с подписями сверху?") hc = InputBox("Sколько столбдов столбдов" Application столбдов Diso i = 1 Mametraka inpdata = Sehatra fifantenana ns = Taratasy.Ampio ho an'ny r = (hr + 1) Ho an'ny inpdata.Rows.Isao ho an'ny c = (hc + 1) Ho an'ny inpdata.Tsanganana.Iisa ho an'ny j = 1 Ho an'ny hc ns. Cells(i, j) = inpdata.Cells(r, j) Manaraka 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 Manaraka c Manaraka r End Sub  

Azonao atao ny manidy ny tonian-dahatsoratra VBA ary miverina amin'ny Excel. Ankehitriny isika dia afaka misafidy ny latabatra tany am-boalohany (tanteraka, miaraka amin'ny lohapejy sy ny tsanganana voalohany miaraka amin'ny volana) ary mihazakazaka ny macro Developer - Macros (Developer - Macros) na mitambatra manindry Alt+F8.

Ny macro dia hampiditra takelaka vaovao ao amin'ny boky ary hamorona dikan-teny vaovao sy namboarina indray amin'ny latabatra voafantina eo amboniny. Azonao atao ny miara-miasa amin'ny latabatra toy izany "feno", amin'ny fampiasana ny fitaovam-piadiana manontolo amin'ny fitaovana Excel amin'ny fanodinana sy famakafakana lisitra lehibe.

  • Inona no macros, aiza no hampidirana kaody macro ao amin'ny VBA, ny fomba fampiasana azy ireo
  • Mamorona tatitra miaraka amin'ny PivotTables
  • Fitaovana hamolavolana ny latabatra XNUMXD ho fisaka avy amin'ny PLEX add-on

 

Leave a Reply