Heç kimə sirr deyil ki, əksər Excel istifadəçiləri vərəqlərdə cədvəllər yaradarkən ilk növbədə öz rahatlığı və rahatlığı haqqında düşünürlər. Mürəkkəb "başlıqları" olan gözəl, rəngarəng və çətin masaların necə doğulduğu, eyni zamanda ümumiyyətlə süzülməsi və ya çeşidlənməsi mümkün deyil və pivot masası olan avtomatik hesabat haqqında ümumiyyətlə düşünməmək daha yaxşıdır.
Gec-tez belə bir masanın istifadəçisi "o qədər də gözəl olmaya bilər, amma işləyə bilər" qənaətinə gəlir və masasının dizaynını klassik tövsiyələrə uyğunlaşdıraraq sadələşdirməyə başlayır:
- sadə bir sətirli başlıq, burada hər bir sütunun özünəməxsus adı (sahə adı) olacaq
- bir sətir – bir tamamlanmış əməliyyat (sövdələşmə, satış, göndərmə, layihə və s.)
- birləşdirilmiş xanalar yoxdur
- boş sətirlər və sütunlar şəklində fasilələr olmadan
Ancaq çoxsəviyyəlidən bir sətirli başlıq düzəltsəniz və ya bir sütunu bir neçəyə bölsəniz, bu olduqca sadədir, onda masanın yenidən qurulması çox vaxt apara bilər (xüsusilə böyük ölçülərdə). Bu, aşağıdakı vəziyyət deməkdir:
| Of |  | do |  |
Verilənlər bazası baxımından düzgün cədvəl adətən düz (düz) adlanır - məhz belə cədvəllərə uyğun olaraq pivot cədvəllərinin (pivot cədvəlləri) hesabatlarını qurmaq və analitika aparmaq daha yaxşıdır.
Sadə bir makrodan istifadə edərək iki ölçülü cədvəli düz cədvələ çevirə bilərsiniz. Nişan vasitəsilə Visual Basic Redaktorunu açın Tərtibatçı – Visual Basic (Tərtibatçı — Visual Basic Redaktoru) və ya klaviatura qısa yolu Dayandırmaq+F11. Yeni modul daxil edin (Daxil et - Modul) və bu makronun mətnini ora köçürün:
Sub Redesigner() Dim i Tam Ədəd kimi Uzun Dim hc, İş Vərəqi Kimi Tam Ədəd Ölçü hr hr = InputBox("Skолько строк с подписями сверху?") hc = InputBox("Skолько столбцов с подписями слева?") 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. 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 Daha sonra VBA redaktorunu bağlaya və Excel-ə qayıda bilərsiniz. İndi orijinal cədvəli seçə bilərik (tamamilə, başlıq və ilk sütun aylarla) və makromuzu işlədə bilərik. İnkişaf etdirici - Makroslar (Tərtibatçı — Makroslar) ya da basma kombinasiyası Dayandırmaq+F8.
Makro kitaba yeni vərəq daxil edəcək və onun üzərində seçilmiş cədvəlin yeni, yenidən qurulmuş versiyasını yaradacaq. Böyük siyahıların işlənməsi və təhlili üçün Excel alətlərinin bütün arsenalından istifadə edərək, belə bir cədvəllə "tam şəkildə" işləyə bilərsiniz.
- Makrolar nədir, VBA-da makro kodu hara daxil etmək, onlardan necə istifadə etmək olar
- Pivot Cədvəllərlə Hesabatların yaradılması
- XNUMXD cədvəli PLEX əlavəsindən düz olanlara yenidən dizayn etmək üçün alət