Ихэнх Excel хэрэглэгчид хуудсан дээр хүснэгт үүсгэхдээ хамгийн түрүүнд өөрсдийн тав тух, ая тухтай байдлын талаар боддог нь нууц биш юм. Ийм л нарийн төвөгтэй "толгой" бүхий үзэсгэлэнтэй, өнгөлөг, нүсэр ширээнүүд төрдөг бөгөөд эдгээрийг огт шүүж, ангилах боломжгүй бөгөөд пивот хүснэгттэй автомат тайлангийн талаар огт бодохгүй байх нь дээр.
Эрт орой хэзээ нэгэн цагт ийм ширээний хэрэглэгч "энэ нь тийм ч үзэсгэлэнтэй биш байж магадгүй, гэхдээ энэ нь ажиллах боломжтой" гэсэн дүгнэлтэд хүрч, ширээний дизайныг хялбарчилж, сонгодог зөвлөмжид нийцүүлж эхэлдэг.
- багана бүр өөрийн гэсэн өвөрмөц нэртэй байх энгийн нэг мөр толгой.
- нэг мөр - нэг дууссан үйл ажиллагаа (гэрээ, худалдах, байршуулах, төсөл гэх мэт)
- нэгтгэсэн нүд байхгүй
- хоосон мөр, багана хэлбэрээр завсарлагагүй
Гэхдээ хэрэв та олон түвшний нэгээс нэг мөртэй толгой гаргавал эсвэл нэг баганыг хэд хэдэн болгон хуваах юм бол энэ нь маш энгийн бөгөөд хүснэгтийг сэргээн засварлахад маш их цаг хугацаа шаардагдана (ялангуяа том хэмжээтэй). Энэ нь дараахь нөхцөл байдлыг илэрхийлнэ.
| Of |  | do |  |
Өгөгдлийн сангийн хувьд зөв хүснэгтийг ихэвчлэн хавтгай (хавтгай) гэж нэрлэдэг - ийм хүснэгтийн дагуу пивот хүснэгтүүдийн тайланг (пивот хүснэгт) үүсгэж, аналитик хийх нь хамгийн сайн арга юм.
Та энгийн макро ашиглан хоёр хэмжээст хүснэгтийг хавтгай хүснэгт болгон хувиргаж болно. Visual Basic Editor-ийг табаар нээнэ үү Хөгжүүлэгч - Visual Basic (Хөгжүүлэгч — Visual Basic редактор) эсвэл гарын товчлол Alt+F11. Шинэ модуль оруулах (Оруулах - Модуль) мөн энэ макроны текстийг тэнд хуулна:
Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.ScreenUpdating = False i = 1 Set inpdata = Selection Set ns = Worksheets.Add For r = (hr + 1) to inpdata.Rows.Count For c = (hc + 1) to inpdata.Columns.Count For j = 1 To hc ns. Cells(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 Next r End Sub Дараа нь та VBA засварлагчийг хааж, Excel руу буцаж болно. Одоо бид анхны хүснэгтийг сонгоод (бүрэн, толгой хэсэг, эхний багана нь сартай) болон макроо ажиллуулж болно. Хөгжүүлэгч - Макро (Хөгжүүлэгч — Макро) эсвэл дарах хослол Alt+F8.
Макро нь номонд шинэ хуудас оруулж, түүн дээр сонгосон хүснэгтийн шинэчилсэн хувилбарыг үүсгэх болно. Та том жагсаалтыг боловсруулах, дүн шинжилгээ хийхэд Excel-ийн бүх хэрэгслийг ашиглан ийм хүснэгттэй "бүрэн хэмжээгээр" ажиллах боломжтой.
- Макро гэж юу вэ, VBA-д макро кодыг хаана оруулах, хэрхэн ашиглах талаар
- Пивот хүснэгт ашиглан тайлан үүсгэх
- PLEX нэмэлтээс XNUMXD хүснэгтийг хавтгай болгон өөрчлөх хэрэгсэл