Кестені қайта жасаушы

Мазмұны

Жасыратыны жоқ, Excel пайдаланушыларының көпшілігі парақтардағы кестелерді құру кезінде ең алдымен өздерінің жайлылығы мен ыңғайлылығы туралы ойлайды. Міне, осылайша күрделі «тақырыптары» бар әдемі, түрлі-түсті және ауыр кестелер дүниеге келеді, олар бір уақытта сүзгіден өткізілмейді немесе сұрыпталмайды, және жиынтық кестесі бар автоматты есеп туралы мүлде ойламағаныңыз жөн.

Ерте ме, кеш пе, мұндай кестені пайдаланушы «бұл соншалықты әдемі болмауы мүмкін, бірақ ол жұмыс істей алады» деген қорытындыға келеді және оны классикалық ұсыныстарға сәйкес келтіре отырып, үстелінің дизайнын жеңілдете бастайды:

  • қарапайым бір жолды тақырып, мұнда әрбір бағанның өзінің бірегей атауы (өріс атауы) болады.
  • бір жол – бір аяқталған операция (мәміле, сату, жариялау, жоба және т.б.)
  • біріктірілген ұяшықтар жоқ
  • бос жолдар мен бағандар түріндегі үзілістерсіз

Бірақ көп деңгейлі тақырыптан бір жолды тақырып жасасаңыз немесе бір бағанды ​​бірнешеге бөлсеңіз, бұл өте қарапайым, кестені қайта құру көп уақытты алуы мүмкін (әсіресе үлкен өлшемдерде). Бұл келесі жағдайды білдіреді:

Of     Кестені қайта жасаушы   do     Кестені қайта жасаушы  

Мәліметтер базасы тұрғысынан дұрыс кесте әдетте жалпақ (жазық) деп аталады - дәл осындай кестелерге сәйкес жиынтық кестелердің (жиынтық кестелер) есептерін құрастыру және аналитиканы жүргізу жақсы.

Қарапайым макрос көмегімен екі өлшемді кестені жазық кестеге түрлендіруге болады. Visual Basic өңдегішін қойынды арқылы ашыңыз Әзірлеуші ​​– Visual Basic (Әзірлеуші ​​— Visual Basic редакторы) немесе пернелер тіркесімі Alt+F11. Жаңа модульді енгізу (Кірістіру – модуль) және осы макростың мәтінін сол жерге көшіріңіз:

Sub Redesigner() Dim i Ұзындығы Dim hc бүтін сан, сағ бүтін Dim ns Жұмыс парағы ретінде сағ = 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) = кіріс деректер.Ұяшықтар(r, j) Келесі j k = 1 үшін сағ. Ұяшықтар(i, j + k - 1) = кіріс деректер.Ұяшықтар(k, c) Келесі k ns.Ұяшықтар( i, j + k - 1) = кіріс деректер.Ұяшықтар(r, c) i = i + 1 Келесі c Келесі r Соңы Ішкі  

Содан кейін VBA өңдегішін жауып, Excel бағдарламасына оралуға болады. Енді біз бастапқы кестені таңдай аламыз (толығымен, тақырыбымен және айлары бар бірінші бағанмен) және макросымызды іске қоса аламыз Әзірлеуші ​​– Макростар (Әзірлеуші ​​— макростар) немесе басу комбинациясы Alt+F8.

Макрос кітапқа жаңа парақты енгізеді және онда таңдалған кестенің жаңа, қайта жасалған нұсқасын жасайды. Сіз үлкен тізімдерді өңдеу және талдау үшін Excel құралдарының барлық арсеналын пайдалана отырып, мұндай кестемен «толық» жұмыс істей аласыз.

  • Макростар дегеніміз не, VBA-да макрокодты қайда енгізу керек, оларды қалай пайдалану керек
  • Жиынтық кестелермен есептерді құру
  • PLEX қондырмасынан XNUMXD кестелерді тегіс кестелерге қайта өңдеу құралы

 

пікір қалдыру