Таблицаны кайра долбоорлоочу

мазмуну

Жашыруун эмес, көпчүлүк Excel колдонуучулары барактарда таблицаларды түзүүдө биринчи кезекте өздөрүнүн ыңгайлуулугу жана ыңгайлуулугу жөнүндө ойлонушат. Мына ушундай кооз, түркүн түстүү жана түйшүктүү таблицалар жаралган, алар ошол эле учурда такыр эле чыпкаланбайт же иргелбейт, ал эми пивот столу менен автоматтык отчет жөнүндө такыр ойлонбогонуңуз жакшы.

Эртеби-кечпи, мындай үстөлдүн колдонуучусу "бул анчалык деле сулуу эмес, бирок иштей алат" деген тыянакка келип, анын үстөлүнүн дизайнын жөнөкөйлөштүрө баштайт, аны классикалык сунуштарга ылайык келтирет:

  • жөнөкөй бир сап баш, мында ар бир мамычанын өзүнүн уникалдуу аталышы болот (талаанын аталышы)
  • бир линия - бир аяктаган операция (бүтүм, сатуу, жарыялоо, долбоор ж.б.)
  • бириктирилген клеткалар жок
  • бош саптар жана мамычалар түрүндөгү тыныгууларсыз

Бирок, эгерде сиз көп деңгээлдүүдөн бир сызык башын жасасаңыз же бир тилкени бир нечеге бөлсөңүз, анда бул абдан жөнөкөй, анда таблицаны кайра куруу көп убакытты талап кылышы мүмкүн (айрыкча чоң өлчөмдөрдө). Бул төмөнкү жагдайды билдирет:

Of     Таблицаны кайра долбоорлоочу   do     Таблицаны кайра долбоорлоочу  

Берилиштер базасы боюнча, туура таблица адатта жалпак (жалпак) деп аталат - дал ушундай таблицаларга ылайык, пивот таблицаларынын (пивот таблицаларынын) отчетторун түзүү жана аналитиканы жүргүзүү эң жакшы.

Жөнөкөй макросту колдонуу менен эки өлчөмдүү таблицаны жалпак таблицага айландырсаңыз болот. Visual Basic редакторун өтмөк аркылуу ачыңыз Иштеп чыгуучу – Visual Basic (Иштеп чыгуучу — Visual Basic редактору) же баскычтоптун жарлыгы Alt+F11. жаңы модулду киргизүү (Кыстаруу – модуль) жана бул макронун текстин ошол жерге көчүрүңүз:

Sub Redesigner() Dim i Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.ScreenUpdating = False i = 1 Set inpdata = Тандоо топтому ns = Worksheets.Add For r = (саат + 1) inpdata.Rows.Count үчүн c = (hc + 1) Inpdata.Columns.Count үчүн j = 1 үчүн 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 үстөлдөрдү жалпак таблицаларга кайра конструкциялоо үчүн курал

 

Таштап Жооп