Table Redesigner

Awọn akoonu

Kii ṣe aṣiri pe ọpọlọpọ awọn olumulo Excel, nigbati o ṣẹda awọn tabili lori awọn iwe, ronu ni akọkọ nipa itunu ati irọrun tiwọn. Eyi ni bi o ṣe lẹwa, awọn awọ ati awọn tabili ti o wuyi pẹlu “awọn akọle” idiju, eyiti, ni akoko kanna, ko le ṣe iyọda tabi lẹsẹsẹ rara, ati pe o dara lati ma ronu nipa ijabọ adaṣe kan pẹlu tabili pivot rara.

Laipẹ tabi nigbamii, olumulo ti iru tabili kan wa si ipari pe “o le ma ṣe lẹwa, ṣugbọn o le ṣiṣẹ” o bẹrẹ lati jẹ ki apẹrẹ tabili rẹ rọrun, mu wa ni ila pẹlu awọn iṣeduro Ayebaye:

  • akọsori ila kan ti o rọrun, nibiti iwe kọọkan yoo ni orukọ alailẹgbẹ tirẹ (orukọ aaye)
  • Laini kan - iṣẹ ti o pari (adehun, tita, fifiranṣẹ, iṣẹ akanṣe, bbl)
  • ko si awọn sẹẹli ti a dapọ
  • laisi awọn fifọ ni irisi awọn ori ila ti o ṣofo ati awọn ọwọn

Ṣugbọn ti o ba ṣe akọsori ila-ila kan lati ipele ti o pọju tabi pin iwe kan si awọn pupọ, o rọrun pupọ, lẹhinna atunkọ tabili le gba akoko pupọ (paapaa ni awọn titobi nla). O tumọ si ipo atẹle:

Of     Table Redesigner   do     Table Redesigner  

Ni awọn ofin ti awọn apoti isura infomesonu, tabili ti o tọ ni a pe ni alapin (alapin) - o jẹ ibamu si iru awọn tabili bẹ o dara julọ lati kọ awọn ijabọ ti awọn tabili pivot (awọn tabili pivot) ati ṣiṣe awọn itupalẹ.

O le ṣe iyipada tabili onisẹpo meji si tabili alapin nipa lilo Makiro ti o rọrun. Ṣii Olootu Ipilẹ Visual nipasẹ taabu naa Olùgbéejáde – Visual Ipilẹ (Olùgbéejáde - Olootu Ipilẹ wiwo) tabi ọna abuja keyboard alt+F11. Fi module tuntun sii (Fi sii - Module) ati daakọ ọrọ Makiro yii nibẹ:

Sub Redesigner() Dim i As Long Dim hc Bi Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox ("Сколько строк с подписями сверху?") hc = InputBox ("Сколькост ?") Application. Eke i = 1 Ṣeto inpdata = Aṣayan Ṣeto ns = Awọn iwe iṣẹ.Fikun Fun r = (hr + 1) Si inpdata.Rows.Count For c = (hc + 1) Si inpdata.Columns.Count For j = 1 Si hc ns. Awọn sẹẹli (i, j) = inpdata.Ẹyin (r, j) Next j Fun k = 1 Si hr ns.Ẹyin (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 Ipari Ipin  

O le lẹhinna pa olootu VBA ki o pada si Excel. Bayi a le yan tabili atilẹba (patapata, pẹlu akọsori ati iwe akọkọ pẹlu awọn oṣu) ati ṣiṣe Makiro wa nipasẹ Olùgbéejáde - Macros (Olùgbéejáde - Macros) tabi titẹ apapo alt+F8.

Makiro naa yoo fi iwe tuntun sinu iwe naa yoo ṣẹda tuntun, ẹya tuntun ti tabili ti o yan lori rẹ. O le ṣiṣẹ pẹlu iru tabili "ni kikun", lilo gbogbo arsenal ti awọn irinṣẹ Excel fun ṣiṣe ati itupalẹ awọn atokọ nla.

  • Kini awọn macros, nibo ni lati fi koodu macro sii ni VBA, bi o ṣe le lo wọn
  • Ṣiṣẹda Iroyin pẹlu PivotTables
  • Ọpa lati tun ṣe awọn tabili XNUMXD si awọn alapin lati inu afikun PLEX

 

Fi a Reply