Redesigner Tabel

Paragraf

Ora ana rahasia manawa umume pangguna Excel, nalika nggawe tabel ing lembaran, mikir dhisik babagan kepenak lan kepenak. Iki minangka tabel sing ayu, warni lan rumit kanthi "header" sing rumit, sing, ing wektu sing padha, ora bisa disaring utawa diurutake, lan luwih becik ora mikir babagan laporan otomatis kanthi tabel pivot.

Cepet utawa mengko, pangguna meja kasebut nyimpulake yen "bisa uga ora apik banget, nanging bisa ditindakake" lan wiwit nyederhanakake desain mejane, kanthi cocog karo rekomendasi klasik:

  • header siji-baris prasaja, ing ngendi saben kolom duwe jeneng unik dhewe (jeneng lapangan)
  • siji baris - siji operasi rampung (deal, sale, posting, project, etc.)
  • ora sel gabungan
  • tanpa break ing wangun baris kosong lan kolom

Nanging yen sampeyan nggawe header siji-baris saka multi-level siji utawa pamisah siji kolom dadi sawetara, iku cukup prasaja, banjur reconstruction Tabel bisa njupuk akèh wektu (utamané ing ukuran gedhe). Iki tegese kahanan ing ngisor iki:

Of     Redesigner Tabel   do     Redesigner Tabel  

Ing babagan basis data, tabel sing tepat biasane diarani flat (flat) - miturut tabel kasebut paling apik kanggo mbangun laporan tabel pivot (tabel pivot) lan nindakake analytics.

Sampeyan bisa ngowahi tabel loro-dimensi menyang meja warata nggunakake makro prasaja. Bukak Visual Basic Editor liwat tab Pangembang - Visual Basic (Pangembang - Editor Visual Basic) utawa trabasan keyboard Alt+F11. Lebokake modul anyar (Insert - Modul) lan salin teks makro iki ing kana:

Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Skолько столбдов столбдов?" Palsu i = 1 Set inpdata = Pilihan Set ns = Worksheets.Tambah Kanggo r = (hr + 1) Kanggo inpdata.Rows.Count Kanggo c = (hc + 1) Kanggo inpdata.Columns.Count Kanggo j = 1 Kanggo hc ns. Sel(i, j) = inpdata.Sel(r, j) Sabanjure j Kanggo k = 1 Kanggo jam ns.Sel(i, j + k - 1) = inpdata.Sel(k, c) Sabanjure k ns.Sel( i, j + k - 1) = inpdata.Sel(r, c) i = i + 1 Sabanjure c Sabanjure r End Sub  

Sampeyan banjur bisa nutup editor VBA lan bali menyang Excel. Saiki kita bisa milih tabel asli (rampung, kanthi header lan kolom pisanan karo sasi) lan mbukak makro kita liwat Pangembang - Macro (Pangembang - Makro) utawa kombinasi mencet Alt+F8.

Makro bakal nglebokake lembar anyar menyang buku lan nggawe versi anyar sing direkonstruksi saka tabel sing dipilih. Sampeyan bisa nggarap tabel kasebut "kanthi lengkap", nggunakake kabeh arsenal alat Excel kanggo ngolah lan nganalisa dhaptar gedhe.

  • Apa macro, ngendi kanggo masang kode makro ing VBA, carane nggunakake
  • Nggawe Laporan nganggo PivotTables
  • Alat kanggo ngrancang ulang tabel XNUMXD dadi flat saka tambahan PLEX

 

Ninggalake a Reply