Jedwali Redesigner

Yaliyomo

Sio siri kwamba watumiaji wengi wa Excel, wakati wa kuunda meza kwenye karatasi, fikiria kwanza juu ya faraja na urahisi wao wenyewe. Hivi ndivyo meza nzuri, zenye rangi na ngumu zilizo na "vichwa" ngumu huzaliwa, ambazo, wakati huo huo, haziwezi kuchujwa au kupangwa hata kidogo, na ni bora kutofikiria juu ya ripoti ya kiotomatiki iliyo na jedwali la egemeo hata kidogo.

Hivi karibuni au baadaye, mtumiaji wa meza kama hiyo anafikia hitimisho kwamba "inaweza kuwa sio nzuri sana, lakini inaweza kufanya kazi" na huanza kurahisisha muundo wa meza yake, na kuifanya iendane na mapendekezo ya kawaida:

  • kichwa rahisi cha mstari mmoja, ambapo kila safu itakuwa na jina lake la kipekee (jina la uwanja)
  • mstari mmoja - operesheni moja iliyokamilishwa (dili, uuzaji, uchapishaji, mradi, nk)
  • hakuna seli zilizounganishwa
  • bila mapumziko kwa namna ya safu tupu na nguzo

Lakini ikiwa unatengeneza kichwa cha mstari mmoja kutoka kwa ngazi mbalimbali au kugawanya safu moja katika kadhaa, ni rahisi sana, basi ujenzi wa meza unaweza kuchukua muda mwingi (hasa kwa ukubwa mkubwa). Inamaanisha hali ifuatayo:

Of     Jedwali Redesigner   do     Jedwali Redesigner  

Kwa upande wa hifadhidata, meza ya kulia kawaida huitwa gorofa (gorofa) - ni kwa mujibu wa meza hizo ambazo ni bora kujenga ripoti za meza za pivot (meza za pivot) na kufanya uchambuzi.

Unaweza kubadilisha jedwali la pande mbili kuwa la gorofa kwa kutumia macro rahisi. Fungua Kihariri cha Msingi cha Visual kupitia kichupo Msanidi programu - Visual Basic (Msanidi - Kihariri cha Msingi cha Visual) au njia ya mkato ya kibodi Alt+F11. Ingiza moduli mpya (Ingiza - Moduli) na unakili maandishi ya jumla hii hapo:

Kiboreshaji Kidogo () Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Laha ya Kazi hr = InputBox("Сколько сстрок с подписями сверху?") hc = InputBox("Сколько столбцов столбасовый песни) Utumaji wa Maombi = Utumizi wa Google. Si kweli i = 1 Weka data = Uteuzi Weka ns = Laha za Kazi.Ongeza Kwa r = (hr + 1) Kwa inpdata.Rows.Count Kwa c = (hc + 1) Kwa inpdata.Columns.Hesabu Kwa j = 1 Hadi hc ns. Seli(i, j) = inpdata.Seli(r, j) Inayofuata j Kwa k = 1 Hadi hr ns.Seli(i, j + k - 1) = inpdata.Seli(k, c) Inayofuata k ns.Seli( i, j + k - 1) = inpdata.Seli(r, c) i = i + 1 Inayofuata c Inayofuata r Mwisho Sub  

Kisha unaweza kufunga kihariri cha VBA na kurudi kwa Excel. Sasa tunaweza kuchagua jedwali asili (kabisa, na kichwa na safu wima ya kwanza na miezi) na kuendesha macro yetu kupitia Msanidi - Macros (Msanidi - Macros) au mchanganyiko wa kushinikiza Alt+F8.

Jumla itaingiza laha mpya kwenye kitabu na kuunda toleo jipya, lililoundwa upya la jedwali lililochaguliwa juu yake. Unaweza kufanya kazi na meza kama hiyo "kamili", ukitumia safu nzima ya zana za Excel kwa usindikaji na kuchambua orodha kubwa.

  • Je, ni macros, wapi kuingiza msimbo wa jumla katika VBA, jinsi ya kutumia
  • Kuunda Ripoti kwa PivotTables
  • Zana ya kuunda upya jedwali la XNUMXD hadi la bapa kutoka kwa programu-jalizi ya PLEX

 

Acha Reply