Tafole Redesigner

Tse ka Hare

Ha se lekunutu hore basebelisi ba bangata ba Excel, ha ba theha litafole maqepheng, ba nahana pele ka boiketlo ba bona le boiketlo ba bona. Ke kamoo litafole tse ntle, tse mebala-bala le tse boima tse nang le "lihlooho" tse rarahaneng li tsoaloa, tseo ka nako e ts'oanang li ke keng tsa hlophisoa kapa tsa hlophisoa ho hang, 'me ho molemo hore u se ke ua nahana ka tlaleho e ikemetseng e nang le tafole ea pivot ho hang.

Haufinyane, mosebelisi oa tafole e joalo o fihlela qeto ea hore "e kanna ea se be ntle hakaalo, empa e ka sebetsa" mme o qala ho nolofatsa moralo oa tafole ea hae, a e tsamaisana le likhothaletso tsa khale:

  • sehlooho se bonolo sa mola o le mong, moo kholomo ka 'ngoe e tla ba le lebitso la eona le ikhethang (lebitso la tšimo)
  • mohala o le mong - ts'ebetso e le 'ngoe e phethiloeng (konteraka, thekiso, poso, morero, joalo-joalo)
  • ha ho na lisele tse kopaneng
  • ntle le maqhetso ka sebopeho sa mela le mela e se nang letho

Empa haeba u etsa hlooho ea mohala o le mong ho tsoa ho mekhahlelo e mengata kapa u arola kholomo e le 'ngoe ho tse' maloa, ho bonolo haholo, joale ho tsosolosoa ha tafole ho ka nka nako e ngata (haholo-holo ka boholo bo boholo). E bolela boemo bo latelang:

Of     Tafole Redesigner   do     Tafole Redesigner  

Mabapi le li-database, tafoleng e nepahetseng hangata e bitsoa sephara (se bataletseng) - ho ea ka litafole tse joalo ho molemo ho haha ​​​​litlaleho tsa litafole tsa pivot (litafole tsa pivot) le ho etsa li-analytics.

U ka fetola tafole ea mahlakore a mabeli ho ea tafoleng e bataletseng u sebelisa macro e bonolo. Bula Visual Basic Editor ka tab Moqapi - Visual Basic (Moqapi - Visual Basic Editor) kapa khaoletso ea keyboard Alt+F11. Kenya module e ncha (Kenya – Mojule) ebe u kopitsa mongolo oa macro ena moo:

Sub Redesigner() Dim i As Long Dim hc As Integer, hr As Integer Dim ns As Worksheet hr = InputBox("Сколько строк с подписями сверху?") hc = InputBox("Сколько столбико столбцов песни) Application = False i = 1 Seta inpdata = Selection Set ns = Worksheets.Eketsa Bakeng sa r = (hr + 1) Ho inpdata.Rows.Count For c = (hc + 1) Ho inpdata.Columns.Count Bakeng sa j = 1 Ho hc ns. Lisele(i, j) = inpdata.Lisele(r, j) Latelang j Bakeng sa k = 1 Ho ea ho hr ns.Lisele(i, j + k - 1) = inpdata.Lisele(k, c) Next k ns.Lisele( i, j + k - 1) = inpdata.Lisele(r, c) i = i + 1 Next c Next r End Sub  

U ka koala mohlophisi oa VBA ebe u khutlela Excel. Joale re ka khetha tafole ea mantlha (ka botlalo, ka hlooho le kholomo ea pele e nang le likhoeli) ebe re tsamaisa macro ea rona ho feta. Moqapi - Macros (Moetsi - Macros) kapa ho tobetsa motsoako Alt+F8.

Macro e tla kenya leqephe le lecha bukeng ebe e theha mofuta o mocha oa tafole e khethiloeng ho eona. U ka sebetsa le tafole e joalo "ka botlalo", u sebelisa pokello eohle ea lisebelisoa tsa Excel bakeng sa ho sebetsana le ho sekaseka manane a maholo.

  • Li-macros ke eng, moo u ka kenyang khoutu ea macro ho VBA, mokhoa oa ho li sebelisa
  • Ho theha Litlaleho ka PivotTables
  • Sesebelisoa sa ho hlophisa bocha litafole tsa XNUMXD ho tse bataletseng ho tsoa ho tlatsetso ea PLEX

 

Leave a Reply