Table Redesigner

Contents

Ne veşartî ye ku piraniya bikarhênerên Excel, dema ku tabloyên li ser pelan diafirînin, berî her tiştî li ser rehetî û rehetiya xwe difikirin. Bi vî rengî tabloyên xweşik, rengîn û tevlihev ên bi "sernivîsên" tevlihev çêdibin, ku, di heman demê de, qet nayên fîlterkirin an rêzkirin, û çêtir e ku hûn qet li ser raporek otomatîkî ya bi tabloya pivot nefikirin.

Zû an dereng, bikarhênerê tabloyek wusa digihîje wê encamê ku "dibe ku ew ne ew qas xweşik be, lê ew dikare bixebite" û dest bi sêwirana tabloya xwe hêsan dike, û wê li gorî pêşnîyarên klasîk bîne cîh:

  • sernavek yek-xêzek hêsan, ku her stûn dê navê xwe yê yekta hebe (navê zeviyê)
  • yek rêz - yek operasyonek qedandî (peyman, firotin, şandin, proje, hwd.)
  • şaneyên hevgirtî tune
  • bê şikestin di şiklê rêz û stûnên vala de

Lê heke hûn sernavek yek-xêzek ji pir-astek çêkin an stûnek li çendan veqetînin, ew pir hêsan e, wê hingê ji nû ve avakirina tabloyê dikare gelek wext bigire (bi taybetî di mezinahiyên mezin de). Ew tê wateya rewşa jêrîn:

Of     Table Redesigner   do     Table Redesigner  

Di warê databasan de, ji tabloya rast bi gelemperî jê re tê gotin daîre (drav) - li gorî tabloyên weha çêtirîn e ku meriv raporên tabloyên pivot (tabloyên pivot) ava bike û analîtîk bike.

Hûn dikarin bi karanîna makroyek sade tabloyek du-alî veguherînin tabloyek zevî. Edîtorê Visual Basic bi rêya tabê vekin Pêşvebir - Visual Basic (Pêşvebir - Edîtorê Visual Basic) an jî kurteya klavyeyê alt+F11. Modulek nû têxe (Têxe - Modul) û nivîsa vê makroyê li wir kopî bikin:

Sub Redesigner() Dim i Heta Dirêj Dim hc Wek Yekjimar, hr Wek Dim Dim ns Wek Worksheet hr = InputBox("Сколько строк со подписями сверху?") hc = InputBox("Сколько столбцов со потписями слева?") Application.Screen Derewîn i = 1 Daneyên danasîn = Daneyên hilbijartî ns = Xebatkar. Ji bo r = (hr + 1) Ji bo inpdata.Rêz.Hejmar Ji bo c = (hc + 1) Ji bo inpdata.Columns.Hejmar Ji bo j = 1 Ji bo hc ns. Hucreyên(i, j) = inpdata.Cells(r, j) Paşê j Ji bo k = 1 Ji bo hr ns.Cells(i, j + k - 1) = inpdata.Cells(k, c) Piştre k ns.Cells( i, j + k - 1) = inpdata.Cells(r, c) i = i + 1 Next c Next r End Sub  

Dûv re hûn dikarin edîtorê VBA-yê bigirin û vegerin Excel. Naha em dikarin tabloya orîjînal hilbijêrin (bi tevahî, bi serek û stûna yekem bi mehan) û makroya xwe bi rê ve bibin. Pêşvebir - Macros (Pêşvebir - Macro) an kombînasyona zextê alt+F8.

Makro dê pelek nû têxe pirtûkê û li ser wê guhertoyek nû, ji nû ve avakirî ya tabloya hilbijartî biafirîne. Hûn dikarin bi tabloyek weha "bi tevahî" bixebitin, ji bo hilanîn û analîzkirina navnîşên mezin tevahiya arsenala amûrên Excel bikar bînin.

  • Makro çi ne, koda makroyê li ku derê têxe VBA, meriv wan çawa bikar tîne
  • Afirandina raporan bi PivotTables
  • Amûra ku ji pêveka PLEX-ê ji nû ve sêwirana XNUMXD tabloyên darûz

 

Leave a Reply