Ба касе пӯшида нест, ки аксари корбарони Excel ҳангоми сохтани ҷадвалҳо дар варақҳо пеш аз ҳама дар бораи роҳат ва роҳати худ фикр мекунанд. Ҳамин тавр мизҳои зебо, рангоранг ва вазнин бо "сарлавҳаҳои" мураккаб ба дунё меоянд, ки дар айни замон онҳоро тамоман филтр кардан ё мураттаб кардан ғайриимкон аст ва беҳтар аст, ки дар бораи гузориши автоматӣ бо ҷадвали пивот умуман фикр накунед.
Дер ё зуд, истифодабарандаи чунин ҷадвал ба хулосае меояд, ки «он он қадар зебо нест, аммо он метавонад кор кунад» ва ба содда кардани тарҳи мизи худ шурӯъ мекунад ва онро ба тавсияҳои классикӣ мутобиқ мекунад:
- сарлавҳаи оддии як сатр, ки дар он ҳар як сутун номи беназири худро дорад (номи майдон)
- як сатр – як амалиёти анҷомдодашуда (аҳд, фурӯш, интишор, лоиҳа ва ғ.)
- ҳуҷайраҳои муттаҳидшуда нест
- бе танаффус дар шакли сатру сутунхои холй
Аммо агар шумо сарлавҳаи як сатрро аз як сатҳҳои бисёрсатҳӣ созед ё як сутунро ба чанд сутун тақсим кунед, ин хеле оддӣ аст, пас барқароркунии ҷадвал метавонад вақти зиёдро талаб кунад (хусусан дар андозаҳои калон). Ин маънои вазъияти зеринро дорад:
| Of |  | do |  |
Дар робита ба пойгоҳи додаҳо, ҷадвали ростро одатан ҳамвор (ҳамвор) меноманд - маҳз мувофиқи чунин ҷадвалҳо беҳтар аст, ки ҳисоботи ҷадвалҳои ҷамъоварӣ (ҷадвалҳои ҷамъоварӣ) ва таҳлилро анҷом диҳед.
Шумо метавонед ҷадвали дученакаро бо истифода аз макросҳои оддӣ ба ҷадвали ҳамвор табдил диҳед. Таҳрири Visual Basic -ро тавассути ҷадвал кушоед Таҳиягар - Visual Basic (Таҳиягар — Муҳаррири Visual Basic) ё миёнабури клавиатура Alt+F11. Модули нав ворид кунед (Ворид - Модул) ва матни ин макросро дар он ҷо нусхабардорӣ кунед:
Sub Redesigner() Dim i As Long Dim hc As Long Dim hc As Integer, hr As Integer Dim ns As As Sheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов бо подписями слева?") Application.ScreenUpdating = False i = 1 Танзими inpdata = Маҷмӯи интихоб ns = Варақаҳои корӣ.Илова кардан барои r = (соат + 1) Ба inpdata.Rows.Count Барои c = (hc + 1) Ба inpdata.Columns.Count Барои j = 1 Ба hc ns. Чашмакҳо(i, j) = inpdata.Cells(r, j) Next j Барои k = 1 То соат 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 Next c Next r End Sub Пас шумо метавонед муҳаррири VBA-ро пӯшед ва ба Excel баргардед. Акнун мо метавонем ҷадвали аслиро интихоб кунем (комилан, бо сарлавҳа ва сутуни аввал бо моҳҳо) ва макросҳои худро иҷро кунед Таҳиягар - Макросҳо (Таҳиягар — Макрос) ё комбинатсияи пахшкунӣ Alt+F8.
Макрос ба китоб варақи нав ворид мекунад ва дар он версияи нави аз нав сохташудаи ҷадвали интихобшударо эҷод мекунад. Шумо метавонед бо чунин ҷадвал "пурра" кор кунед, бо истифода аз тамоми арсенали абзорҳои Excel барои коркард ва таҳлили рӯйхатҳои калон.
- Макросҳо чист, дар куҷо рамзи макросро дар VBA дохил кардан лозим аст, чӣ тавр истифода бурдани онҳо
- Эҷоди гузоришҳо бо ҷадвалҳои Pivot
- Асбоб барои аз нав тарҳрезии ҷадвалҳои XNUMXD ба ҳамвор аз иловаи PLEX