Գաղտնիք չէ, որ Excel-ի օգտատերերի մեծ մասը, թերթերի վրա աղյուսակներ ստեղծելիս, առաջին հերթին մտածում է սեփական հարմարավետության և հարմարավետության մասին։ Ահա թե ինչպես են ծնվում բարդ «վերնագրերով» գեղեցիկ, գունեղ ու ծանր աղյուսակները, որոնք, միևնույն ժամանակ, ընդհանրապես չեն կարող զտվել կամ տեսակավորվել, և ավելի լավ է ընդհանրապես չմտածել առանցքային աղյուսակով ավտոմատ հաշվետվության մասին։
Վաղ թե ուշ նման աղյուսակից օգտվողը գալիս է այն եզրակացության, որ «այն գուցե այնքան էլ գեղեցիկ չէ, բայց կարող է աշխատել» և սկսում է պարզեցնել իր սեղանի ձևավորումը՝ այն համապատասխանեցնելով դասական առաջարկություններին.
- պարզ մեկ տողով վերնագիր, որտեղ յուրաքանչյուր սյունակ կունենա իր յուրահատուկ անունը (դաշտի անվանումը)
- մեկ տող – մեկ ավարտված գործողություն (գործարք, վաճառք, տեղադրում, նախագիծ և այլն)
- միաձուլված բջիջներ չկան
- առանց ընդմիջումների դատարկ տողերի և սյունակների տեսքով
Բայց եթե դուք մի տողով վերնագիր եք կազմում բազմաստիճան մեկից կամ մեկ սյունակ բաժանում եք մի քանի սյունակի, դա բավականին պարզ է, ապա սեղանի վերակառուցումը կարող է շատ ժամանակ խլել (հատկապես մեծ չափերի դեպքում): Դա նշանակում է հետևյալ իրավիճակը.
Of | do |
Տվյալների շտեմարանների առումով ճիշտ աղյուսակը սովորաբար կոչվում է հարթ (հարթ) – ըստ այդպիսի աղյուսակների, լավագույնն է կառուցել առանցքային աղյուսակների հաշվետվություններ (առանցքային աղյուսակներ) և իրականացնել վերլուծություն:
Դուք կարող եք երկչափ աղյուսակը վերածել հարթ սեղանի՝ օգտագործելով պարզ մակրո: Բացեք Visual Basic խմբագրիչը ներդիրի միջոցով Մշակող – Visual Basic (Մշակող — Visual Basic խմբագիր) կամ ստեղնաշարի դյուրանցում ալտ+F11. Տեղադրեք նոր մոդուլ (Ներդիր – մոդուլ) և պատճենեք այս մակրոյի տեքստը այնտեղ.
Sub Redesigner() Dim i այնքան երկար Dim hc Որպես ամբողջ թիվ, hr Որպես Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбцов с подписями слева?") Application.Screen Սխալ i = 1 Սահմանել inpdata = Ընտրություն Սահմանել ns = Աշխատանքային թերթիկներ: Ավելացնել For r = (hr + 1) inpdata. Rows. Count For c = (hc + 1) To inpdata.Columns.Count For j = 1 To hc ns: Բջիջներ(i, j) = inpdata.Cells(r, j) Հաջորդը j For k = 1 To hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Հաջորդ k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Հաջորդ c Հաջորդ r Վերջ Ենթ.
Այնուհետև կարող եք փակել VBA խմբագրիչը և վերադառնալ Excel: Այժմ մենք կարող ենք ընտրել բնօրինակ աղյուսակը (ամբողջությամբ, վերնագրով և առաջին սյունակով ամիսներով) և գործարկել մեր մակրո Մշակող – Մակրոներ (Մշակող — մակրո) կամ սեղմելով համակցություն ալտ+F8.
Մակրոն գրքում կտեղադրի նոր թերթ և դրա վրա կստեղծի ընտրված աղյուսակի նոր, վերակառուցված տարբերակը: Դուք կարող եք աշխատել նման աղյուսակի հետ «ամբողջությամբ»՝ օգտագործելով Excel գործիքների ողջ զինանոցը՝ մեծ ցուցակները մշակելու և վերլուծելու համար:
- Ինչ են մակրոները, որտեղ տեղադրել մակրո կոդը VBA-ում, ինչպես օգտագործել դրանք
- Զեկույցների ստեղծում PivotTables-ով
- PLEX հավելումից XNUMXD աղյուսակները հարթ սեղանների վերափոխման գործիք