Ehara i te mea ngaro ko te nuinga o nga kaiwhakamahi Excel, i te wa e hanga ana i nga ripanga ki runga i nga pepa, ka whakaaro tuatahi mo o raatau ake oranga me te waatea. Koinei te ahua o nga teepu ataahua, karaehe me nga teepu uaua me nga "upoko" ka whanau, i te wa ano, kaore e taea te tarai, te whakariterite ranei, he pai ake kia kaua e whakaaro mo te ripoata aunoa me te ripanga pivot.
Kaore i roa, ka tae mai te kaiwhakamahi o taua tepu ki te whakatau "kaore pea i te tino ataahua, engari ka taea te mahi" ka timata ki te whakaiti i te hoahoa o tana teepu, me te kawe mai ki nga tohu o mua:
- he pane raina kotahi ngawari, kei ia tīwae tona ake ingoa motuhake (ingoa āpure)
- kotahi te raina - kotahi te mahi kua oti (te hoko, te hoko, te tuku, te kaupapa, me etahi atu)
- kore pūtau hanumi
- kaore he pakaru i te ahua o nga rarangi kau me nga pou
Engari ki te hanga koe i te pane kotahi-raina mai i te taumata-maha, ka wehea ranei tetahi pou ki etahi, he tino ngawari, katahi ka roa te waa o te hanga tepu (ina koa nga rahi). Ko te tikanga e whai ake nei:
| Of |  | do |  |
I runga i nga papaunga raraunga, ko te teepu tika e kiia ana he papa (flat) - he pai ake te hanga i nga purongo mo nga ripanga kaurori (tepu kaurori) me te whakahaere tātaritanga.
Ka taea e koe te huri i te ripanga ahu-rua ki te ripanga papatahi ma te whakamahi i te tonotono ngawari. Whakatuwheratia te Kaiwhakatika Visual Basic ma te ripa Kaiwhakawhanake - Visual Basic (Kaiwhakawhanake — Kaiwhakatika Ataata Kaupapa) he pokatata papapātuhi ranei alt+F11. Kōkuhu kōwae hōu (Kōkuhu – Kōwae) ka kape i te kupu o tenei tonotono ki reira:
Kaihoahoa-a-roto() Ataahua i te Roa Pouri hc Hei Tau Taapiri, hr Hei Tau Taapiri Maama ns Hei Pepamahi hr = Pouaka Whakauru("Ko te Puka Whakamahinga?") hc = Pouaka Whakauru("Whakaahua Whakamahinga?" He teka i = 1 Whakatakotohia te inpdata = Tautuhi Whiriwhiringa ns = Pepamahi.Add For r = (hr + 1) Ki inpdata.Rows.Count For c = (hc + 1) Ki inpdata.Columns.Count For j = 1 Ki hc ns. Pūtau(i, j) = inpdata.Cells(r, j) Panuku j Mo te k = 1 Ki te haora 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 Panuku c Panuku r Whakamutunga Sub Ka taea e koe te kati i te ētita VBA ka hoki ki Excel. Inaianei ka taea e tatou te kowhiri i te ripanga taketake (katoa, me te pane me te pou tuatahi me nga marama) me te whakahaere i to tatou tonotono puta noa. Kaiwhakawhanake – Tonotono (Kaiwhakawhanake — Tonotono) pahekotanga pehi ranei alt+F8.
Ka kōkuhu te tonotono he rau hou ki roto i te pukapuka, ka waihangahia he putanga hou o te ripanga kua tohua ki runga. Ka taea e koe te mahi me te tepu penei "katoa", ma te whakamahi i nga taputapu katoa o nga taputapu Excel mo te tukatuka me te tarai i nga rarangi nui.
- He aha nga tonotono, kei hea te whakauru i te waehere tonotono ki te VBA, me pehea te whakamahi
- Waihanga Ripoata me nga RipangaKaurori
- He taputapu ki te hoahoa ano i nga tepu XNUMXD ki nga papa papa mai i te taapiri PLEX