Hech kimga sir emaski, ko'pchilik Excel foydalanuvchilari varaqlarda jadvallar yaratishda, birinchi navbatda, o'zlarining qulayligi va qulayligi haqida o'ylashadi. Shunday qilib, murakkab "sarlavhalar" bilan chiroyli, rang-barang va noqulay jadvallar tug'iladi, ularni bir vaqtning o'zida filtrlab bo'lmaydi yoki saralab bo'lmaydi va pivot jadvalli avtomatik hisobot haqida umuman o'ylamagan ma'qul.
Ertami-kechmi, bunday stoldan foydalanuvchi "bu unchalik chiroyli bo'lmasligi mumkin, lekin u ishlashi mumkin" degan xulosaga keladi va o'z stolining dizaynini soddalashtirishni boshlaydi va uni klassik tavsiyalarga muvofiqlashtiradi:
- oddiy bir qatorli sarlavha, bu erda har bir ustunning o'ziga xos nomi (maydon nomi) bo'ladi.
- bir qator - bitta tugallangan operatsiya (bitim, sotish, e'lon qilish, loyiha va boshqalar)
- birlashtirilgan hujayralar yo'q
- bo'sh qatorlar va ustunlar ko'rinishidagi tanaffuslarsiz
Ammo agar siz ko'p darajali sarlavhadan bitta satrli sarlavha yasasangiz yoki bitta ustunni bir nechtasiga ajratsangiz, bu juda oddiy, keyin jadvalni qayta tiklash ko'p vaqt talab qilishi mumkin (ayniqsa katta o'lchamlarda). Bu quyidagi vaziyatni anglatadi:
| Of |  | do |  |
Ma'lumotlar bazalari nuqtai nazaridan, to'g'ri jadval odatda tekis (tekis) deb ataladi - aynan shunday jadvallarga ko'ra pivot jadvallar (pivot jadvallar) hisobotlarini tuzish va tahlillarni o'tkazish yaxshidir.
Ikki o'lchovli jadvalni oddiy makros yordamida tekis jadvalga aylantirishingiz mumkin. Yorliq orqali Visual Basic muharririni oching Dasturchi - Visual Basic (Dasturchi — Visual Basic muharriri) yoki klaviatura yorlig'i Alt+F11. Yangi modulni kiritish (Qo'shish - modul) va ushbu makrosning matnini u erga ko'chiring:
Sub Redesigner() Dim i Long Dim hc As Long As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Skolko strok s podpisyami sverxu?") hc = InputBox("Skolko stolbtsov s podpisyami sleva?") Application.ScreenUpdating = False i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) to inpdata.Rows.Count for c = (hc + 1) inpdata.Columns.Count for j = 1 To hc ns. Hujayralar(i, j) = Inpdata.Cells(r, j) Next 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 Next c Keyingi r End Sub Keyin VBA muharririni yopishingiz va Excelga qaytishingiz mumkin. Endi biz asl jadvalni tanlashimiz mumkin (to'liq, sarlavha va oylar bilan birinchi ustun) va makromizni ishga tushirishimiz mumkin. Ishlab chiquvchi - Makroslar (Dasturchi — Makroslar) yoki bosish kombinatsiyasi Alt+F8.
Makros kitobga yangi varaqni kiritadi va unda tanlangan jadvalning yangi, qayta tiklangan versiyasini yaratadi. Katta ro'yxatlarni qayta ishlash va tahlil qilish uchun Excel vositalarining butun arsenalidan foydalanib, bunday jadval bilan "to'liq" ishlashingiz mumkin.
- Makroslar nima, VBA-da so'l kodni qayerga kiritish kerak, ulardan qanday foydalanish kerak
- Pivot jadvallar yordamida hisobotlarni yaratish
- PLEX plaginidan XNUMXD jadvallarni tekis jadvallarga qayta loyihalash uchun vosita