Něco jsem splichtil. Nejsou tam kontroly na existenci dat a listů.
Příloha: 
54384_kopie-wall-transponovat.zip (20kB, staženo 4x)
citovat54384_kopie-wall-transponovat.zip (20kB, staženo 4x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Transponuj na nový list data
MS Excel
Téma: Transponuj na nový list data 
Zaslal/a Alfan 9.2.2023 10:27
Dobrý den,
chtěl bych požádat o pomoc s makrem.
Na listu "data" mám v jednotlivých řádcích například konkrétní vozidla. Tento list je ve formátu tabulky
V prvních dvou sloupcích je označení vozidel a jejich umístění.
Ve sloupcích C-N, tedy 3-14 mám hodnoty pro konkrétní měsíce.
Potřeboval bych, aby se vytvořil nový list nebo já ho vytvořím prázdný a do něj se přenesla data z listu "data".
Vytvořil jsem list "vystup" kam jsem ta data manuálně nakopíroval.
Na tomto listu "vystup" je mi jedno, v jakém pořadí se ta data budou řadit pod sebe, s tím si pak už poradím.
Ale potřebuji je takto transponovat, abych to pak mohl jednoduše například třídit po měsících.
V tom makru bych rád, aby se pracovalo s pořadovými čísly sloupců z listu "data" a totéž s pořadovými čísly sloupců na tom novém listu.
Jde mi jen o to, aby se to lépe případně editovalo.
Děkuji.
Radek
Příloha: 54378_wall-transponovat.zip (12kB, staženo 3x)
54378_wall-transponovat.zip (12kB, staženo 3x)Do súboru od Jiřího som pridal aj jednoduché PQ riešenie.
Příloha: 54385_54384_kopie-wall-transponovat.zip (29kB, staženo 10x)
citovat54385_54384_kopie-wall-transponovat.zip (29kB, staženo 10x)Děkuji oběma.
K tomu PQ
Vůbec netuším, jak jste dosáhl tohoto...
let
Zdroj = Excel.CurrentWorkbook(){[Name="DataTab"]}[Content],
#"Zrušenie kontingenčnosti ostatných stĺpcov" = Table.UnpivotOtherColumns(Zdroj, {"Hospodářské středisko", "Registrační značka"}, "Měsíc", "Částka"),
#"Stĺpce so zmeneným poradím" = Table.ReorderColumns(#"Zrušenie kontingenčnosti ostatných stĺpcov",{"Měsíc", "Hospodářské středisko", "Registrační značka", "Částka"}),
#"Zmenený typ" = Table.TransformColumnTypes(#"Stĺpce so zmeneným poradím",{{"Měsíc", type text}, {"Hospodářské středisko", type text}, {"Registrační značka", type text}, {"Částka", type number}})
in
#"Zmenený typ"
To jste nejprve vložil prázdní dotaz a pak jste nadefinoval "manuálně" (napsal) Zdroj?
A jak jste pak doplnil ty další kroky dotazu (Použitý postup)?
To vůbec netuším, ale přijde mi to, jako zajímavá věc.
Já zatím jako laik používal PQ na slučování a úpravu dat ze zdrojů excel a pak přes Power Pivot.
Ale tohle od vás je fakt zajímavé.citovat
K tomu PQ
Vůbec netuším, jak jste dosáhl tohoto...
let
Zdroj = Excel.CurrentWorkbook(){[Name="DataTab"]}[Content],
#"Zrušenie kontingenčnosti ostatných stĺpcov" = Table.UnpivotOtherColumns(Zdroj, {"Hospodářské středisko", "Registrační značka"}, "Měsíc", "Částka"),
#"Stĺpce so zmeneným poradím" = Table.ReorderColumns(#"Zrušenie kontingenčnosti ostatných stĺpcov",{"Měsíc", "Hospodářské středisko", "Registrační značka", "Částka"}),
#"Zmenený typ" = Table.TransformColumnTypes(#"Stĺpce so zmeneným poradím",{{"Měsíc", type text}, {"Hospodářské středisko", type text}, {"Registrační značka", type text}, {"Částka", type number}})
in
#"Zmenený typ"
To jste nejprve vložil prázdní dotaz a pak jste nadefinoval "manuálně" (napsal) Zdroj?
A jak jste pak doplnil ty další kroky dotazu (Použitý postup)?
To vůbec netuším, ale přijde mi to, jako zajímavá věc.
Já zatím jako laik používal PQ na slučování a úpravu dat ze zdrojů excel a pak přes Power Pivot.
Ale tohle od vás je fakt zajímavé.citovat
- Dám kurzor niekam do Tabuľky DataTab
- "Údaje" - "Z tabuľky alebo rozsahu" - vytvorí sa základné načítanie Tabuľky do PQ
- Zmažem zatiaľ zbytočný automatický krok "Zmenený typ" pomocou "X"
- Označím pomocou Ctrl dva kontingenčné stĺpce "Hospodářské středisko" a "Registrační značka"
- "Transponovat" - "Zrušit kontingenčnosť stĺpcov" - podmenu "Zrušiť kontingenčnosť ostatných stĺpcov"
- Vo vzniknutom kroku "Zrušenie kontingenčnosti ostatných stĺpcov" vznikli 2 stĺpce. "Atribút" sú hlavičky doterajších dátových stĺpcov, teda názvy mesiacov. A "Hodnota" sú hodnoty.
- Názvy týchto dvoch stĺpcov sa mi nepáčia tak ich zeditujem na "Měsíc" a "Částka" priamo v tom kroku v riadku na písanie príkazu, hore nad tabuľkou. Dám Enter na potvrdenie.
- Stĺpec "Měsíc" presuniem potiahnutím pred 1. stĺpec, aby som mal požadované poradie stĺpcov
- Oznnačím pomocou Ctrl 3 stĺpce "Měsíc", "Hospodářské středisko", "Registrační značka" a na karte "Domov" - "Typ údajov" - "Text"
- Označím stĺpec "Částka" a na karte "Domov" - "Typ údajov" - "Desatinné číslo"
- Vpravo hore si môžem dať rozumný názov pre dotaz. Bude sa tak volať aj Tabuľka.
- Na karte "Domov" - "Zavrieť a načítať" - vytvorí nový list s dotazom, a podmenu "Zavrieť a načítať do" umožní nevytvárať list, ale vybrať miesto vloženia výsledku (napr. aktuálny list nejaká bunka), alebo iba vytvoriť prepojenie pre KT, prípadne vložiť dáta dotazu do Dátového modelu na ďalšie spracovanie. Teda výsledok dotazu nemusí byť zobrazený.citovat
- "Údaje" - "Z tabuľky alebo rozsahu" - vytvorí sa základné načítanie Tabuľky do PQ
- Zmažem zatiaľ zbytočný automatický krok "Zmenený typ" pomocou "X"
- Označím pomocou Ctrl dva kontingenčné stĺpce "Hospodářské středisko" a "Registrační značka"
- "Transponovat" - "Zrušit kontingenčnosť stĺpcov" - podmenu "Zrušiť kontingenčnosť ostatných stĺpcov"
- Vo vzniknutom kroku "Zrušenie kontingenčnosti ostatných stĺpcov" vznikli 2 stĺpce. "Atribút" sú hlavičky doterajších dátových stĺpcov, teda názvy mesiacov. A "Hodnota" sú hodnoty.
- Názvy týchto dvoch stĺpcov sa mi nepáčia tak ich zeditujem na "Měsíc" a "Částka" priamo v tom kroku v riadku na písanie príkazu, hore nad tabuľkou. Dám Enter na potvrdenie.
- Stĺpec "Měsíc" presuniem potiahnutím pred 1. stĺpec, aby som mal požadované poradie stĺpcov
- Oznnačím pomocou Ctrl 3 stĺpce "Měsíc", "Hospodářské středisko", "Registrační značka" a na karte "Domov" - "Typ údajov" - "Text"
- Označím stĺpec "Částka" a na karte "Domov" - "Typ údajov" - "Desatinné číslo"
- Vpravo hore si môžem dať rozumný názov pre dotaz. Bude sa tak volať aj Tabuľka.
- Na karte "Domov" - "Zavrieť a načítať" - vytvorí nový list s dotazom, a podmenu "Zavrieť a načítať do" umožní nevytvárať list, ale vybrať miesto vloženia výsledku (napr. aktuálny list nejaká bunka), alebo iba vytvoriť prepojenie pre KT, prípadne vložiť dáta dotazu do Dátového modelu na ďalšie spracovanie. Teda výsledok dotazu nemusí byť zobrazený.citovat
Tak to je "bomba".
Díky moc
Měl bych jeden dotaz.
Tady v tom kroku:
9. Karta „Domů“ --> „Načíst a zavřít“
9.1. Vytvoří list s dotazem
9.2. Nebo podmenu „Zavřít a načíst do…“ --> umožní nevytvářet nový list, ale možnost například vložit do určité buňky
Když použiju třeba bod 9.1., jak mohu jednoduše se pak vrátit a použít bod 9.2.?
Nebo to musím zpět do PQ a tam udělat duplikovat a použít jiný postup?citovat
Díky moc
Měl bych jeden dotaz.
Tady v tom kroku:
9. Karta „Domů“ --> „Načíst a zavřít“
9.1. Vytvoří list s dotazem
9.2. Nebo podmenu „Zavřít a načíst do…“ --> umožní nevytvářet nový list, ale možnost například vložit do určité buňky
Když použiju třeba bod 9.1., jak mohu jednoduše se pak vrátit a použít bod 9.2.?
Nebo to musím zpět do PQ a tam udělat duplikovat a použít jiný postup?citovat
Môžete si vytvoriť iba prepojenie (bez výslednej tbl) - ten Váš bod "9.1. Vytvoří list s dotazem", a potom vyvolať neskôr tak, že na karte "Údaje" - "Dotazy a pripojenia" - vpravo kliknete pravým na dotaz (zatiaľ iba to prepojenie) a dáte "Načítať do" - a tam si vyberiete nový list alebo bunku alebo dátový model či KT.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články